Для заданых значений написать программу вычисления числа

[Andreimv]

Для заданых значений x y напишите программу вычисления числа

Z= min(x,y)+0,5/1+max^2 (x,y)

[Andreimv]

abc paskal

[tig81]

Что делали? Что не получается?

[Hellko]

Код: [Выделить]

var
x,y,z:real;
function max(x,y:real):real;
begin
if (x>=y) then max:=x else max:=y;
end;
function min(x,y:real):real;
begin
if (x>=y) then min:=y else min:=x;
end;
begin
readln(x);
readln(y);
z:= min(x,y)+0.5/1+max(x,y)*max(x,y);
writeln(z);
end.
не пойму зачем делить 0.5 на 1. скобки вы неправльно поставили, а еще просите решение. позор.

[wital1984]

что-то длинноватое решение для такой простой задачи:

Код: [Выделить]

if x>y then writeln("z=", y+0.5/1+x*x) else writeln("z=", x+0.5/1+y*y)и все

[Hellko]

если он не может написать эту программу, то если он ее сдаст с функциями, то сразу поймут что это не он написал если преподу не пох =)

[Andreimv]

благодарю всех)