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

a2:=-(1-fom)/(q4*s);

end;

procedure Input;

begin

writeln(`IN : диапазон рабочих длин волн (н/в), см `);

readln(infile, ln0, lnv);

writeln(`IN : напряжение второго анода, В `);

readln (infile, u0);

writeln (`IN: коэффициент усиления , дБ `);

readln (infile, G);

writeln (`IN: выходную мощность `);

readln (infile, pv);

writeln (`IN: угол пролета `);

readln (infile, et);

writeln (`IN: длину поглотителя см `);

readln (infile, l2);

writeln (`IN: коэффициент модуляции эл . пучка , % `);

readln (infile, hi);

writeln (`IN: плотность тока эл . пучка , А / см <sup>2</sup> `);

readln (infile, j0);

writeln (`IN: параметр 4q `);

readln(infile, q4);

writeln(`IN : параметр для определения волн. сопрот. `);

readln(infile, W);

writeln(`IN : входное сопротивление линии, Ом `);

readln (infile, zv);

end;

procedure OutRes;

begin