Получить u=min(a,b), v=min(ab,a+b), min(u+v, 3.14) - Turbo Pascal

Формулировка задачи:

даны действительные числа а,в. Получить u=min(a,b) , v=min(ab,a+b) , min(u+v, 3.14)

Код к задаче: «Получить u=min(a,b), v=min(ab,a+b), min(u+v, 3.14) - Turbo Pascal»

textual
Var
  a,b,u,v,p: Real;
Function Min(x,y: Real): Real;
begin
  If x<y Then
  Min:=x
  Else
  Min:=y;
end;
BEGIN
Write('A= ');
Readln(a);
Write('B= ');
Readln(b);
u:=Min(a,b);
v:=Min(a*b,a+b);
p:=Min(u+v,3.14);
Writeln('u= ',u:5:5);
Writeln('v= ',v:5:5);
Writeln('p= ',p:5:5);
Readln
END.

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ