Главная Электромагнитные устройства 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.0238 |