Ãëàâíàÿ -> Êíèãè (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) (50) 2154IF Å8=1 THEN2220 21A0REM ÊÎÍÑÒÐÓÊÒÈÂÍêò ÐÀÑ×ÅÒ ÑÑÍ.ÑÏ,ÑÒÐË09 2U2PRINT 2180PRINT"BBESMTE ÒÎËÙÈÍÓ ÈÇÎËßÖÈÈ ÑÅÐÄÅ×ÍÈÊÀ (èí)"j(THPUT hi Z181LET H3=D9-D8+2»B 2183LET Q=D9yD8:LET Í0=Í1+Í1»Ï Z185LET R1=D9+2«H1:LET Il=D8-2»Hl»a Z18ALET R2=Rl:LET 12=11 2189PRINT 2190PRINT"B ÇÀÂÈÑÈÌÎÑÒÈ ÎÒ ÂÅËÈ×ÈÍÛ ÈÑÏÛÒÀÒÅËÜÍÎÃÎ ÍÀÏÐßÆÅÍÈß .BHBEPKTEf 2191ÐÐ1ÌÒ"ÂÅËÈ×ÈÍÓ ÌÅÕÄÓÎÁÌÎÒÎ×ÍÎÉ ÈÇÎËßÖÈÈ (ÌÌ) - ÑÌ.ÑÏ ãÑÒÐË02" Z194PRINT 2195F0R Ê=1 ÒÎ N1-1 Z197LET Y=N4(K) 2200PRINT-0BM0TKA"!Y!-ÈÑÏÛÒÀÒÅËÜÍÎÅ ÍÀÏÐßÊÅÍÈÅ (B)";U8(Y) 2205ÐÐ1ÍÒ-ÌÅ)»ÄÓ0ÜÌ0Ò0×ÍÀß ÈÇÎËßÖÈß (ÌÌ) -,:INPUT H5(Y) 2206PRINT 2210NEXT Ê Z215PRINT-BBEÄÈTE ÒÎËÈÈÍÓ ÍÀÐÓ1Í0É ÈÇÎËßÖÈÉ (ÌÌ)".;INPUT Ì 2217PRINT Z220LET Y=N4(Nl):LET H5(Y)=0 2230IF D2(Y)<=1.56 THEN LET KB=1.25 2240IF D2(Y)<=0.8 THEN LET K8=1.2 2250IF D2(Y)<=0.3 THEN LET Ê8=1Ë5 22iS0IF I)2(Y)(0ëã THEN LET K8=l.i 2270LET T9=0:LET J=0 2273IF J=0 THEN 2280 Z274LET R1=R2:LET 11=12 2280F0R K=l 1*0 N1 2290LET Y=N4(K) 2300IF D2(Y)<=1.56 THEN LET Ê9=1Ë 2310IF D2(YH=.8 THEN LET Ê9=1Ë5 2320IF D2(Y)(=0.3 THEN LET K9=1.2 2325IF Âã(Ò)(0Ë2 THEN LET K9=1.25 Z330LET L=U(Y)»D2(Y)»K9 2340LET X=ÇË4l59»(Rl-B2(Y)) 2350LET 8»12.56636»L«D2(Y) 2360LET Z=6.28318»D2(Y) Z370LET Yl=ÇË4159•(Il+D2(Y)) 2380LET N9=(-X+SaR(X»X+S))/Z 2390LET N8=(Yl-S0R(Yl»Yl-S))yZ 2392IF N9()INT(N9) THEN LET N9"INT(N9)+1 2394IF N8C)INT(N8) THEN LET N8=INT(N8)+1 2400LET L9=N9»D2(Y)«K9 2410LET L8=N8»D2(Y)»K9 2420LET R1=R1+2»L9 2430LET U-I1-2»L8 2435REM ÎÏÐ.CP.ÄËÈÍÓ ÂÈÒÊÀ ÎÁÌÎÒÊÈ 2440IF KOI THEN 2470 24S0LET L2(Y> =H3+1.57295» t2»M0+L9+L8) 2460LET M=L9+L84H5(Y)+H3(Y>»R1/I1 2465G0T02490 2470let L2 <Y)=H3+1.57295»(2»(MO+H)+L9+L8) 2480LET M-M+L9+L8+H5(Y> +H5(Y)«R1/11 24a5REM ÊÎÍÅÖ CP.ÄËÈÍÛ ÂÈÒÊÀ 2490LET Rl-:R1+2«H5(Y> 2S00LET I1=I1-2»H5(Y>»R1/I1 2505REM ÊÎÐÐÅÊÒÈÐÎÂÊÀ ×ÈÑËÀ ÂÈÒÊΠ2510LET R(Y>«2.35E-5»L2(Y)«W(Y)/S3(Y) 2315IF T9=l THEN 2590 2S20LET U3(Y)=I(Y)«R(Y>»100/UCY) 2530IF YOl THEN 2560 2S40LET U(1)=U(1)»(1-U3(1>K0.01)SIU 2550GOT02570 2560LETU(Y)«U(Y)»(1+U3(Y)»0.01)«U 2570IF W(Y)(>INT(W(Y)) THEN LET W(yj=INT(W(Y)J« 2580ÐÊ1ÌÒ"ÎÁÌÎÒÊÀ";Ó!ÑÊÎÐÐÅØÐ0ÂÀÍÍÎÅ ×ÈÑËÎ ØÒÊÎÂ-;«(Ó) 2590NEXT Ê 2600IF J=l THEN 2630 2610LET T9=1:LET J=l 2A20G0T0 2273 2630LET Rl=Rl+2»Hi 2640LET I1=I1-2«H4»R1/I1 2650LET 11=11»Ê8-»ÑÊ8-1) 2655LET I1=INTCI1*100)/100 2657PRINT 2iS60PRINT"SHAMETP ÂÍÓÒÐÅÍÍÅÃÎ ÎÒÂÅÐÑÒÈß ÏÎÑËÅ ÓÊËÀÄÊÈ ÂÑÅÉ ÊÀÒÓØÊÈ (ÌÌ) "ß! 2670IF 11)=10 THEN 28U 2680PRINT"WEHbBE ÄÎÏÓÑÒÈÌÎÃÎ ÑÞ ÍÌ)" 2iS90PRINTBAHH ÄÅÉÑÒÂÈß : ÂÛÁÅÐÈÒÅ ÎÄÈÍ ÈÇ ÂÀÐÈÀÍÒΠ(ÄÀ-!)" 2700PRINT"EÓÄETE ÏÅÐÅÕÎÄÈÒÜ Ê ÑËÅÄÓÞÙÅÌÓ ÝÒÀÏÓ PAC4ETA"!!lNPUT El 2705IF ElOO THEN 28È 2710ÐÐ1ÍÒ"ÁÓÄÅÒÅ ÓÂÅËÈ×ÈÂÀÒÜ ÏËÎÒÍÎÑÒÜ ÒÎÊÀ Á QBMOTKAX"!!INPUT Å2 2715IF Å2=0 THEN 2735 2720PRINT"ÑÒÀÐÎÅ ÇÍÀ×ÅÍÈÅ ÏËÎÒÍÎÑÒÈ ÒÎÊÀ-.ÂÇ 2725PRINT"H0B0E ÇÍÀ×ÅÍÈÅ ÏËÎÒÍÎÑÒÈ ÒÎÊÀ-ÒÀÁË.5.9 (ÑÏ,ÑÒÐ.177) "J 2726INPUT Â2 2730G0TO 2010 2735ÐÐ1ÛÒ"ÁÓÄÅÒÅ ÓÂÅËÈ×ÈÂÀÒÜ ÌÀÃÍÈÒÍÓÞ ÈÍÄÓÊÖÈÞ"!:INPUT ÅÇ 2740IF Å3=0 ÒÍÅÍ 276S 27i5PRINTCTftP0E ÇÍÀ×ÅÍÈÅ ÌÀÃÍÈÒÍÎÉ ÈÍÄÓÊÖÈÈ" !Â1 2750PRINT"H0B0E ÇÍÀ×ÅÍÈÅ ÌÀÃÍÈÒÍÎÉ ÈÍÄÓÊÖÈÈ-ÒÀÁË.5.9 (ÑÏ.ÑÒÐ.197) 2755INPUT Á1 2760G0T0 507 2765PRINT"ÁÓÄETE; ÏÅÐÅÕÎÄÈÒÜ Ê ÄÐÓÃÎÌÓ ÒÈÏÎÐÀÇÌÅÐÓ ÑÅÐÄÅ×ÍÈÊÀ"!!INPUT Å5 2770IF Å5=0 THEN 2780 2775G0T0 505 2780PRlNT"ByaETE ÓÌÅÍÜØÀÒÜ ÒÎËÙÈÍÓ ÈÇÎËßÖÈÈ"ß INPUT Å4 2785IF Å4=0 THEN 2795 2790G0T0 2180 2795ÐÐ1ÍÒ"ÁÓÄÅÒÅ ÓÌÅÍÜØÀÒÜ ÒÀÁËÈ×ÍÛÉ ÄÈÀÌÅÒÐ ÏÐÎÂÎÄÀ";:INPUT E2 2800IF Å2=0 THEN 266Q 2805G0TO2050 28UPRINT 2815LET Rl=Rl»Ka-D9S((K8-15tLET H=B+D8-U 2820REH ÎÏÐ. ÏÎÒÅÐÈ Â «ÅßÉ 2830PRINT-nQ ÒÀÁË.5.7 (tlT.CTP.18A),Á ÇÀÂÈÑÈÌÎÑÒÈ ÎÒ ÏÐÅÄÅËÜÍÎÉ PAEOHES" 2831ÐÐ1ÌÒ"ÒÅÌÏÅÐÀÒÓÐÛ ÏÐÎÂÎÄΠÎÁÌÎÒÊÈ .ÂÛÁÅÐÈÒÅ ÊÎÝÔÔÈÖÈÅÍÒ Ì" 2840PRINT"ÏPEÄEËÜHAß ÐÀÁÎ×Àß ÒÅÌÏÅÐÀÒÓÐÀ ÏÐÎÂÎÄΠÎÁÌÎÒÊÈ"!:INPUT ÒÇ 2845PRINT-K03MMHMEHT M"iJ!lNPUT Í 2850LET Ð=0 2860F0R Ê=1 ÒÎ N1 2870LET P4=U2 (Y) «W tY) StS «)»1Å-â:ͻ (VI SSi;() 2880LET P=P+P4 2890NEXT Ê 2895LET P=INT(P»100)/100 2899PRINT 2900PRINT"CyMHAPHHE ÏÎÒÅÐÈ Â ÌÅÄÈ (ÂÒ)",Ð 2905PRINT 2910RE« ÒÅÏËÎÂÎÉ ÐÀÑ×ÅÒ 2920PR:HT"BBEaMTE ÎÄÍÎ ÈÇ ÇÍÀ×ÅÍÈÉ ÒÅÌÏÅÐÀÒÓÐ11 OKP)X«EK * 2921FRmTCPE«U - 50 ÈËÈ 70 ÃÐÀÄÓÑÎÂ"! 2925INPUT Ò 2927PRINT 2930IF Ò=50 THEN 2945 2935IF Ò=70 THEN 2943 2940PRINT"nOBTOPnTE ÁÂ0Ä".!0ÎÒ0 2923 2945LET Q1=50:LET J1=1:LET C=l 2946IF P2)15Q THEN LET 0=1.25 2950LET H2=(H+R1-I1)«0.001 2955LET A=5.iS/((Hl)0.25) 2960LET S).=3.).4159itRHt(H+Rl/2)«0.0001 2961LET S1=S1«0.01 29A51-et Tl=t+273+al 2970IF t=70 THEN 2970 29801.ET L3=U)lA+38)«O.0OmTl-(0.91»a+5.a) 298560T0 3000 2990LET L3=(t.6i»a+37.8)»0.0Ol«Tl-(1.23«At4.76) 3000LET Zl=L3ilSl 3010LET a=(P3+p)/CZl-0.004«p«C) 3015ðã(1íò-è;åðéöèÿ";ë;"ÏÎÂÅÐÕÍÎÑÒÍÎÅ ïðåâûøåíèå òåìïåðàòóðû(rpAa.)"jQ 30uif .Jl>a then 3030 3020 lFABSCa-OlXl.5 THEN 3030 3025LET B1=B:LET Jl=Jl+l!G0T029i55 3030let a2=a»c 3032LET a2=INT (02X10)/10 3035PRINT"CPESHE0BEMH0E ÏÐÅÂÛØÅÍÈÅ ÒÅÌÏÅÐÀÒÓÐÛ (ÃÐÀÄÓÑÛ)"502 3050PRINT"yCTPAHBAET ëè âàñ ÝÒÎÒ ÐÅÇÓËÜÒÀÒ (äà-1)INPUT Å6 3055IF åàîî THEN 3155 3060PRINT"t0ãäa ÂÛÁÅÐÈÒÅ ÎÄÈÍ ÈÇ ÂÀÐÈÀÍÒΠ(äà-1)" 3065ÐÐ1ÍÒ"åóäåòå ÑÍÈÕÀÒÜ ñðîê ñëó1åû ÒÐÀÍÑÔÎÐÌÀÒÎÐÀ";:INPUT å7 3070IF å7î0 THEN 3155 3075ÐÊ1ÌÒÁÓÄÅÒÅ ÏÐÈÌÅÍßÒÜ ÒÅÏËÎÑÒÎÉÊÈÅ ÏÐÎÂÎÄÀ";:input Å8 3080IF ÅÂ=0 THEN 309Î 3085GOT02050 3090ÐÍÌÒ"ÁÓÄÅÒÅ ÈÇÌÅÍßÒÜ ÒÈÏÎÐÀÇÌÅÐ ÑÅÐÄÅ×ÍÈÊÀ,ÉÍÄÓÊ×ÈÞãÏËÎÒÍÎÑÒÜ ÒÎÊÀ» 3091INPUT å9 3095IF å9=0 THEN 3033 3100PRINT"CTAPWE ÇÍÀ×ÅÍÈß S" 3102ÐÐ1ÍÒ"ÈÍÄÓÊÖÈß • ",Â1 3103PRINT"T0K ÕÎËÎÑÒÎÃÎ õîäà (Z)";IO 3110ÐÐ1ÍÒ"ÏË0ÒÍ0ÑÒÜ ÒÎÊÀ ",Â2 3120PRINT"H0BHE ÇÍÀ×ÅÍÈß - ÒÀÁË.5.9 (Ñ1],ÑÒÐ.197) 3125ÐÐ1ÌÒ"ÌÀÃÍÉÒÍÀß ÈÍÄÓÊÖÈß",!INPUT Â1 3130ÐÐ1ÍÒ"ÏË0ÒÍ0ÑÒÜ ÒÎÊÀ ";:INPUT Å2 3135G0T0 505 3155LET N4=P2«100/(P2+P3+p) 3156LET 10=1ÍÒ(10*10)/10 3157LET N4=INT(N,»10)/10 31A0LET I(l)=INT(I(l))HOOO>yiOOO 3170F0R Ê=1 TO N1 3180LET R(K)=INT(R(K)«100)/100 3190LET B4(Ê)=INT(B4(Ê)«1000)/1000 3200LET V1(K)=INT(V1(K)»100)/100 3210LET èç (K)=INT(U3(K)«100)/100 3250NEXT Ê 3999PRINT tOOOPRINTEXSETE ÂÛÂÎÄÈÒÜ ðåçóëüòàòû ÐÀÑ×ÅÒÀ (SA-i)"!.-INPUT 24 400SIFZ6=0THENEND 4006PRINT!FRINT:PRINT 4007PRINT:PRINT:PRINT 4010ÐÐ1ÌÒ"ÒÐÀÍÑÔÎÐÌÀÒÎÐ ÒÎÐÎÈÄÀËÜÍÛÉ. ×ÀÑÒÎÒÀ ÑÅÒÈ (ÃÖ)";ð 4013PRINT 4020ÐÐ1ÌÒÑÓÈÌÀÐÍÀß ìîùíîñòü ÂÒÎÐÈ×ÍÛÕ ÎÁÌÎÒÎÊ (ÂÒ)";Ð2 4030ÐÐ1ÌÒ"Ê.11.ä. ÏÐÈÍßÒÛÉ (ó) ";N3«100 4031ÐÐÌÒ"Ê.Ï.Ä. ÐÀÑÑ×ÈÒÀÍÍÛÉ (Z) "!n4 40À0ÐÐ1ÌÒ"Ò0Ê ÕÎËÎÑÒÎÃÎ õîäà (Z) ";10 40A5LET 0=INT(0«10)/10 4047ÐÐ1ÍÒ"ÏÐÉÈßÒÀß ÒÅÌÏÅÐÀÒÓÐÀ ÎÊÐÓÕÀÞØÅÉ ÑÐÅÄÛ(ãðàä)";ò Ë050ÐÐ1ÍÒ"ÑÐÅÄÍÅ0ÁÅÌÍ0Å ÏÐÅÂÛØÅÍÈÅ ÒÅÌÏÅÐÀÒÓÐÛ(ãðàä)";02 4051PRINT"n0BEPXH0CTH0E ÏÐÅÂÛØÅÍÈÅ ÒÅÌÏÅÐÀÒÓÐÛ (ãðàä)";à 4055PRINT /lOAOFOR 1=1 Ò071 40AIPRINT"-";!NEXT bPRINT 4070PRINT"\ 0ÁÌ0ÒÊÀ""\ ÍÀÏÐßÍÅÍÉÅ","\ Ò0Ê","\ ÑÎÏÐ.", 407irRINT"\ ÏËÎÒÍÎÑÒÜ \" 40B0PRINT"\ n","\ â"." ft">"\ Ò=+105 C"i •40S1PRINT"\T0KA A/lMMjw (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) |
|