->

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

170 : "j

173 PRINT"0.). » ";1?<"

180 1" « "

185 PRINT"3ASEP)!KH "FN0((0.I»T1/X)2)"

190 GOSUB 920

195-IF Y01 THEN lis

200 LET =. N=(1.13«T/X)-1.5:PRINT:LET X=N 203 LET Z1=0:LET C=T»1Ei4/N/R: IF C<1 THEN 287

205 PRINT"PAC4£TH0E W -()

206 IF N)100 THEN 227

207 IF THEN 210

203 IF FNN(N)=FNN(INT(N+,0001)) THEN LET X=INT(N+.0001):GOTO 285 210 ";:GOSUB 900 215 IF INT(X)=X THEN 226

217 IF 72)2 THEN PRINTBll ":END 220 1"00 "

225 LET Z2=72+l!G0T0 210

226 IF X<26 THEN 232

227 PRINT"M3r0T0BflEHME "

228 IF >75 THEN PRINTHPOBEPbTE ".-ENIl

229 GOSUB 920

230 IF Y=0 THEN LET X=999:G0T0 223

232 IF X)=N THEN 250

233 IF XnNT(N) THEN 247

235 PRINT"BH *[) « » 240 1".-;:60 920

245 IF Y=l THEN LET 0=.13»T/N\66667:G0T0 285

246 GOTO 275

247 PRINTBH CXWECTBEHHO ,"!

248 LET Z1&Z1+1:G0T0 275 250 IF N+l)X THEN 285

255 pRINTTAKOE * 265 PRINT" B"FN0(X/INT(N+l)+.08)- . "CGOSUB 920 270 IF Y=l THEN 285

275 PRINT"noBTOPHT£ ";;GOSUB 900 280 GOTO 215

285 LET N=X!LET C=T«1E6/N/R!PRINT:LET Z=0

286 IF Ol THEN 290

267 , "

288 1"00 "

289 PRINTJEND

290 PRINT"PAC4ETHAfl "

295 PRINT FNN(C)" *. "

300 1"0 (/.); LET Z1=0:LET Z2=0.

305 GOSUB 900

310 FOR 1=0 TO 6

315 IF D(I)=X THEN 333

320 NEXT I

322 LET Z=Z+1!IF Z<3 THEN 32S

323 1" 2519-67

324 END

325 1"0 "f 330 PRINTS " :PRINT"Cy»IECTByET. "JIGOTO 370

335 IF X)0.9»VO THEN 385

336 IF <«0.4 THEN 400

340 PRINT"nPH , "

345 PRINTEMKOCTH "

350 1"00 ."

355 GOSUB 920

365 IF Y=l THEN 420

370 PRINT"HA3HA4bTE ()";:00 305

385 PRINT- "

390 PRINT-HE "

395 1"0 ."

396 LET ZI=Z1-H!G0T0 370 400 IF U0-X<10 THEN 420



jf x).19»v0 then «20

403 print- "

405 print- "

410 print-bm "

412 gosub 920

415 if yol then 370

420 let co=x:let v1=2»v-x:let u1=2»w-x:let vo=00-x:let z1=0 425 let p=fnp(c>:let c1=c/10-p 430 if i<4 then 465

435 let j=int(log(c1)«3»2"i/log(10))

440 let c2=int(exp(j»LOGaO)/3/2"i)»100)/100

445 let c3=int(exp((j+l)»log(10)/3/2i)«100)/100

450 if 02=9.19 then let 02=9.2

455 if 03=9.19 then let c3=9.2

460 goto AB5

465 for j=0 to 24 step 2"(3-i) 470 if c4(j)>c1 then 480 475 next j

480 let c2=c4(j-2m3-i)):let c3=c4(j)

485 let c2=fnn(c2-)(10"p) :let c3=fnn (c3»10---p) :let 72=0

490 let c1=0:if 1-02/0)03/0-1 then let 01=1

495 " ")

500 print-";-.gosub 900

501 if xol then 504

502 "* "11>". -"--»."

503 goto 495

504 let x=fnn(x)

505 if x=c2 then 530 510 if x=c3 then 540

512 let z2=z2+l:if z2<3 then 51s

513 print- 2519-67"

514 end

515 print"beeflehhqe "! 520 print"coqteetctbyet "

525 prinr"3ha4ehmi0 "ikdx 493

530 if 1= then

535 goto 550

540 if 01=1 then 580

550 print"bae " 555 - , " 560 print-."

545 print-norpeuhoctb ((1-2/)»100)"jf"

566 1" ctop0hy"fnn((c3/c-l)«100)-x"

570 gosub 920

575 if yol then 495

577 let c1=1-c1

580 let g=(x/c-1)«100

582 if abs(g)<0.01 then let p=g/2:g0t0 735

583 let j=(v1+w1-abs(g>)/2:if j>VO then let j=yo

592 print- "

593 print"emkqcth> "

594 print" "sgn(g!«fnn(abc(g/2))""

595 print- --sgn(g)kfnn(abs(g/2)>-jc

596 print:if abs(g)<vo/50 then let p=g/2:g0t0 725

697 print- "

599 frint- "

601 print- "

603 print"opehoct "

605 let z=0:let z1=0

615 let 2=z+l:if z(>3 then 660

617 print " , * 620 print- l , " 622 print-bohdboo . "

625 print - . , "

626 print- , "

627 print-paciethoro - "



428 PRINT-L ."

632 PRINT-B "

635 PRINT- , "

637 PRINT-. ,"

640 PRINT-3A "

643 PRINT- Y, L "

645 FRINT"-Y , , "

647 1"00 YX. ,"

650 PRINT"BHBEPHTE "

660 IF Z(6 THEN 670

662 PRINT- " 665 END

670 PRINT-HA * ">

672 INPUT

675 IF ABS(P)(U0-ABS(G) THEN 682

677 PRINT- " «78 1«"00" 680 GOTO 615

682 IF Pi!G)=0 THEN LET C2=V0:GOTO 690

685 PRINT"BH " 687 GOTO 615

690 LET U0=V1-ABS(P)!LET Z2=W1-ABS(p-G) 692 IF U0)Z2 THEN LET V0=Z2 695 IF V0)jy2 THEN 710

697 PRINTCMEMEHHE , " 699 PRINT " " 708 LET V0=C2:G0T0 615 710 IP 00)0.95»J THEN 725

712 PRINT- "

715 PRINT-HE . "

717 PRINT-B03FACTET "FNQ((JyVO)"2+0.05)" -

720 GOSUE 920

722 IF Y01 THEN 708

725 LET L=(T»(l+PyiO0)/N)-2yX«1000000

730 PRINT:PRINT,- "

740 PRINT"BPEMH ",T-+--V-X "

750 PRINT"BQHQBOE ",R"+-"M"X "

760 PRINTflflHTEflbHOCTb -FNN()" "

765 1"0 ""

770 PRINT- ",N

775 1" ",X"+-"CO"Z "

780 PRINT- ",FNN(L)""

785 PRINT"MAKCMHDE HKTBHOCT"FNN (00)";( 790 PRINT:PRINT:pRINT

795 PRINT- .";pRINT,-3flEKTP0HHKA - 60" 800 STOP ?00 INPUT X

905 IF )0 THEN RETURN

906 LET Z=Ztl:IF Z(4 THEN 909

907 PRINT "BH . "

908 PRINT " ":GOTO 38

909 IF Z=2 THEN PRINT " "

910 PRINT " "; 915 GOTO 900

920 PRINT"yCTPOHT "!

925 INPUT Y

926 IF Y=l THEN LET Z1=0:RETURN f27 LET Z1=Z1+1;IF Zl(4 THEN 930

,923 PRINT- " 929 ENIl

930 IF 21=3 THEN PRINT- l"

931 RETURN

950 DATA 30, 20, 10, 5 , 2 , 1 ,0.5,1.0 955 DATA 1.1,1.2,1.3,1.5,1.6,1.8,2.0,2.2 960 DATA 2.4,2.7,3.0,3.3,3.6,3.9,4.3,4.7 965 DATA 5.1,5.6,6.2,6.8,7.5,8.2,9.1,10.



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