47558 (Метод Жордана Гаусса), страница 4
Описание файла
Документ из архива "Метод Жордана Гаусса", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "47558"
Текст 4 страницы из документа "47558"
{085} else write ('Вiльний елемент a[',i,j,']=');
{086} readln(A[i,j]);
{087} if t>19 then begin
{088} t:=1;
{089} z:=i;
{090} if j<(n+1) then h:=j+1
{091} else begin
{092} z:=i+1;
{193} h:=1;
{194} end;
{195} clrscr;
{196} goto m8;
{197} end;
{198} if t< then begin
{199} t:=t+1;
{100} z:=1;
{101} h:=1;
{102} end;
{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;
{131} h:=j;
{132} end;
{133} R:=A[k,h];
{134} for i:=1 to n do
{135} for j:=1 to l+1 do begin
{136} if(i<>k)and(j<>h) then
{137} B[i,j]:=R*A[i,j]-A[i,h]*A[k,j];
{138} if (i=k)and(j<>h) then
{139} B[i,j]:=-A[i,j];
{140} End;
{141} for i:=1 to n do
{142} for j:=1 to l do begin
{143} if j {144} A[i,j]:=B[i,j]/R; {145} if j>=h then begin {146} z:=j+1; {147} A[i,j]:=B[i,z]/R; {148} end; {149} end; {150} t:=t+1; {151} C[t]:=k; {152} D[k]:=E[h]+h; {153} for i:=1 to l+1 do begin {154} if i>h then begin {155} z:=i-1; {156} E[z]:=E[i]+1; {157} end; {158} end; {159} l:=l-1; {160} END; {161} z:=1; {162} for i:=1 to n do begin {163} j:=D[i]; {164} X[i]:=A[j,z]; {165} end; {166} t:=0; {167} wind(2,2,45,n+3,'Результати'); {168} for i:=1 to n do begin {169} gotoxy(5,i+1);writeln('x[',i,']=',X[i]:8:3); {170} t:=t+1; {171} end; {172} goto m7; {173} m6:wind(2,2,45,6,'Повiдомлення'); {174} gotoxy(10,3); write('Система не ма№ розвязкiв'); {175} m7: s:=readkey; {176} end; (* Головний блок програми *) {177} BEGIN {178} m1:vikno; {179} s:=readkey; {180} case s of {181} #59:vvidn; {182} #60:vvid; {183} #61: obchuslennja; {184} #27:halt; {185} end; {186} goto m1; {187} END. Додаток 4 Екранна форма виводу результатів обчислення Результати Мею
x[1]= 4.000 x[2]= -1.000 x[3]= 2.000 | F1-Ввiд розмiрностi F2-Ввiд даних F3-Вивiд результатiв ESC-Вихiд | |
Про автора | ||
Програма курсової роботи. Складена студентом групи 39-П Добромильським I. Дата складення програми травень 2003р |