Курсовая работа: Автоматизація розрахунків легкового автомобілю

For i:=1 To N Do

Begin

For j:=1 To N+1 Do Read(e,A[i,j]);

ReadLn(e);

End;

Close(e);

{Знаходження коренiв}

For i:=1 To N-1 Do

For j:=N DownTo i+1 Do

Begin

Q:=A[j,i]/A[i,i];

For k:=i To N+1 Do

A[j,k]:=A[j,k]-A[i,k]*Q

End;

For i:=N DownTo 1 Do

Begin

B[i]:=A[i,N+1];

For j:=N DownTo i+1 Do

B[i]:=B[i]-A[i,j]*B[j];

B[i]:=B[i]/A[i,i]

End;

assign(g,'rezgauss.txt');

rewrite(g);

{Виведення результатiв}

WriteLn(g,' Програма розв''язку системи лiнiйних рiвнянь методом Гауса');

WriteLn;

WriteLn(g,'Коренi системи:');

For i:=1 To N Do

WriteLn(g,'X',i,'=',B[i]:5:3);