Главная Электромагнитные устройства



program A! Uses printers Label 1,2;

var i,FLA,B40,WP,FLAl:lnt6ger; • L10,Fll,P,Dl,U,T,KF,Fl.Bl,A2.D2.RO,H,F2,D5,D6,Ll;reult

L,B5,C,Pl,DQ,A5,L4.L3,D10,B10,C10,DS,F10,DP,Q,DSP;jreaij

elO,DPl,0,HK,LK,W,SP,LPRjrealj

Bim2,SIMI:char;

QP:string;

Procedure WOD(f:integer;A;real); var SIM:char;

B50:real; begin

6im:=n; ease F of

1;beg in wrlteln(Уточните диаметр ЯКСрЯ )!

writeln(Lst,*»* Уточните диаметр якоря Jjendj 2;begin Writeln(Уточните длину ЭМ);

wrlteln(Lst,**» Уточните длину 3M);end; 8:begin wrlteln(Уточните диаметр провода );

writeln(Lst,*** Уточните диаметр провода );end}

end;

«г11е1пСрасчетная - ,А;2:5);

writeln(Lst, расчетная величина - .AsZiS); v/rite( значение изменяется { У/ > - )i readln(SIM);

if (SIM=y) or (SIM=Y) then begin wite(новое значение - ); vrlte(Lst, Новое значение - ); case F of

libegin readln(Fl);wrlteln(Lst,fl:2!6);end: 2!beBin re6dln(H};writeln(Lst,Ll:2:6);endt



a:begin readln(DP) ;wj?iteln(Lst,dp: 2 : 6) ;end} end; end else case F of a,:Fl:=A; 2:H:=A: 3:DP:=A; end;

end J begin

5im2:=

Hepeat

гг iteln( = = = = = = = = = = = = = = = = = - = rsr ===r:=: = = rrrrr ===s=s==cs====3 ) }

vritelnC РАСЧЕТ I ТИПЯ );

writeln( • = = I

2:writeln(Lst, Начало расчета);

writeIn(Введите параметры проектируемого ЭМ)} writeln(Lst,** Введите параметры проектируемого 3M)J write(Тяговая сила - );readln(Р); writeln(Lst, Тяговая сила - ,р:4:1); vriteC Коц якоря -);read In(DQ);D1:~DQ; Vjriteln(Lst, Код якоря - ",Dq:2:4); write(Расчетное напряжение -") ;readln((J); writeln(Lst, Расчетное напряжение - ,0:4:1); writeСПревышение температуры -);readln(Т); writeln(Lst, Превышение температуры - ,Т:4;1){

KF:=0.001*(SQRT(F)/D1);В40:=0; if (KF>H) and (KF01.3) then В40: = 1; If (KF>0.15) and (KF<6.5) then B40;=2; •



4f KF<0.15 then B40:=4!

it (KF>31.3) then B40:r3i

if (KF>=0.15) and (KF<=1.5) then begin

writelnCВывод эначенип К.Ф. -,KF:2;2);

writeln(Рекомендуемый тип ЭМ)}

writelnCc ФМШ -----4);

•writelnCконический стоп -----2)j

vriteCTnn -);rea(Jln(B40)t end)

if (KF>=6.5) and (KF< = H) then begin vritelnCВывод значения К.Ф, -,KF;Z:2)J vritein(Рекомендуемый тип эм)«

writeln(плоский СТОП -----l)t

vritelnCконический стоп ----- 2)j

writeCthh -);readln(B40)j end)

If (KF>=31.3) and (KF<=47) theh begin VritelnCВывод значения К.Ф. -,KF:2:2)S writelnCРекомендуемый тип ЭМ)}

vritelnCплоский стоп -----

VritelnCдисковый якорь ----- 3)j

WriteCTHH -);readln(B40); end;

If B40=0 then begin writelnСКонструктивный фактор -,KF:2;2)j Goto 2; end; FLA1:=0;

l:Write(Конструктивный тип ---- )!

VriteCLst,Конструктивный тип : ); case Б40 of

l:begin WriteCвтяжной с плоским стопом С )« vriteCLst.BXHXHOft Q ПЛОСКИМ cxonoM ( )i



0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 [109] 110 111 112 113 114 115 116


0.018