Составители:
Рубрика:
writeln ('Электродинамическая сила отброса контактов
[Н]........',Fdo:6:2);
writeln ('Результирующая сила [Н]:');
writeln (' - верхнего контактного
мостика.....................',F1:6:2);
writeln (' - для нижнего контактного
мостика..................',F2:6:2);
writeln; writeln ('Печатать результаты [Y/N]?');
yynn:=readkey;
if (yynn <> 'Y') and (yynn <> 'y') then goto notprn;
AssignDefPrn (prin); rewrite (prin);
writeln (prin,' -=* Ввод исходных параметров *=-');
writeln (prin,'');
writeln (prin,' Усилие одной пружины в режиме
рабочей деформации [Н]:', f:6:2);
writeln (prin,' Длина контактного мостика [мм]:',
a:6:2);
writeln (prin,' Длина токоведущей шины от ввода
тока до верхнего контакта [мм]:', l1:6:2);
writeln (prin,'
Длина токоведущей шины от ввода
тока до нижнего контакта [мм]:', l2:6:2);
writeln (prin,' Приведенный радиус прямоугольной
шины [мм]:', r:6:2);
writeln (prin,' Расстояние между мостиковыми
контактами [мм]:', h:6:2);
writeln (prin,' Кажущаяся площадь сечения контакта
[кв.мм]:', Sk:6:2);
writeln (prin,' Число контактных площадок (при
плоскостном контакте):', n:6:2);
writeln (prin,' Предел прочности материла контактов
сжатию [Н/кв.мм]:', s:6:2);
writeln (prin,' Вес подвижного контакта мостика
[Н]:', p:6:2);
writeln (prin,' Номинальный
ток выключателя [А]:',
I_n:6:2);
writeln (prin,' Контактное нажатие на одну
контактную площадку');
writeln (prin,' в первый момент после включения
[Н]:', fkp:6:2);
writeln (prin,'');
writeln (prin,' -=* Результаты расчетов *=-');
writeln (prin,'');
writeln (prin,' Ток, протекающий через один
мостиковый контакт [А]....',I1:6:2);
writeln (prin,' Усилия П-образного контура [Н]:');
writeln (prin,' - для верхнего контактного
мостика.................',Fdk1:6:2);
writeln (prin,' - для нижнего контактного
мостика..................',Fdk2:6:2);
