Описать функцию min (a,b,c) получающую три вещественных числа и находящую минимальное из...

Question

Описать функцию min (a,b,c) получающую три вещественных числа и находящую минимальное из них. с помощью этой функции найти минимумы из 5 наборов чисел

Answer 1

Var
  a, b, c, d, e: real;
 
function min(a, b, c: real): real;
begin
  if(b < a) and (b < c) then min := b;
  if(c < a) and (c < b) then min := c;
  if(a < b) and (a < c) then min := a;
end;
 
begin
  read(a, b, c, d, e);
  write(min(min(a, b, c), d, e));
end.

Comments

Можно гораздо проще:
function Min(a,b,c:real):real;
Begin
Min:=a;
if Min > b then Min:=b;
if Min > c then Min:=c
End;

---

Program2.pas(7) : Нельзя преобразовать тип function(a: real;b: real;c: real): real к real. Поэтому я сделал по-другому

---

И всё равно можно проще))
function Min(a,b,c:real):real;
Begin
if a > b then a:=b;
if a > c then a:=c;
Min:=a;
End;

---

На ABC.NET можно еще проще:

---

function Min(a, b, c: real): real;
begin
min:=min(min(a,b),c);
end;