05.06.2017, 19:09 | #1 (permalink) |
Member
Регистрация: 11.05.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Критерий Гурвица
Код:
const size=100; type mas=array[0..size] of integer; matrix=array[0..size] of mas; var a,c:mas; b:matrix; i,j,k,z,n:integer; Begin writeln('Введите степень многочлена'); readln(n); for i:=0 to n do a[i]:=0; for i:=0 to n do begin writeln('Введите ',i,'-й коэффициент многочлена'); readln(a[i]) end; for i:=0 to n do c[i]:=a[n-i]; writeln('Ваш многочлен:'); k:=n; while k<>0 do begin for i:=n downto 1 do begin write(c[i],'x^',k,'+'); k:=k-1 end end; write(a[n]); writeln; writeln('Составим матрицу Рауса-Гурвица:'); k:=0; for i:=1 to n do begin z:=2*k+1; for j:=1 to n do begin if z>=0 then b[i,j]:=a[z] else b[i,j]:=0; z:=z-1 end; k:=k+1 end; for i:=1 to n do begin for j:=1 to n do write(b[j,i]:2,' '); writeln end; readln End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|