Народ как написать эту задачу с помощью модуля в турбо паскаль а то у меня не выходит Var a,b,c,d,e,max:integer; procedure f(a,
Народ как написать эту задачу с помощью модуля в турбо паскаль а то у меня не выходит Var a,b,c,d,e,max:integer; procedure f(a,b:integer); begin if a>b then max:=a else max:=b; end; begin read (a,b,c,d,e); f(a,b); f(max,c); f(max,d); f(max,e); writeln('max=',max); end.
1. Пишем модуль с функцией f и помещаем его в файл с именем MyMax.pas
unit MyMax; interface function f(a,b:integer):integer; implementation function f(a,b:integer):integer; begin if a>b then f:=a else f:=b end; begin end.
2. В меню Turbo Pascal (Compile) обеспечиваем установку Distination Disk 3. Компилируем модуль (Compile - Compile) и получаем файл MyMax.tpu Он будет записан в директорию, путь к которой указан в опции меню Options - Directories... для TPU-файлов. Убеждаемся, что такой файл там появился. 4. В меню Turbo Pascal (Compile) возвращаем установку Distination Memory 5. Окно с MyMax.pas закрываем, больше оно нам не нужно, теперь у нас есть объектный модуль tpu. 6. Создаем новый файл для вызова нашего модуля (обращаю внимание на появление в uses требования подключить наш модуль).
uses Crt, MyMax; var a,b,c,d,e,max:integer; begin ClrScr; Read (a,b,c,d,e); max:=f(a,b); max:=f(max,c); max:=f(max,d); max:=f(max,e); Writeln('max=',max); ReadKey end.
7. Запускаем на выполнение и убеждаемся, что все работает.
8. Замечание. Можно было написать и более коротко:
uses Crt,MyMax; var a,b,c,d,e:integer; begin ClrScr; Read (a,b,c,d,e); Writeln('max=',f(f(f(f(a,b),c),d),e)); ReadKey end.
Var a, sqr : integer; f1, f2 : text; begin assign(f1, 'input.txt'); reset(f1); assign(f2, 'output.txt'); rewrite(f2); read(f1, a, sqr); if a = sqr then write(f2, 'YES') else write(f2, 'NO'); close(f1); close(f2); end.
Var
n, a, b, i, j: integer; ar: array[1..10000]of integer; begin read(n, a, b); ar[1] := a; ar[2] := b; for i := 3 to n do begin
for j := 1 to i - 1 do
begin
ar[i] := ar[i] + ar[j];
end;
ar[i] := ar[i] + i;
end;
for i := n downto 1 do write(ar[i],' ');
end.
A)div это целочисленное деление, если х=200 то результат будет равен 2 b)mod это остаток от деления если х=1250 то результат будет 1250mod100div10= 50div10=5 C)Если например 17 разделить на 3 то ответ будет 2 так как остаток равен 2