Возникает ошибка при отрицательном числе

[robin39]

При вводе 0 возникает ошибка floating point division by zero.
при -0,.. тоже возникает ошибка, но уже invalid floating point operation

Никак не могу допереть в чем дело. Где накасячил. Помогите.


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
edt1: TEdit;
edt2: TEdit;
btn1: TButton;
btn2: TButton;
btn3: TButton;
lbl1: TLabel;
lbl2: TLabel;
img1: TImage;
lbl3: TLabel;
lbl4: TLabel;
procedure btn3Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
Edt1.text:= '';
Edt2.text:='';
end;

procedure TForm1.btn1Click(Sender: TObject);
begin

if (StrTofloat(edt1.text) > -1) and (StrTofloat(edt1.text) <= 1) then
begin edt2.Text:=FloatToStr(exp(2*ln(strt ofloat(edt1.Text)))*2-1)
end
else begin
if (StrTofloat(edt1.text) > 1) and (StrTofloat(edt1.text) <= 2) then
begin edt2.Text:=FloatToStr(exp(2*ln(strt ofloat(edt1.Text))))
end
else begin
if(StrTofloat(edt1.text) <= 1) then begin
edt2.Text:=FloatToStr(1);
end


else begin
if StrTofloat(edt1.text) > 2 then begin
Edt2.text:= 'x>2 функция не определена'
end
end;
end;
end;
end;

end.

[evg_m]

При вводе 0 возникает ошибка floating point division by zero.

ТС, подскажите пожалуйста, чему равен Ln 0 = ?

Никак не могу допереть в чем дело. Где накасячил. Помогите.

[Zer0]

Между прочим, в Delphi для возведения в степень можно использовать функцию Power, а не такую необычную комбинацию

[robin39]

Сообщение от robin39

при -0,.. тоже возникает ошибка, но уже invalid floating point operation

эта ошибка по той же причине?

[Zer0]

именно, Вы в школе учились? помните допустимые значения под логарифмом? поэтому сейчас для возведения в степень проще использовать Power, чем писать несколько условий на каждый неподходящий случай (отдельно отрицательные, отдельно ноль)

[robin39]

ок, спасибо)))