Контрольная работа: Расчет лампы бегущей волны О-типа малой мощности

const

c=3e10;

pi=3.14159;

procedure SchetDH;

begin

writeln (myfile, `дисперсионнаяхарактеристика`);

writeln (myfile, ` L,смС/Vф`);

n:= trunk ((lnv-ln0)/0.25)+1;

ll:=ln0;

ss:=h/sqrt(4*pi*pi*a*a*h*h);

for i:=1 to n do

begin

m:=sqrt(1-ss*ss/(a*a*8*pi*pi/ll)/ss);

writeln(myfile, ``, ll:8:5, ``, m:8:5)

ll:=ll+0.25;

end;

writeln;

end;

procedure SchetTPS;

begin

writeln(myfile, `промежуточный параметр а=`, а1:8:3);

writeln(myfile, `по нему определяем константы аlfa, z`);

readln (infile, alfa, ze);

x2:= a2*alfa*ze;

l1:=1.98e-3*ls*sqrt (u0)*(23+g)/(54.6*s*x2);

l0:=l1+l2;

b1:=3.5e-4*sqrt(i0)/sqrt(sqrt(u0));

b2:=1/(rs*sqrt(abs((rs*hi/100-rs)/rs)));

b:=b1*b2;