interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
StringGrid1: TStringGrid;
Button1: TButton;
StringGrid2: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
StringGrid3: TStringGrid;
Label5: TLabel;
Button2: TButton;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
n,i,j:integer;
E,d,T,Prov:real;
x,x0,xi,xx:array[1..4] of real;
B:array[1..5,1..4] of real;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.StringGrid1.Cells[0, 0]:='0,32';
Form1.StringGrid1.Cells[0, 1]:='0,16';
Form1.StringGrid1.Cells[0, 2]:='0,37';
Form1.StringGrid1.Cells[0, 3]:='0,12';
Form1.StringGrid1.Cells[1, 0]:='-0,18';
Form1.StringGrid1.Cells[1, 1]:='0,12';
Form1.StringGrid1.Cells[1, 2]:='0,27';
Form1.StringGrid1.Cells[1, 3]:='0,21';
Form1.StringGrid1.Cells[2, 0]:='0,02';
Form1.StringGrid1.Cells[2, 1]:='-0,14';
Form1.StringGrid1.Cells[2, 2]:='0,02';
Form1.StringGrid1.Cells[2, 3]:='-0,18';
Form1.StringGrid1.Cells[3, 0]:='0,21';
Form1.StringGrid1.Cells[3, 1]:='0,27';
Form1.StringGrid1.Cells[3, 2]:='-0,24';
Form1.StringGrid1.Cells[3, 3]:='0,25';
Form1.StringGrid1.Cells[4, 0]:='1,83';
Form1.StringGrid1.Cells[4, 1]:='-0,65';
Form1.StringGrid1.Cells[4, 2]:='2,23';
Form1.StringGrid1.Cells[4, 3]:='-1,13';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
E:=StrToFloat(Edit2.Text);

For j:=1 to 4 do
begin
For i:=1 to 5 do
begin
B[i,j]:=StrToFloat(Form1.StringGrid1.Cells[i-1, j-1]);
end;
end;

For i:=1 to n do
Begin
x0[i]:=0;
End;

Repeat
d:=0;
For i:=1 to n do
begin
x[i]:=B[n+1,i];
For j:=1 to n do
begin
x[i]:=x[i]+B[i,j]*x0[j];
end;
end;

For i:=1 to n do
begin
T:=abs(x[i]-x0[i]);
If T>d then
d:=T;
x0[i]:=x[i];
end;
until d<E;

For i:=1 to n do
begin
Form1.StringGrid2.Cells[0, i-1]:=FloatToStrF(x0[i], ffGeneral, 9, 7);
end;
Prov:=0;
For i:=1 to n do
Begin
Prov:=Prov+B[1,i]*x0[i];
End;
Prov:=Prov+1.83;
Label1.Caption:='Проверка метода простой итерации: x1 = '+FloatToStr(Prov);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
E:=StrToFloat(Edit2.Text);

For j:=1 to 4 do
begin
For i:=1 to 5 do
begin
B[i,j]:=StrToFloat(Form1.StringGrid1.Cells[i-1, j-1]);
end;
end;

For i:=1 to n do
begin
x0[i]:=0;
end;

Repeat
d:=0;
For i:=1 to n do
begin
xx[i]:=B[n+1,i];
For j:=1 to n do
begin
xx[i]:=xx[i]+B[i,j]*xi[j];
end;
T:=abs(xx[i]-xi[i]);
If T>d then
d:=T;
xi[i]:=xx[i];
end;
until d<E;

For i:=1 to n do
begin
Form1.StringGrid3.Cells[0, i-1]:=FloatToStrF(xi[i], ffGeneral, 9, 7);
end;
Prov:=0;
For i:=1 to n do
begin
Prov:=Prov+B[1,i]*xi[i];
end;
Prov:=Prov+1.83;
Label6.Caption:='Проверка метода Зейделя: x1 = '+FloatToStr(Prov);

end;

end.