Itnewsrussia.ru

Анализ современных технологий

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

program Krit;crt;n=5; Tem=0.131; Tya=0.05; Typr=0.076; Tkz=0.148;massiv= array of real;a,b:massiv; Kv,diag:real; i,j: integer;Vivod;textcolor(9); writeln(' Коэффициенты определителя Гурвица :'); textcolor(7); writeln(' a1=',1); writeln(' a2=',Tya+Typr+Tkz:9:8); writeln(' a3=',Tem*Tya+Typr*Tya+Tkz*Tya+Tkz*Typr:9:8); writeln(' a4=',Typr*Tem*Tya+Tkz*Tem*Tya+Tkz*Typr*Tya:9:8); writeln(' a5=',Tkz*Typr*Tem*Tya:9:8);

end;

Обнуление элементов стоящих под главной диагональю

procedure Obnylenie(m:integer; a:massiv; var b:massiv);i,j:integer;; for i:=m+1 to n do for j:=m+1 to n do b:=a-a/a*a;;

Вычисление определителей

procedure Diag_opred(b:massiv; var sum: real);i,j: integer;clrscr; Vivod; writeln; textcolor(9); writeln(' Вычисленные определители:'); sum:=1; for i:=1 to n do for j:=1 to n do if i=j then begin sum:=sum*b; textcolor(7); writeln(' ',sum:7:9); end;;

Формирование определителя Гурвица

procedure Matrix(Kv:real;var a:massiv);clrscr; for i:=1 to n-3 do begin a:=1; a:=Tem*Tya+Typr*Tya+Tkz*Tya+Tkz*Typr; a:=Tkz*Typr*Tem*Tya; end; for i:=1 to n-2 do begin a:=Kv; a:=Tya+Typr+Tkz; a:=Typr*Tem*Tya+Tkz*Tem*Tya+Tkz*Typr*Tya; end;;

Основное тело программы

begin Kv:=0; repeat begin Kv:=Kv+0.05; Matrix(Kv,a); end; b:=a; for i:=1 to n-1 do Obnylenie(i,b,b); begin Diag_opred(b,diag); end; until diag<=0; begin writeln; textcolor(9); writeln(' Критический коэффициент равен:'); textcolor(7); writeln(' Kv =',Kv:5:2); readkey; end;

end.

Популярное:

Автоматическая измерительная система в виде электронного термометра Электронные термометры представляют собой автоматические устройства. В общем случае, автоматическими устройствами называются такие устройства, которые позволяют осуществлять операции измерения каких-либо величин или управления какими-либо объектами без непосредственного участия человека. Автоматическое устройство, как пра ...