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

writeln(myfile, `радиус спирали `, А:8:5, `см `);

writeln(myfile, `шаг спирали ` h:8:5, `см `);

writeln(myfile, `диаметр проволоки ` d:8:5, `см `);

writeln(myfile, `ток электронного пучка `, i0, `A `);

writeln(myfile, `сопротивление сязи ` rs:8:5, `Ом `);

writeln(myfile, `общая длина замедляющей системы `, l0:8:5, `см `);

writeln(myfile, `магнитное поле `,b, `вб/см<sup>2</sup> `);

writeln(myfile);

writeln(myfile, `расчет ТПС `);

writeln(myfile, `волновое сопротивление зам. системы `, z:8:5, `Ом `);

writeln(myfile, `сопротивление 1-ой ступени `, zz1:8:5, `Ом `);

writeln(myfile, ` сопротивление 2-ой ступени `, zz2:8:5, `Ом `);

writeln(myfile, `длина участков `, dli:8:5, `см `);

writeln(myfile, `диаметр 1-й ступени `, dv:8:5, `см `);

writeln(myfile, ` диаметр 2-й ступени `, dd2:8:5, `см ``);

writeln(myfile, ` диаметр 3-й ступени `, dd1:8:5, `см ``);

writeln(myfile, ` диаметр 4-й ступени `, dvh:8:5, `см ``);

end;

begin

assign (myfile, `resut. txt `);

assign (myfile, `inp. dat `);

reset(infile);

rewrite(myfile);

Input;

SchetZS;

SchetTPS;

SchetDH;

Outres;

Close(myfile);