->

(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) (49)

45DATft 0.0,0.0,0,0,0 P5,EbE2,E3rE4.E5,E8 47 48REA» 9

5oprint" "

51PRINT" "

52PRINTiPRINT:PRINT

531«"00 :"

54PRINT"!. .. . * 55PRINT"MO0HOCTH. .2-.-.,,1973,400 ."

56PRINT"2. .. . " 57100. -. . 1963,275 ," 58PRINTSPRINT

601" :" 41PRINT

651"00 ".:INPUT N1 70PRINT-4ACT0TA () ".!INPUT F

85PRINT-BH0CT: (0) (1) "JiINPUT VOPRINTSAAAHHUE 11» () :"

?21 U(20bl(20) ,N4(20) ,02(4) ,01(20) ,3(20) ,D(20) .D2(20) ,33(20) ,G(20) .4(20) 93BIM U8(20).Wl(20).H5(20).l2(20),R(20>,U3(20).W(20) lOOFOR K=l TO N1 110PRINT"U-iK;-=--:INPUT U(K) 120NEXT

130PRINT-3AAAHHME (A) ;*

140F0R K=2 TO n1

150PRINT-I-!Kr="!!lNPUT UK)

160NEXT

170LET p2=0

180F0R K=2 TO N1

190LET p2=p2+U(K)»I(K)

200NEXT

205PRINT

2lOPRINT" () p2=";f-2

212PRINT"3AnOMHMTE "!:PRINT

215PRINT

220REM

230F0R =1 N1

240IF U(K)<=250 THEN 300

2501F 4=1 280

260LET :)=1.5»U(K)+50o-4E4/u()-U()«()/1.2

27OG0T0 380

2801 U8 () =» () +1000-7,54/ () - () « () /54

290G0T03B0

300IF 4=1 THEN 350

3iolet U8(K)=500

320IF IKK)(=100 THEN LET Ua(K)=250 330IF U(K)(=24 THEN LET U8(K>=125 340G0T0380 350LET U8(K)=1000

360IF U(K)<=100 THEN LET U8(K>=500 370IF U(K)(=24 THEN LET U8(K)=250 3B0LET U8(K)=INT(U8(K>> 383NEXT

3851"0 , ." 386PRINT"4T0 (., )," 387PRINT"TEM - " 1 " 389PRINT:PRINT"BBEflnTE ( )" 390F0R =1 N1:INPUT N4(K):NEXT

395PRINT-B * 396PRINT"EHT ( ,.65)" 400PRINT"BBEflnTE " 2 410PRINT"BBEflHTE ( )",-.INPUT 420FRINT



430PRINT"B " 311"110 .5.9 11],.197) 432" :" 442LET 2=0.88

450PRINT"MAX )INPUT BI

4&01"00 /"2 )",:INPUT 2

47OPRINT"KO30. ">:INPUT Kl

4801"0. "/;INPUT N3

500LET m)=P2/(U(l)»N3)

505LET Sl= (P2»100) C2.22)(F)(K1»K2)

S07LET S=S1/(BH(B2)

509PRINT

5l0PRINT"0A * : S(CT)»S(OK)="!S 5151" () 2=";2 520PRINT"nO 2.8 () , " 5301" S(CT)»S(OK) 2 " 5311" :" S32PRINT

1"0 * ",:INPUT S2 540FRINT"0A (-) ",: INPUT S7 ESOPRINTBHyTPEHHHH (MM)-,:INPUT D8 S60PRINT"HAPy)l(HHH () ~,: INPUT 09 5701"0 () ",:INPUT

5801- ()";:INPUT L 590PRINT"MACCA () INPUT G

591IF 3=0.15 THENiAO S92LET G=G»K2/0.9 640IF 5=1 THEN 830 642IF 3=1 THEN830 AA3IF ES-l THEN 830 6? £9=1 THEN830 449PRINT

650PRINT"nO .S.10 ,. 199) "

651PRINT"B ()"

iiOIFNl>4 THEN 7i0

i70IF N4(1) Ol THEN7iO

&801" ",,:INPUT VI

6901"0 ",,:INPUT V2

700LET V2(2)"=V2»0.8:LET V2(3)=V2:LET V2 (4) =02»1.2

710F0R K=2 TO N1

713 LET I=N4(K)

720LET yl(I)=V2(K)

730NEXT

740LET V1(1)=V1

7S0G0TO830

7iOFRINT"THBA , 7&11" 85 " 770PRINT "IsFOR 1=1 55 771 PRINT"-"! sNEXT- I iPRINT

780PRINT" \ , ","\ ","\"

781PRINT" \ \ 1 (/,)"\"

790PRTNT" "MFOR 1=1 55

791PRINT"-";!NEXT I:PRINT

800FOR =1 N1

eiOPRINT" ",N4(K)i"\",:INPUT V

812LET I=N4(K)

8ULET V1(I)=V

820NEXT

822PRINT

830REH 840LET W=lE4y(4.44»F«BHfS7»K2) 842PRINT

850LET W(l)=U(l)4(l-Vl(l)»0.01>)(U

eS2IF U(l)(>INT(U(l)) THEN LET U(I)=INT(U(1))tl

8S3LET Ul(l)=U(l)

E55PRINT"0BM0TKA 1 1 "itffl-)



8A0F0R K=2 N1

870LET U(K)=U(K)»Cl+Vl(K)»0.01HtU

872IF WIK)<)INT(U(K)) THEN LET U(K)=INT((K))+1

873LET UL(K)=U(K)

875PRINT-0EM0TKA-;K;"4HCM ",U(K) 880NEXT

882IF E5=l THEN 930

900REM 904PRINT

905PRINT"BEflH4nHA () ";1

9101" .5.13 ([l]iCTP.197) " 911PRINT"B (/)",:INPUT F1

920FRINT"nO .5.12 (».19) "

921PRINT"B /)INPUT Q1

930LET =1»0

931LET I7=P3/U(1)

940LET I8=ai«L/U(l)

950LET 19=3(17«17+18»13>

960LET 10=19*100/1(1)

962PRINT

970IF F=400 THEN 1020 980IF 10(20 THENlOtO 990IF 10)40 THEN 1070

1020IF 10)20 THEN 1070 1030 GOT02000

104017" ";IO;"(Z) ," 1041"0 " 1050PRINT - 1051LET 5=1

10S4PRINT"CTAP0E ()",1 10S5PRINT"HOBOE "INPUT 1 10A0GQT0507

1070PRINT"BEfln4HHA ";10;"CZ) ," 1071FRINT"nD3T0My " 1080FRINT 1081LET 5=1

1084PRINT"CTAF0E ()",.1 1085PRINT"HDB0E ",:INPUT 1 1090G0T0507

20001" (;()", 10 2001PRINT

2002IF 3=1 THEN2270 2003IF 5=1 THEN 2270

2010REM

2015LET Y=N4(N1)

2020LET S(Y)=I(Y)/(B2«1.25)

2030FQR =1 N1-1

2040LET Y=N4(K)

2041LET S(Y)=I(Y)/(B2»0.8)

2045NEXr

20501" .1.1 ([,.359)

20511" "

2060F0R =1 N1

2062PRINT

2065LET Y=N4(K)

2070let d1=1.13»sqr(s(y))

2080print"Dbmdtka"y;" (mm)";di

20851" ( )";:input (y) 2110print-ete ";-.input 02 (y) 120" ",: input s3(y) 21301" (r)";!lnput e(y) 2140let b4(y)=i(y)/s3(y)

2150NEXT

2152 IF 2=1 THEN 2220 21531 9=1 THEN 2220



(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)