Программа:
Pascal:
var x,y,z: real;
function Root3(num: real): real;
begin
if num = 0 then Root3 := 0
else if num > 0 then Root3 := exp(ln(num) / 3)
else Root3 := -exp(ln(-num) / 3)
end;
write('x = '); readln(x);
write('y = '); readln(y);
z := (x + pi * Root3(y))/(y + pi);
writeln('z = ', z) ;
end.
Вычислите значение функции z(x, y) = (x + п*y^(1/3))/(y+п). Значение переменных x и y задайте самостоятельно путем ввода с клавиатуры.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Программа:
Pascal:
var x,y,z: real;
function Root3(num: real): real;
begin
if num = 0 then Root3 := 0
else if num > 0 then Root3 := exp(ln(num) / 3)
else Root3 := -exp(ln(-num) / 3)
end;
begin
write('x = '); readln(x);
write('y = '); readln(y);
z := (x + pi * Root3(y))/(y + pi);
writeln('z = ', z) ;
end.
Вычислите значение функции z(x, y) = (x + п*y^(1/3))/(y+п). Значение переменных x и y задайте самостоятельно путем ввода с клавиатуры.