coef[i]:=w[i,1];

end;

{**********************************************************}

end.

Файл проекта - Project1.dpr:

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas';

{$R *.res}

begin

Application.Initialize;

Application.Title := 'Gauss&J-Gauss';

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

Результат работы программы

Результаты сохраненные в файле:

2 1 1 |2

3 2 3 |6

6 5 4 |5

Gauss

X1=-7,4

X2=1,2

X3=2,2

J-Gauss

X1=-7,4

X2=1,2

X3=2,2

Инструкция по работе с программ ой