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

For j:=i+1 to n Dod w:=w+a[i,j]*x[j];

x[i]:=a[i,n+1]-w;

End;

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

Begin {Golovna programa upravliinja}

ReadLn('Vvedit rozmirnist - N ?',n);

Cod:=0;e:=0;

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

For i:=1 to n do

Begin

For j:=1 to n do

Begin

Write('Input a[',i,',',j,']');ReadLn(S[i,j]);

End;

End;

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

Procedure Lineq(S,n,e,Ex); {Viklik golovnogo modulja!}

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

For i:=1 to n do

Begin

If(Ex[i]<>0)Then Begin Cod:=1;End; {Perevirka umovi}

End;

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

If(Cod=1)Then Begin WriteLn('Вектори залежні');End

Else Begin WriteLn('Вектори не залежні ');End;

End;

Контрольні приклади

Приклад 1.

Вхідні дані:

A=(1;2;3) B=(0;1;2) С=(1;3;-1)