Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
9 лет назад