Ошибка "Несколько подпрограмм могут быть вызваны". Pascal ABC.net. begin var d:=ReadlnString('Вас приветствует программа, котора
Ошибка "Несколько подпрограмм могут быть вызваны". Pascal ABC.net.
begin var d:=ReadlnString('Вас приветствует программа, которая может делить '+ 'два числа с остатком. Напишите, пожалуйста, свое имя'); Writeln('Здравствуйте, ',d,'!'); repeat Writeln('Как нужно написать ответ?',#13#10, '1 вариант. 5: 3 = 1(ост.2)',#13#10,'2 вариант. 5 = 3*1 + 2',#13#10, '0 - завершить работу'); var c:char; Repeat c:=ReadlnChar('Введите 0, 1 или 2:'); case c of '0': exit; '1','2':break; end; until False; var a,b:BigInteger; if not BigInteger.TryParse(ReadlnString('Введите целочисленное делимое:'),a) then begin Writeln('Вы ввели неверное значение. Работа завершена'); Exit end; if not BigInteger.TryParse(ReadlnString('Введите целочисленный делитель:'),b) then begin Writeln('Вы ввели неверное значение. Работа завершена'); Exit end; {if b=0 then begin writeln('Вы ввели неверное значение.'); exit end;} if c='1' then WritelnFormat('{0}:{1}={2}(ост.{3})',a,b,a div b,a mod b) else WritelnFormat('{0}={1}*{2}+{3}',a,b,a div b,a mod b); var f:char; Repeat f:=ReadlnChar('Если вы хотите завершить работу, введите "0", если продолжить - любую букву.'); case f of '0': exit; else break; end; until False; until False end.
begin var d:=ReadlnString('Вас приветствует программа, которая может делить '+'два числа с остатком. Напишите, пожалуйста, свое имя'); Writeln('Здравствуйте, ',d,'!');
repeat Writeln('Как нужно написать ответ?',#13#10,'1 вариант. 5: 3 = 1(ост.2)',#13#10,'2 вариант. 5 = 3*1 + 2',#13#10,'0 - завершить работу'); var c:char; Repeat c:=ReadlnChar('Введите 0, 1 или 2:'); case c of '0': exit; '1','2':break; end; until False; var a,b:BigInteger; if not BigInteger.TryParse(ReadlnString('Введите целочисленное делимое:'),a) then begin Writeln('Вы ввели неверное значение. Работа завершена'); Exit end; if not BigInteger.TryParse(ReadlnString('Введите целочисленный делитель:'),b) then begin Writeln('Вы ввели неверное значение. Работа завершена'); Exit end; if integer(b)=0 then {приведение к типу Integer. Менее абстрактно, чем BigInteger} begin writeln('Вы ввели неверное значение.'); exit end; if c='1' then WritelnFormat('{0}:{1}={2}(ост.{3})',a,b,a div b,a mod b) else WritelnFormat('{0}={1}*{2}+{3}',a,b,a div b,a mod b); var f:char; Repeat f:=ReadlnChar('Если вы хотите завершить работу, введите "0", если продолжить - любую букву.'); case f of '0': exit; else break; end; until False; until False end.
begin a:=226.3; b:=931.3; if (a-b)<(10*ln(1/3.1415926) ) then y:= b*sqr(x)*x -a*ln(abs(2*x))+sqr(sin(x)) else y:=sqrt(b*sin(x)/cos(x))-exp(3*x); WriteLn('y=', y:6:3); ReadLn; end.
Типа того, только проверь все внимательно, а то ТУРБО устроил мне пляску Святого Витта... Кстати, в Паскале нет тангенса, его заменяем sin(x)/cos(x) и я в программе "СЪЭКОНОМИЛ" описание переменной Х...
<span>const n=10; var i,k,min,max:integer; x,y:array[1..n]of integer; z:array[1..2*n]of integer;
function four(n:integer):string; var s:string; begin repeat s:=s+IntToStr(n mod 4); n:=n div 4; until n=0; result:=ReverseString(s); end;
begin for i:=1 to n do begin x[i]:=random(-10,10); y[i]:=random(-10,10); if (x[i] mod 2=0) and (x[i]>0) then begin k:=k+1; z[k]:=x[i]; if k=1 then begin min:=z[1]; max:=z[1]; end; if z[k]>max then max:=z[k]; if z[k]<min then min:=z[k]; end; if (y[i] mod 2=0) and (y[i]>0) then begin k:=k+1; z[k]:=y[i]; if k=1 then begin min:=z[1]; max:=z[1]; end; if z[k]>max then max:=z[k]; if z[k]<min then min:=z[k]; end; end; write('Массив X:'); for i:=1 to n do write(x[i]:4); writeln; write('Массив Y:'); for i:=1 to n do write(y[i]:4); writeln; write('Массив Z:'); for i:=1 to k do write(z[i]:4); writeln; write('Измененный массив Z:'); for i:=1 to k do begin if z[i]=min then z[i]:=max else if z[i]=max then z[i]:=min; write(z[i]:4); end; writeln; write('Массив Z по основанию 4:'); for i:=1 to k do write(four(z[i]):4); <span>end.</span></span>
Объявим переменные нужные, обязательно обнулим переменную count(все переменные целочисленные)
1. Организация заполнения двумерного массива.(Из файла, руками, в исходном коде, как угодно) 2. Первый цикл от 0 до i(кол-во строк массива) 3. Внутри первого цикла еще один цикл от 0 до j(кол-во столбцов) 4. Внутри второго цикла делаем проверку вида if (mass[i,j] == X) then count = count + 1 5. Теперь когда все итерации будут пройдены, переменная count будет содержать значение равное кол-во элементов со значением X 6. Делаем вывод это значения.