метод дихотомии

[Kalina)]

задание было такое: составьте в delphi программу, позволяющую решить нелинейное уравнение на определенном отрезке [a,b] с заданной точностью е с помощью метода дихотомии
своими силами написала такой код. но программа не запускается. подскажите пожалуйста, где моя ошибка

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   a,b,e,f1,f2,f,t,y,x:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  a:= StrToInt(Edit1.Text);
  b:= StrToInt(Edit2.Text);
  e:= StrToInt(Edit3.Text);
  y:=1;

      While b-a<=e do
      begin
       y:=y+1;  // считаем итерации
       f1:= sqr(a)-5;
       t:=0.5*(a+b);
       f2:=sqr(t)-5;
         begin
         if f1*f2<=0 then
          begin
           b:=t;
           end
           else
           begin
           a:=t;
          end;
 end;
         end;
  x:=0.5*(a+b);
  f:=sqr(x)-5;
Label5.Caption:= StrToInt(f);
Label6.Caption:= StrToInt(y);
end;

end.

[Stilet]

В каком смысле не запускается? Окно с кнопкой появляется?

[Kalina)]

выдает ошибку на строку Label5.Caption:= StrToInt(f)
но там вроде всё правильно

[rUs_LAN]

я паскаля не знаю но по логике вы не ту функцию вызываете.
Вам надо функцию которая с типа real сделает тип string. А вы вызываете функцию которая string превращает в integer.

[Stilet]

StrToInt для целочисленных переменных. а f у тебя вещественная.
StrToFloat используй.

выдает ошибку

Мальчишь-Кибальчиш был школотой, поэтому даже за бочку варенья не рассказал, какую ошибку ему доверил компилятор, да?

[Utkin]

Label5.Caption:= StrToInt(f)

Я перевожу это как в метку как строку нужно запихнуть строковое значение f преобразованное в целое число. При этом f действительно вещественное. Был бы у компилятора миниган, он был убил Вас через монитор. И нисколько не сожалел о содеяном.

я паскаля не знаю но по логике вы не ту функцию вызываете.

В стандартном Паскале тоже нет таких функций, это дельфийские.

[Kalina)]

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

StrToInt для целочисленных переменных. а f у тебя вещественная.
StrToFloat используй.

Мальчишь-Кибальчиш был школотой, поэтому даже за бочку варенья не рассказал, какую ошибку ему доверил компилятор, да?

ну как бы объяснить. ВЫДЕЛЯЕТ строку. просто выделяет красным и всё
StrToFloat не помог, продолжает выделять.

Это делфи, я еще в первом сообщении написала

[rUs_LAN]

попробуйте FloatToStr никак не пойму почему вы число в число хотите превращать

[Utkin]

StrToFloat не помог, продолжает выделять.

Потому что эта функция на входе рассматривает строку, а там число. Эта функция преобразует строку в число. Вам нужно наоборот. Метка воспринимает строки, а f это число и его нужно преобразовать в строку. Ваша функция пытается выполнить обратное действие

[Kalina)]

о, спасибо, поняла теперь! FloatToStr помог.
теперь другой вопросик. программа работает, но цикл почему то считается только один раз. где косяк?