Решение мат. примера

[Kashp]

Добрый вечер всем! Необходимо сделать такую штуку:


Вот код:

uses Math...
...

procedure TForm1.Button1Click(Sender: TObject);
var
 x, y, z, stepen, r, l, resultat: real;

begin
 x:=strTOfloat(edit1.text);
 y:=strTOfloat(edit2.text);
 z:=strTOfloat(edit3.text);

 r:=(cos(x) + 24.5 * sin(y));
 stepen:=exp(ln(r) * (2/3));
 l:=(ln(12/z+45))/(ln(3));

 resultat:=14*Pi-stepen/l;

 Edit4.Text:= FloatTOstr(resultat);
end;

Все вроде работает, но если в синус (Edit2) подставить число 4, то при нажатии кнопки вылазиет ошибка: "Invalid floating point operation".
При остальных числах все нормально.

Подскажите, как это исправить?

p.s. На всякий случай прикрепил весь проект.

[eoln]

stepen:=exp(ln(r) * (2/3)); в данном случае идёт попытка взять логарифм от отрицательного числа.
x и y надо вводить в радианах, замените строку r:=(cos(x) + 24.5 * sin(y)); на

r:=(cos(DegToRad(x)) + 24.5 * sin(DegToRad(y)));

и проверяй знак под логарифмом

добавлено
или так, чтобы за знаками под логарифмом не следить

r:=sqr((cos(DegToRad(x)) + 24.5 * sin(DegToRad(y))));
stepen:=exp(ln(r) * (1/3));
l:=(ln(12/z+45))/(ln(3));

[Kashp]

eoln, спасибо тебе большое!