Реферат: Расчет частотных характеристик активного фильтра второго порядка на операционном усилителе

begin writeln;

for j:=1 to m do

begin

write(' СТРМ[',i,'узел,',j,'ветвь]='); read(STM[i,j]);

end;

end;

{Вывод на экран структурной матрицы}

write(' СТРМ');

for i:=1 to n do

begin writeln;

for j:=1 to m do

write(STM[i,j]:3);

end;

end;

procedure sea;

begin

writeln;

write(' Для прлолжения программы нажмите ENTER . ');

readln;

end;

{”Формирование МГС из структурной матрицы.}

procedure MGSS;

begin

for s:=1 to n do begin i:=s;j:=s;

while i<=n do begin while j<=m do begin if STM[i,j]<>0 then begin

p:=i;g:=j;i:=n;j:=m end;j:=j+1 end;i:=i+1 end;

if p>s then for j:=1 to m do begin PR[j]:=STM[s,j];

STM[s,j]:=STM[p,j];

STM[p,j]:=PR[j] end;