Invalid floating point operation

Как исправить ошибка в Delphi 7 вида:
invalid floating point

Project Project1.exe raised exception class ElnvalidOp with message ‘Invalid floating point operation’. Process stopped. Use Step or Run to continue.

Например, при выполнении данного кода в Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var c,a: double;
begin
a:=-2.1;
c:=Sqrt(a);
end;
end.

выходит ошибка.
Это связано с выполнением не допустимой операцией извлечения корня из отрицательного числа функцией Sqrt(a). Для того чтобы исправить ошибку, число должно быть положительным.

Leave a Reply

Ваш e-mail не будет опубликован.