По данным 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.
program CalculateZ; var x, y, z: real; begin write('Введите x: '); readln(x); write('Введите y: '); readln(y); z := (min(x, y) + 0.5) / (1 + max(x * x, y * y)); writeln('Значение функции z: ', z); end.
Для второго случая:
program CalculateZ; var x, y, z: real; begin write('Введите x: '); readln(x); write('Введите y: '); readln(y); if x < 0 then z := max(x, y) else z := min(x, y); writeln('Значение функции z: ', z); end.
Программа для вычисления функции z в Паскале:
Для первого случая:
program CalculateZ;var
x, y, z: real;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
z := (min(x, y) + 0.5) / (1 + max(x * x, y * y));
writeln('Значение функции z: ', z);
end.
Для второго случая:
program CalculateZ;var
x, y, z: real;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
if x < 0 then
z := max(x, y)
else
z := min(x, y);
writeln('Значение функции z: ', z);
end.