помогите перевести код с VB в код Lazarus

[Ляйсан9517]

PHP код:

X0 = Val(Text1)
X1 = Val(Text2)
c = Val(Text3)
Do While Abs(X0 - X1) > c
X2 = X1 - (3 * X1 - 14 + Exp(X1) - Exp(-X1)) * (X1 - X0) / (3 * X1 - 14 + Exp(X1) - Exp(-X1) - 3 * X0 + 14 - Exp(X0) + Exp(-X0))
X0 = X1
X1 = X2
Loop
Text4.Text = X2
End Sub 


[Ляйсан9517]

вот так вот будет?

var
x0,x1,x2,e: real;
begin
x0:=StrToFloat(Edit1.Text);
x1:=StrToFloat(Edit2.Text);
e:=StrToFloat(Edit3.Text);
Repeat
X2 = X1 - (3 * X1 - 14 + Exp(X1) - Exp(-X1)) * (X1 - X0) / (3 * X1 - 14 + Exp(X1) - Exp(-X1) - 3 * X0 + 14 - Exp(X0) + Exp(-X0)) ;
X0 = X1
X1 = X2;
Until abs(x0-x1)<=e;
ListBox1.Items.Add(FloatToStrf(x,ff Fixed,5,2));

[Stilet]

Скорее так:

X0 := StrToFloat(Text1.Text);
X1 := StrToFloat(Text2.Text);
c := StrToFloat(Text3.Text);
While Abs(X0 - X1) > c do begin
X2 := X1 - (3 * X1 - 14 + Exp(X1) - Exp(-X1)) * (X1 - X0) / (3 * X1 - 14 + Exp(X1) - Exp(-X1) - 3 * X0 + 14 - Exp(X0) + Exp(-X0));
X0 := X1;
X1 := X2;
end;
Text4.Text := Format('%10.2f',[X2]);
end;

Где TextXX возможно EditXX