По данным x, y составить программу в Паскале для вычисления функции z:

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

2) z=система max (x, y), x<0

min (x, y), x>=0.

Question

Информатика

Цветана

26 декабря, 12:20

По данным x, y составить программу в Паскале для вычисления функции z:

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

2) z=система max (x, y), x<0

min (x, y), x>=0.

+1

Ответы (1)

Знаете ответ на вопрос?

Летта · Answer 1

1) var x, y, z, min, max:real;

begin

readln (x, y) ;

if x>y then

begin

max:=x;

min:=y;

end

else if x
begin

max:=y;

min:=x;

end;

z: = (min+0.5) / (1+sqr (max)) ;

writeln (z) ;

end.

2) var x, y, z, min, max:real;

begin

readln (x, y) ;

if x>y then

begin

max:=x;

min:=y;

end

else if x
begin

max:=y;

min:=x;

end;

if x<0 then

z:=max

else if x>=0 then

z:=min;

writeln (z) ;

end.

По данным x, y составить программу в Паскале для вычисления функции z:1) z = (min (x, y) + 0,5)) / (1+max^2 (x, y)).2) z=система max (x, y), x<0min (x, y), x>=0.

По данным x, y составить программу в Паскале для вычисления функции z:

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

2) z=система max (x, y), x<0

min (x, y), x>=0.