Воздействие колебаний сложной формы на линейные цепи

var

st,t:real;

k,npp:word;

f:text;

function integral(vid:byte;verx,niz:real;n:word;Time:real):real;

var

d,y,S,tau:real;

begin

d:=(verx-niz)/n;

S:=0;

for k:=0 to n do

begin

tau:=niz+k*d;

case vid of

1: y:=(1-exp((-1)*(6*tau/tr)))*((1+sqrt(5))*exp((-1)*((sqrt(5)+3)*(Time-tau)/ (2*r*c))-(1-sqrt(5))*exp((-1)*(3-sqrt(5))*(Time-tau)/(2*r*c)))/(2*sqrt(5)*r*c);

2: y:=(1-exp(-3))*exp((-1)*(6*tau/tr-3)*(6*tau/tr-3))*((1+sqrt(5))*exp((-1)*

((sqrt(5)+3)*(Time-tau)/(2*r*c))-(1-sqrt(5))*exp((-1)*(3-sqrt(5))*(Time-tau)/

(2*r*c)))/(2*sqrt(5)*r*c);

end;

if k0 then

begin

if(k mod 2)=0 then

begin

if kn then y:=2*y

end

else

y:=4*y;

end;

S:=S+y; end;

integral:=d*S/3; end; begin ClrScr; Assign(f,'OTC.doc');

Rewrite(f); st:=tr/n; t:=0;

npp:=0;

writeln(f,' N/n Время,mc Uвых,B');

while t