Технический форум - Минимум из четырёх чисел

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Минимум из четырёх чисел (http://www.tehnari.ru/f43/t80607/)

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

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

Цитата:

Сообщение от Alextraza (Сообщение 820232)

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