Решение систем нелинейных уравнений

  time:word=0;

  x1,y,d,eps,xk:real;

implementation

uses Unit1;

           procedure TForm2.FormCreate(Sender: TObject);

var

i:real;

begin

series1.Clear;

Series2.Clear;

i:=1;

While i<=1.5 do begin

if i<>0 then

  series1.AddXY(i,i-2+sin(1/i),'',clred);

  i:=i+0.0001;

end;

end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin

    y:=form1.fn(x1);

      series2.AddXY(x1,y-x1,'',clgreen);

      d:=abs(y-x1);

    x1:=y;

if d<eps then timer1.Enabled:=false;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

x1:=strtofloat(form1.labelededit1.text);

xk :=strtofloat(form1.labelededit2.text);

eps:=strtofloat(form1.labelededit3.text);

series2.Clear;

Timer1.Enabled:=true;

end;

end.

 

unit Unit3;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls,jpeg;

type

  TForm3 = class(TForm)

    Timer1: TTimer;

    Image1: TImage;

    procedure Timer1Timer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

uses Unit1;

            procedure TForm3.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled:=False;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

Image1.Picture.LoadFromFile('zastavka.jpg');

end;

end.

 

unit Unit4;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls

type

  TForm4 = class(TForm)

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

           procedure TForm4.FormCreate(Sender: TObject);

begin

Image1.Picture.LoadFromFile('zastavka.jpg');

end;

end.

 

unit Unit5;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids;

type

  TForm5 = class(TForm)

    StringGrid1: TStringGrid;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

procedure TForm5.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,1]:='Mathcad 14:';

StringGrid1.Cells[0,2]:='Èòåðàöèè:';

StringGrid1.Cells[1,0]:='X';

StringGrid1.Cells[2,0]:='F(X)' ;

StringGrid1.ColWidths[1]:=200;

StringGrid1.ColWidths[2]:=200;

end;

end.