Курсовая работа: Решение системы линейных уравнений методом Гаусса и Жордана-Гаусса

y[i]:=strtofloat(coef.cells[1,i]);

end;

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

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

{Решение и вывод результатов}

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

gaussj(a,y,x,s,error);

if not error then

for i:=1 to s do

jgauss.cells[i,1]:=floattostr(x[i])

else

begin

showmessage('Система решения не имеет');

new1.Click;

end;

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

end;

procedure TForm1.Save1Click(Sender: TObject);

var f:textfile;

i,j:integer;

begin

savedialog1.Filter:='Text files (*.txt)|*.txt|';

if savedialog1.Execute then

begin

assignfile(f,savedialog1.filename+'.txt');

rewrite(f);

for i:=1 to s do

begin

writeln(f);