
Jogelv
6 год назад
Разработайте алгоритм вычисления функции z

ОТВЕТЫ

Архипп
Aug 7, 2019
Код на паскале
program ex;
var
x, y, z: real;
begin
writeln(Введите x и y: );
readln(x, y);
if ((x*x + y*y) lt; 1) then
z := x*x + y*y;
if ((x*x + y*y = 1)) then
z := x + y;
if ((x*x + y*y) gt; 1) then
z := 0.5;
writeln(z = , z);
end.
program ex;
var
x, y, z: real;
begin
writeln(Введите x и y: );
readln(x, y);
if ((x*x + y*y) lt; 1) then
z := x*x + y*y;
if ((x*x + y*y = 1)) then
z := x + y;
if ((x*x + y*y) gt; 1) then
z := 0.5;
writeln(z = , z);
end.
213
Смежные вопросы: