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

UptoLike

ВУЗ: 

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

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

Рубрика: 

write ('Температура воды на входе [град.С]: '); readln
(t1);
write ('Температура воды на выходе [град.С]: '); readln
(t2);
write ('Диаметр водоохлаждаемого канала [м]: '); readln
(d);
write ('Длина водоохлаждаемого канала [м]: '); readln
(l);
writeln ('Выберите материал контактов:');
writeln (' 1 - серебро-серебро...');
writeln (' 2 - медь-медь...');
writeln (' 3 - олово-олово...');
writeln (' 4 - латунь-латунь...');
writeln (' 5 - алюминий-алюминий...');
writeln (' 6 - сталь-сталь...');
writeln (' 7 - ДРУГОЙ...');
ca: j1:=0; readln (j1);
case j1 of
1: k:=AgAg;
2: k:=CuCu;
3: k:=SnSn;
4: k:=LaLa;
5: k:=AlAl;
6: k:=StSt;
7: Begin
write ('Введите материал
контактов [Ом/Н^m]:
'); readln (k) end
else begin writeln ('Еще раз...'); goto ca end
end;
write ('Усилие нажатия на контакты [Н]: '); readln (f);
writeln ('Выберите тип контактной поверхности:');
writeln (' 1 - точечный...');
writeln (' 2 - линейный...');
writeln (' 3 - плоскостной...');
cas: j2:=0; readln (j2);
case j2 of
1: m:=Toch;
2: m:=Li;
3: m:=Pl
else begin writeln ('Еще раз...'); goto cas end
end;
write ('Удельное электрическое сопротивление [Ом*см]: ');
readln (r);
write ('Теплопроводность материала контактов
[Вт/см*град.С]: '); readln (g);
write ('Ток в контакте [А]: '); readln (i);
writeln; writeln ('-=* Вычисление... *=-'); writeln;
t3:=t2-t1; q1:=0.24*p/t3; q2:=0.86*p/t3; t4:=(t1+t2)/2;
di: z:=9e-3*q1*(22+t4)/d; if z<10000 then

Страницы