Курсовая работа: Лінійна залежність n мірних векторів Програма

Var x:Ar2);

Var i,j,k:Integer;

y,w:Real;

Begin

For i:=1 to n do

Begin

k:=i;

y:=a[i,i];

{------------------------------------------}

For j:=i+1 to n do

Begin

If(abs(w)>abs(y)) Then Begin k:=j;y:=w;End;

End;

{------------------------------------------}

If(abs(y)<e)Then Begin Write('ЌҐ ‚Ё§­ 祭®');Halt(0);End;

{------------------------------------------}

For j:=i to n+1 do

Begin

w:=a[k,j];a[k,j]:=a[i,j];a[i,j]:=w/y;

End;

{------------------------------------------}

For k:=i+1 to n do

Begin

For j:=n+1 Downto i+1 DO a[k,j]:=a[k,j]-a[i,j]*a[k,i];

End;

{------------------------------------------}

End;

For i:=n Downto i DO

Begin