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

Варіант індивідуальних завдань до роботи Gauss повністю співпадають з варіантами індивідуальних завдань до роботи DetKram.

Додаткові матеріали до роботи Gauss Програма NormVect знаходження різних норм вектора

Program NormVect; {Знаходження різних норм одного вектору}

{ВХІД: NormVect.inp – текстовий файл, наприклад:

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

5

0 8 1 2 -3

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

де 5—число компонент вектора. У наступному рядку вказані компоненти вектора через прогалини.

ВИХIД: NormVect.out – текстовий файл, наприклад:

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

Вектор:

0.00000000000000Е+0000 (0.00000)

8.00000000000000Е+0000 (8.00000)

1.00000000000000Е+0000 (1.00000)

2.00000000000000Е+0000 (2.00000)

-3.00000000000000Е+0000 (-3.00000)

Норма максимума (m-норма) = 8.00000000000000Е+0000 (8.00000)

Квадратична норма (k-норма) = 8.83176086632785Е+0000 (8.83176)

Інтегральна норма (1-норма) = 1.40000000000000Е+0001 (14.00000)

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

const _N=10; type vect = array [1.._N] of real;

var i,n: integer; v: vect; norm : real; finp,fout : text;

BEGIN {NormVect} writeln(’Start NormVect’);

assign(fout, ’NormVect.out’); rewrite(fout);

assign(finp, ’NormVect.inp’); reset(finp); readln(finp,n);

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

close(finp); writeln(fout, ’Вектор:’);

for i:=1 to n do writeln(fout, ’ ’ ,v[i], ’ (’,v[i]:8:5,’) ’);

norm:= abs(v[1]); {Підрахування m-норми}

for i:=1 to n do if norm<abs(v[i]) then norm:=abs(v[i]);

writeln(fout,’Норма максимуму(m-норма)= ’, norm, ’ (’,norm:8:5, ’) ’);

norm:=0; {Підрахування k-норми}

for i:=1 to n do norm:=norm+sqr(v[i]);

norm:=sqrt(norm);

writeln(fout,’Квадр.норма(k-норма)=’, norm, ’ (’ ,norm:8:5, ’) ’);

norm:=0; for i:=1 to n do norm:=norm+abs(v[i]);

writeln(fout, ’Інтегр.норма (l-норма)=’, norm, ’ (’ ,norm:8:5, ’) ’);

close(fout); write(’Finish NormVect’); readln;

END. {NormVect}

Програма NormMatr знаходження різних норм матриці

program NormMatr;

{ВХІД: NormMatr.inp -- текстовий файл, наприклад:

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

5

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

де 5 – розміри матриці, далі за рядками – елементи матриці через прогалину.

ВИХІД: NormMatr.out -- текстовий файл, наприклад:

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

матриця:

Норма максимума (m-норма) = 3.50000000000000Е+0001 (35.00000)

Квадратична норма (k-норма) = 2.71661554144122Е+0001 (27.16616)

Інтегральна норма (l-норма) = 3.10000000000000Е+0001 (31.00000)

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

const _N=10;

type Matr= array [1.._N,1.._N] of real;

var i, j,n: integer;a: matr;norm,sum: real; finp,fout:text;

BEGIN {NormMatr} writeln(‘Start NormMatr’);

assign(fout,’NormMatr.out’); rewrite(fout);

assign(finp,’NormMatr.inp’);reset(finp);

for i:=1 to n do begin

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

end;

close(finp); writeln(fout,’матриця:’);

for i:=1 to n do begin

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

end;

norm:=0; {П і д р а х у в а н н я m – н о р м и }

for i:=1 to n do

begin sum:=0; for j:=1 to n do sum:=sum+abs(a[i,j]);

if norm<sum then norm:=sum;

end;

writeln (fout,’Норма максимума (m – норма) = ‘,norm,

‘ (‘,norm:8:5,’)’);

norm:=0; { П і д р а х у в а н н я k – н о р м и }

for i:=1 to n do for j:=1 to n do

norm:=norm+sqr(a[i,j]); norm:=sqrt(norm);

writeln(fout,’квадратична норма (k – норма) = ‘,norm,

‘ (‘,norm:8:5,’)’);

norm:=0; {П і д р а х у в а н н я l – н о р м и }

for j:=1 to n do begin

sum:=0; for i:=1 to n do sum:=sum+abs(a[i, j]);

if norm<sum then norm:=sum;

end;

writeln(fout,’інтегральна норма (l – норма) =’,norm,

‘ (‘,norm:8:5,’)’);

close(fout);

write(‘Finish NormMatr. Press any key.’); readln;

END. {NormMatr}