Составители:
Рубрика:
writeln ('- отдаваемые с поверхности разъединителя
[Вт].............', p2:6:2);
writeln ('- передаваемые от неподвижных контактов');
writeln (' к подвижным контактам-ножам
[Вт].....................', pd:6:2);
writeln ('Разность температуры между подвижным контактом-
ножом');
writeln (' и неподвижным контактом
[град.С].....................', dtk:6:2);
writeln ('Разность температуры между поверхностью
радиатора');
writeln (' и окружающей средой
[град.С].........................', dtau:6:2);
writeln ('Конвективный коэффициент
[Вт/(м^4*град.С)]................', k:6:2);
writeln ('Разность температур на
входе и выходе радиатора
[град.С]..', a:6:2);
writeln ('Температура воды на входе радиатора
[град.С]..............', t20:6:2);
writeln ('Температура воды на выходе радиатора
[град.С].............', t10:6:2);
writeln ('Перепад температур между охлаждаемыми ножами');
writeln (' и водой
[град.С].....................................', dtn:6:2);
writeln ('Наибольшая температура разъединителя
[град.С].............', td:6:2);
writeln; writeln ('Печатать результаты [Y/N]?');
yynn:=readkey;
if (yynn <> 'Y') and (yynn <> 'y') then goto notprn;
AssignDefPrn (prin); rewrite (prin);
writeln (prin,' -=* Ввод исходных параметров *=-
');
write (prin,'Ток нагрузки
(с одной стороны разъединителя)
[А]:',i:6:2);
write (prin,'Поверхность контактов (с одной стороны
разъединителя) [кв.м]:',sd:6:2);
write (prin,'Коэффициенты теплоотдачи с поверхности
неподвижных контактов в воздух [Вт/(кв.м*град.С)]:',kto:6:2);
write (prin,'Диаметр канала ножа [м]:',dk:6:2);
write (prin,'Длина канала ножа [м]:',lk:6:2);
write (prin,'Поверхность радиатора [кв.м]:',sr:6:2);
write (prin,'Коэффициент теплоотдачи с поверхности
радиатора [Вт/(кв.м*град
.С)]:',ar:6:2);
write (prin,'Температура окружающего воздуха
[град.С]:',t0:6:2);
write (prin,'Температура нагрева контактов
[град.С]:',tn:6:2);
Страницы
- « первая
- ‹ предыдущая
- …
- 264
- 265
- 266
- 267
- 268
- …
- следующая ›
- последняя »