математические функции, как найти x в степени y/x и куб. корень из y/x? Опции

[MiH@N]

вообщем пример такой:
а мя как всегда не вовремя перемкнуло(решение не лезет в голову хотя проблема пустяковая )

[MiH@N]

вродь чёт нарешал но всё равно выдаёт ошибку...

del:=y/x;
if x>0 then st1:=Exp(del*Ln(x)) else
Function st1(n: integer)  : Integer;
Begin    st1:=(1 - 2*Byte(Odd(n)));
End;
if del>0 then st2:=Exp(del*Ln(1/3)) else
Function st2(n: Integer): Integer;
Begin    st2:=(1 - 2*Byte(Odd(n)));
End;
rez1:=abs(st1-st2);
end;

Сообщение отредактировано: MiH@N - 21.01.2008 20:56