Курсовая работа: Метод Жордана Гаусса

{103} end;

{104} end;

(* Процедура обчислення невiдомих *)

{105} procedure obchuslennja;

{106} label m2,m3,m4,m5,m6,m7;

{107} begin

{108} j:=n+1;

{109} for i:=1 to n do

{110} A[i,j]:=-A[i,j];

{111} t:=0;

{112} l:=n;

{113} for i:=1 to l+1 do

{114} E[i]:=0;

{115} for p:=1 to n do begin

{116} i:=0;

{117} m2:if i=n then goto m6

{118} else i:=i+1;

{119} j:=0;

{120} m3:if j=t then goto m4

{121} else j:=j+1;

{122} if i=C[j] then goto m2

{123} else goto m3;

{124} m4:j:=0;

{125} m5:j:=j+1;

{126} if(i=n)and(j=l)and(A[i,j]=0) then goto m6;

{127} if (j=l)and(A[i,j]=0) then goto m2;

{128} if A[i,j]=0 then goto m5

{129} else begin

{130} k:=i;