Минимум из четырёх чисел

[Alextraza]

Минимум из четырёх чисел

Привет всем! Помогите написать программу на Free Paskal'е которая выводила бы минимум из четырех чисел. Нужно написать функцию, которая это бы высчитывала.
В Паскале железная логика, но к компьютерному железу она имеет весьма опосредованное отношение
Переношу в нужный раздел.

 

[Vladimir_S]

Привет всем! Помогите написать программу на 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 решает задачу.