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

Содержание

• =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р