составить программу вычисления на паскале
используя процедуру поиска наибольшего(наименьшего) из 2-х чисел
program zadacha;
var x,y:real;
begin
procedure Min(a,b:real;var mn:real);
begin
if ab then mx:=a else mx:=b;
end;
Не запускается программа, подскажите где нужно ее исправить.
Scarabey, спасибо, что показал на ошибку, теперь все заработало) )
Нужен end. и a < b или a > b, а не ab
судя по выделенному тексту, если ab то (условие вам не кажется некорректным???, и почему не описаны mx? ошиблись?)
Нужно вот так:
procedure Min(a,b:real;var mx:real);
begin
if a < b then mx:=a else mx:=b;
end;
var x,y:real;
result : real;
begin
x := 5; y := 6;
Min(x, y, result);
WriteLn(result);
end.
Но через функцию будет красивее и без дополнительной переменной:
function Min(a,b:real) : Real;
begin
if a < b then Min:=a else Min:=b;
end;
var x,y:real;
begin
x := 5; y := 6;
WriteLn(Min(x, y));
end.
⇢