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

UptoLike

ВУЗ: 

СЗТУ | Санкт-Петербург

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

Рубрика: 

2: begin kont:=kag; lkont:=lag; rokont:=roag end;
3: begin kont:=kla; lkont:=lla; rokont:=rola end;
4: begin kont:=kal; lkont:=lal; rokont:=roal end;
5: begin kont:=kkzmk; lkont:=lkzmk; rokont:=rokzmk
end;
6: begin
write (' Введите переходное сопротивление
контактов [Ом*Н]: '); readln (kont);
write (' Введите теплопроводность контактов
[Вт/см*град.С]: '); readln (lkont);
write (' Введите уд.сопротивление контактов
[Ом*см]: '); readln (rokont)
end
else begin writeln ('Еще раз...'); goto ca end
end;
write ('Материал токоподводов:');
writeln (' 1 - медь...');
writeln (' 2 - серебро...');
writeln (' 3 - латунь...');
writeln (' 4 - алюминий...');
writeln (' 5 - ДРУГОЙ...');
cal: j2:=0; readln (j2);
case j2 of
1: begin ltok:=lcu; rotok:=rocu end;
2: begin ltok:=lag; rotok:=roag end;
3: begin ltok:=lla; rotok:=rola end;
4: begin ltok:=lal; rotok:=roal end;
5: begin
write (' Введите теплопроводность мостика
[Вт/см*град.С]: '); readln (lmost);
write (' Введите
уд.сопротивление мостика
[Ом*см]: '); readln (romost)
end
else begin writeln ('Еще раз...'); goto cal end
end;
write (' Теплоотдача с поверхности токоподводов
[Вт/см*град.С]: '); readln (alfa2);
write ('Материал мостика:');
writeln (' 1 - медь...');
writeln (' 2 - серебро...');
writeln (' 3 - латунь...');
writeln (' 4 - алюминий...');
writeln (' 5 - ДРУГОЙ...');
cam: j3:=0; readln (j3);
case j3 of
1: begin lmost:=lcu; romost:=rocu end;
2: begin lmost:=lag; romost:=roag end;
3: begin lmost:=lla; romost:=rola end;
4: begin lmost:=lal; romost:=roal end;

Страницы