Курсовая работа: Метод Жордана Гаусса
{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
Екранна форма виводу результатів обчислення
|
|
|
К-во Просмотров: 625
Бесплатно скачать Курсовая работа: Метод Жордана Гаусса
|