Question

Даны два числа. Определить модуль какого числа больше. Модуль на языке Паскаль.

Answer 1

unit MaxMod;

interface

function MaxMod2(a,b:real):real;

implementation

function MaxMod2(a,b:real):real;
begin
   if abs(a)>abs(b) then MaxMod2:=a
   else MaxMod2:=b
end;

end.

Компилируем в MaxMod.tpu и пишем тестовую программу

uses MaxMod, Crt;

var
   x,y:real;
begin
   ClrScr;
   Read(x,y);
   Writeln(MaxMod2(x,y));
   ReadKey
end.