не доделал

[ddeman666]

???- как мне записать (а) в степени (b) (там где ???)



program p_38_1; //вычислить Z - сумму значений функции
var
x,y,a,b,z:real;
function f(u,t:real):real;
begin
if (a>0) and (b>0) then
f:=u*u+t*t
else
if (a<0) and (b<0) then
f:=u+t*t
else
if (a>0) and (b<0) then
f:=u-t
else
f:=u+t;
end;
begin
write('Введите числа a и b: ');
readln(a,b);
z:=f(a,b)+f(x+1,y+a)+f(f(a,b),x)-f(x-y,a???(b));
writeln('Сумма значений функций Z = ',z:4:2);
end.

[ROMA2PVT]

Возведение в любую степень?

[ddeman666]

нет, нужно возвести b-ю степень

[ROMA2PVT]

Ну значит в любую степень.b-то пользователь любое может ввести.

function Step(a,b:real):real;
begin
if a=0 then Step:=0
else if a>0 then Step:=exp(ln(a)*b)
else Step:=-exp(ln(abs(a))*b);
end;