Цитата:
Сообщение от Alextraza
Привет всем! Помогите написать программу на Free Paskal'е которая выводила бы минимум из четырех чисел. Нужно написать функцию, которая это бы высчитывала.
|
Да без проблем:
Код:
Var
x:Array[1..4] of Real;
i:Byte;
Function Min_4(a1,a2,a3,a4:real):real;
Function Min_2(b1,b2:real):real;
begin
if b1<b2 then Min_2:=b1 else Min_2:=b2;
end;
begin
Min_4:=Min_2(Min_2(Min_2(a1,a2),a3),a4);
end;
Begin
For i:=1 to 4 do
begin
Write('x[',i,']= ');
Readln(x[i]);
end;
Writeln('Min= ',Min_4(x[1],x[2],x[3],x[4]):0:5);
Readln
End.
Функция Min_4 решает задачу.