Вопрос Можете указать где ошибка. Пишет "invalid floating point operation"

[SiNsI]

procedure TForm1.Button1Click(Sender: TObject);
var a,b,x,y,z,c:real;
begin
x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.Text);
z:=strtofloat(edit3.Text);
a:=(8.15*(power(x,(1/3)))*Ln(2))/(2.3*(power(Exp(1),(-2)))+z);
y:=RadToDeg;
c:=arccos-arcsin((1/3));
b:=sin(c);
label8.caption:=floattostr(b);
label6.caption:=floattostr(a);

end;

end.

 

[hart22]

Не зная входных задачи и входных данных, сложно что-то сказать. power(Exp(1),(-2)) -- зачем усложнять?

 

[gosha2012]

Подозреваю что в ваших едитах не число

 

[хер там]

Проверяй в отладчике значения всех переменных, сравнивай с допустимыми. Например, для функций ArcCos и ArcSin значение аргумента должно быть от -1 до 1, если же аргумент за пределами этого диапазона, то это приводит как раз к "invalid floating point operation".