Метод Гауса

МКИП

Отчёт

Лабораторная работа №1

По дисциплине Ч. М..

Специальность: 2203

Студента группы

Тема: “Метод Гауса.”

2005

Текст программы:

uses crt;

var

i, j,k, n,m:byte;

menu:integer;

a:array [1..10,1..10] of real;

b:array [1..10] of real;

x:array [1..10] of real;

q:array [1..4] of real;

label 1,2,3,4;

begin

clrscr;

gotoxy(29,2);

textcolor(yellow);

write('bngnhnfhn');

gotoxy(29,3);

writeln('dlashdakjshfdasd');

gotoxy(35,4);

write('n=');

read(n);

gotoxy(35,5);

write('m=');

read(m);

{start menu}

gotoxy(35,9);

write('gngfnngfngfng');

gotoxy(23,11);

write('dasdadadsasdsddadsa');

gotoxy(23,12);

write('dewfdsfewfewfewf');

gotoxy(33,13);

read(menu);

if menu=1 then goto 1;

if menu=2 then goto 3;

{end menu}

1:clrscr;

for i:=1 to n do

begin

for j:=1 to m do

begin

gotoxy(3*j, i+8);

read(a[i, j]);

end;

end;

if menu=1 then goto 2;

if menu=2 then goto 4;

4:

for i:=1 to n do

begin

q[i]:=a[3,i];

a[3,i]:=a[1,i];

a[1,i]:=q[i];

end;

for i:=1 to n do

begin

for j:=1 to m do

begin

gotoxy(4*j, i+25);

write(a[i, j]:1:1);

end;

end;

{sadasdrrfergrgreg}

2:

for i:1 to n do begin

gotoxy(12+n+5,i+8);

read(b[i]);

end;

for i:=1 to n do begin

b[i]:=b[i]/a[i, i];

for j:=n downto i do begin

a[i, j]:=a[i, j]/a[i, i];

end;

for j:=i+1 to n do begin

b[j]:=b[j]-b[i]*a[j, i];

for k:=i+1 to n do begin

a[j, k]:=a[j, k]-a[i, k]*a[j, i];

end;

end;

end;

for i:=n downto 1 do begin

x[i]:=b[i];

for j:n downto i+1 do

x[i]:=x[i]-a[i, j]*x[j];

end;

for i:=1 to n do begin

gotoxy(52+n+3,i+8);

write(x[i]:5:2);

end;

readkey;

end.

Протокол выполнения:

A B x

-

-