По данным 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

Егор Хромов

Информатика

31 мая, 02:57

По данным 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.

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Милана Комарова · Answer 1

1)

Program programma1;

var x, y, z: real;

begin

writeln ('Введите число x');

readln (x);

writeln ('Введите число y');

readln (y);

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

writeln ('Число z=', z:6:3);

readln (z);

end.

2)

Program programma2;

var x, y, z: real;

begin

writeln ('Введите число x');

readln (x);

writeln ('Введите число y');

readln (y);

if x<0 then

z:=max (x, y) else

z:=min (x, y);

writeln ('Число z=', z:6:3);

readln (z);

end.