Метод простых итераций в Delphi

[_Dmitry]

У меня с данными коэффициентами работает без ошибок.
Получается: 14,5740695203932

[Tomoyo]

Подождите, а куда у вас это значение выводится?

[_Dmitry]

Предпоследняя строка:
Label1.Caption:=FloatToStr(x);

[Tomoyo]

А если в TEdit, то будет Edit10.Text:=floattostr(x) ?

[_Dmitry]

Точно так.

[Tomoyo]

Выше указанная ошибка. Ну что ему не нравится?(( Числа ваши подставляла.
unit Unit11;

interface

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

type
TForm11 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);
Var a0,a1,a2,a3,a4,a5,a6,x0,x,epsilon:r eal;
begin
x0:=strtoint(edit1.Text);
epsilon:=strtoint(edit2.Text);
a0:=strtoint(edit3.Text);
a1:=strtoint(edit4.Text);
a2:=strtoint(edit5.Text);
a3:=strtoint(edit6.Text);
a4:=strtoint(edit7.Text);
a5:=strtoint(edit8.Text);
a6:=strtoint(edit10.Text);
repeat
x0:=x;
x:=-(a0+a2*x*x+a3*ln(a4*x)+a5*ln(a6*x*x ))/a1;
until
abs(x0-x)<=epsilon;
Edit10.text:=floattostr(x);
end;



end.

[_Dmitry]

Обычная невнимательность.
В строке: x0:=strtoint(edit1.Text);
замените x0 на x

[Tomoyo]

Извините, что замучила вас. Я чайник в Delphi. Теперь он пишет, что 0.0001 is not a valid integer value. Там надо поменять условие ввода этого числа? Но на что? Если на Strtofloat, то тоже ошибка. Чего-то я недопонимаю.

[_Dmitry]

Вот ваша программа

[Tomoyo]

Нашла ошибку. Снова невнимательность(( 2 раза написала в разных местах Edit10. И думаю, чего ж она не работает) Спасибо вам большое)