Особенности работы и конструкций многоамперных электрических аппаратов. Беляев В.Л. - 247 стр.

UptoLike

Составители: 

write (prin,'Площадь сечения мостика [кв.см]:', f1);
write (prin,'Периметр сечения мостика [см]:', s1);
write (prin,'Площадь сечения токоподводов [кв.см]:', f2);
write (prin,'Периметр сечения токоподводов [см]:', s2);
write (prin,'Давление на каждый контакт [Н]:', p);
write (prin,'Температура окружающего воздуха [град.С]:',
t0);
write (prin,'Средняя температура мостика [град.С]:',
t1cp);
write (prin,'Средняя температура токоподводов [град.С]:',
t2cp);
write (prin,'Материал контактов:');
j1:=0; readln (j1);
case j1 of
1: writeln (prin,' медь.');
2: writeln (prin,' серебро.');
3: writeln (prin,'
латунь.');
4: writeln (prin,' алюминий.');
5: writeln (prin,' КЖМК.');
6: writeln (prin,' ДРУГОЙ.');
end;
write (prin,'Материал токоподводов:');
j2:=0; readln (j2);
case j2 of
1: writeln (prin,' медь.');
2: writeln (prin,' серебро.');
3: writeln (prin,' латунь.');
4: writeln (prin,' алюминий.');
5: writeln (prin,' ДРУГОЙ.');
end;
write ('Материал мостика:');
j3:=0; readln (j3);
case j3 of
1: writeln (prin,' медь.');
2: writeln (prin,' серебро.');
3: writeln (prin,' латунь.');
4: writeln (prin,' алюминий.');
5: writeln (prin,' ДРУГОЙ.');
end;
writeln (prin,''); writeln (prin,'');
writeln (prin,' -=* Результаты расчетов *=-');
writeln (prin,'');
writeln (prin,'Тепловые потери в мостике
[Вт].......................................', p1:6:2);
writeln (prin,'Тепловые потери в токоподводах
[Вт]..................................', p2:6:2);
writeln (prin,'Температура мостика, если бы отсутствовали
контакты [град.С].........', ty1:6:2);