Варіанти індивідуальних завдань до роботи LinSysIt

1		2.
3.		4.
5.		6.
7.		8.
9.		10.
11.		12.
13.		14.
15.		16.
17.		18.
19.		20.
21.		22.
23.		24.
25.		26.
27.		28.
29.		30.
31.		32.
33.		34.
35.		36.
37.		38.
39.		40.
41.		42.
43.		44.
45		46.
47.		48.
49.		50.
51.		52.
53.		54.
55.		56.
57.		58.
59.		60.
61.		62.
63.		64.
65.		66.
67.		68.
69.		70.
71.		72.
73.		74.
75.		76.
77.		78.
79.		80.
81.		82.
83.		84.
85.		86.
87.		88.
89.		90.
91.		92.
93.		94.
95.		96.
97.		98.
99.		100.

Допоміжні матеріали до роботи LinSysIt Програма NormForm

program NormForm; {$N+}{$E+} {Зведення СЛР до нормального виду за методом діагонального ділення

ВХІД: NormForm.inp -- текстовийвихідний файл з СЛР. Наприклад,

------------------ початок ------------------

4 число невідомих (рівнянь)

20 3 -4 7 8 рядок 1 матриці A + b[1]

-3 25 -9 -1 -3 рядок 2 матриці A + b[2]

-9 6 25 -5 -3 рядок 3 матриці A + b[3]

8 -3 5 20 17 рядок 4 матриці A + b[4]

------------------- кінець ---------------------

ВИХІД: NormForm.out -- текстовий результуючий файл}

const _N=10;

type vect= array [1…N] of extended;

matr= array [1…_N,1…_N] of extended;

var i, j, k, n: integer; save : extended;

NameInp, NameOut, answer : string;

a : matr; b, c : vect; finp, fout : text;

BEGIN {NormForm} writelen(‘Start NormForm’);

NameInp:=’NormForm:inp’ ; NameOut:=’NormForm:out’;

assign (fout, NameOut); rewrite (fout);

assign (flip, NameInp); reset (finp); readln (finp,n);

if (n<1)or(n>_N)

then writeln (four,’Error: n=’,n:1)

else begin {(1<=n<=_N)}

for i:=1 to n do begin

for j:=1 to n do read (finp,a[i,j]);

read (finp,b[i]); readln (finp);

end;

writeln (fout,’Розширена матриця:’);

for i:=1 to n do begin

for j:=1 to n do write (fout,’’, a[i,j]:10:5);

write (fout,’’,b[i]:10:5); writeln (fout);

end;

{п е р е т в о р е н н я с и с т е м и}

for j:=1 to n do

begin save:=a[j,i];

if save=0 then begin

write (‘a[‘,j:1,’.’j:1,’]=0’); readln; halt;

end;

for k:=1 to n do a[j,k]:=-a[j,k]/save;

b[j]:=b[j]/save: a[j,j]:=0;

end;

writeln(fout,’Матриця B: ’);

for i : =1 to n do begion

for j : = 1 to n do write ( fout , ‘ ‘ , a [i , j ] :10 : 5) ;

writeln (fout) ;

end ;

writeln ( fout , ‘ Вектор b = ‘ ) ; write ( fout , ‘ { ‘ ) ;

for i : = to n do write ( fout , ‘ ‘ , b[ i ] :8 : 5) ;

writeln (fout , ‘ } ‘ ) ;

end ; { (1 < = n<=_N ) }

close ( finp) ; close (fout) ;write (‘ Finish NormForm ‘) ; readln ;

END. {NormForm}