Метод интераций (не врубаю)

[Serebro]

var
i:integer;
x0,x1,e:real;
function F(x:real):real;
begin
f:=sin(x)
end;



begin
write ('x0=');
readln (x0);
e:=0.001;

x1:=x0;

repeat
x0:=x1;
x1:=f(x0);
until | x1 - x0 |<e;

readln;
end.

[Айдар]

похоже на этом форуме никто не дружит с методом итераций(((((

[MacOSUser]

Сообщение от Айдар

похоже на этом форуме никто не дружит с методом итераций(((((

С ними и дружить нечего, там ума много не надо.

[Айдар]

хм, выдают ошибку тут | x1 - x0 | типо неизвестно, не распознаёт модуль, а я не понял что выводить то?

[MacOSUser]

Хаха! Это в коде типа модуль?
Serebro, ну ты даёшь!

[-MagicAlex-]

Недавно первокурснице знакомой делал такую задачку

unit zadanie1;

interface

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

type
  TMainForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  eps: double;

implementation
{$R *.dfm}

function Func(t:double):double;
begin
  Result := -cos(2+exp(0.52*ln(t)));
end;

procedure TMainForm.Button1Click(Sender: TObject);
  var x, x_last: double;
      i: integer;
begin
  if Edit1.GetTextLen<=0 then
    begin
      Application.MessageBox('Вы не задали погрешность вычислений!','Ошибка!');
      Exit;
    end;
  Memo1.Clear;
  // погрешность
  eps := StrToFloat(Edit1.text);
  // начальное приближение
  x := (0.5+1)/2;
  // итерационный процесс
  i := 0;
  while (abs(x-x_last)>=eps) do
    begin
      inc(i);
      if (i>1) then x := x_last;
      x_last := Func(x);
    end;
  Memo1.Lines.Add('Количество итераций: ' + IntToStr(i));
  Memo1.Lines.Add('');
  Memo1.Lines.Add('Корень уравнения');
  Memo1.Lines.Add('X = ' + FloatToStr(x_last));
end;

procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['0'..'9',',',#8] then else Key:=#0;
end;

end.

Скриншот:

[Stilet]

похоже на этом форуме никто не дружит с методом итераций(((((

Скорее здесь не любят халявщиков. Учи паскаль, основы. пробуй примеры.
Закрыто.