First chance exception at $754F845D. Exception class EInvalidOp with message 'Invalid floating point operation'. Process Project1.exe (5832)

[Алиби]

пишу программу решения по методу хорд
вышла ошибка при компиляции
First chance exception at $754F845D. Exception class EInvalidOp with message 'Invalid floating point operation'. Process Project1.exe (5832)

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Button1: TButton;
    function f(x:real):real;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  a,b,c,x,e,g:real;
  n:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text:=FloatToStr(a);
Edit2.Text:=FloatToStr(b);
Edit3.Text:=FLoatToStr(e);
n:=0;
c:=a;
repeat
  N:=n+1;
  g:=c;
    c:=(a*f(b)-b*f(a))/(f(b)-f(a));
  if f(a)*f(c)<0 then b:=c
  else
  a:=c;
  until abs(g-c)<e;
  label1.Caption:=floatToStr(c);
  Label1.Caption:=FloatTOStr(n);
end;
function TForm1.f(x: real): real;
begin
f:=x*x*x-x+4;
end;
end.

[Аватар]

c:=(a*f(b)-b*f(a))/(f(b)-f(a))

при первой же итерации это даст деление на ноль: b=a=0

[Алиби]

А как можно решить эту проблему не подскажите пожалуйста

[Аватар]

Начальные значения им задать, при чем разные, иначе опять на нуль разделишь.

[Алиби]

Сообщение от Аватар

Начальные значения им задать, при чем разные, иначе опять на нуль разделишь.

Спасибо, буду разбираться

Сообщение от Аватар

Начальные значения им задать, при чем разные, иначе опять на нуль разделишь.

не получается что то или я не правильно понял)можете в мой код подсказать чему присвоить значение и где нужно вставить этот код и если можно то в моем коде а если нет то дайте пожалуйста ссылку на похожий пример я сам изучу но конечно лучше в моем коде показать))))

[Аватар]

Перед циклом вставить, где же еще. А что бы правильно вставить нужно знать что вообще твой суперкод делает

[Алиби]

Сообщение от Аватар

Перед циклом вставить, где же еще. А что бы правильно вставить нужно знать что вообще твой суперкод делает

нашел ответ и дело оказалось не в этом, а

 Edit1.Text:=FloatToStr(a);
Edit2.Text:=FloatToStr(b);
Edit3.Text:=FLoatToStr(e);

не правильно присвоил)