..

##**** 2B PRINT

38 PRINT " 1"

4 PRINT " , /" 5 INPUT 1

6 PRINT " , % ' 7 INPUT XI

SB PRINT " , X" 90 INPUT 2

18 PRINT " , ATM" 11 INPUT PI

128 PRINT " , ATM" 13 INPUT 2

14 PRINT " 1"

15 PRINT " , /~3" 17 PRINT " , # ? j 188 INPUT Ml

198 PRINT " , /<*>"5 2 INPUT CI

218 PRINT " , /(M*K)"; 22 INPUT LI

1

238 PRINT " ."I

248 INPUT

238 PRINT " , /- 268 INPUT 2

278 PRINT " PtffBOPA , /<*>" !

2S8 PRINT " "

388 PRINT " - 1 , - " 31 INPUT

32 IF λ1 THEN 8=38888 338 IF G-BTHEN 0-88

34 PRINT " ,̻| 35 INPUT D1

36 PRINT " ,"5 37 INPUT D2

388 PRINT " ,") 39 INPUT

48 PRINT " ," 5 418 INPUT

42 PRINT " ,/<̻)"s 43 INPUT L2

44 PRINT " ,2#/" 443 PRINT " "; 43 INPUT Z1

46 PRINT " "! 47 INPUT Z2

4SB PRINT " ATM., ? "!

49 INPUT 2

PRINT " 1 ." 31 REM 32 T4-T1+ZB

33 PRINT " -",4

150

151

1130 PRINT ",/"3" 1140 INPUT 16

1150 PRINT "," 1160 INPUT 2

1170 PRINT ",/(̻)" 118 INPUT L3

1190 PRINT " ,/"

1200 INPUT

1210 -9

1220 GOSUB 3000

123 R3=Y

1240 SOSUB 400 -. - 1250 B7-Y

1260 K=780(L3"1.3)(B6'4.3)1270 K1=(1/A1)+IS/L1)+Z1+Z2

128 01=1*02+<1/)2~.4'0

1290 FOR FJ2-10B 50000 STEP 100

1300 02-12+<1/)2".4

131 IF 1320 NEXT 02

1330 F2=Q/B2

1340 PRINT " ,M"2"!F2

1345 PRINT

1346 PRINT

1350 PRINT " 11987-81 " 1360 PRINT " 0"!2 1500 STOP

2000 IF <-.06 THEN Y=-7.649131+1697.732*X-2685B.81XX+177447.3 X*XX

2005 IF X< = .3 THEN Y=22.42275+278.BB76*X-541.26434*XX+438. 9833*X X*X

2B1B IF X<-1.4 THEN Y-49.A591+80.11919*X-39.Al172XX+8.9336AA*X XX

202B IF X<-6 THEN Y-75.32823+29.19957X-4.B743402XX+.2514S94X XX

2030 IF X<=13 THEN Y-105.5025+11.653S6X-.3563233*X + .012A2A26*X X*X

2B40 IF X<-20 THEN Y=133.5559+5.337798X-.07235863*XX 2050 RETURN

2500 IF X<30 THEN Y=3.931368E-03+A.371563E-04X-2.609464E-06XX+ 7.538592E-07XXX

2510 IF X<=10B THEN Y=-.2909343+.01674627X-3.016731E-04XX+2.66 665397E-06XXX

252B IF X<"=15B THEN Y=-10.59319+.2838133X-2.62235E-03X*X+9.4500 46E-06X*XX

253B IF X<20B THEN Y=31.964B5-.4B01632X+1.997332E-03X*X 2540 RETURN

3BB0 Y=2493.102-2.268716#X+1.031009E-B3XX-1.684377E-05*XXX 3B10 RETURN

3500 Y=2493.343+1.896826X+1.071497E-.3X*X-1.462417E-05XXX 3510 RETURN

4000. IF X<45 THEN Y=4.762819E-03+3.995474E-04X+3.237119E-06*XX+

3.936116E-07XX

4B03 IF X<45 THEN 4040

4010 IF X<=85 THEN Y.05433255+4.189605E-B3X-B.B05651F-05X*X+1 .024192EH36X*X4015 IF X<-85 THEN 404B

4020 IF X<125 THEN Y.66370209+.B2443691X-3.176666E-B4X*X+1.96

6953E-06X*X*X

4025 IF X403B Y=-4.331623+.103334*-9.54771-04*+3.586353E--06X*X*X 404B RETURN 5000 END

152

153

1 REM ??.#.##*#****?****************

2 REM 8 < 3- ) * ?.. REM . - - 1989 * 4 ,*.****#????#******** 12 DIM !>.Yt3B>,Y1<3>,Y3(3B>,Y2<3B>

2 PRINT " , N"1 INPUT N

48 PRINT " X - , 41 PRINT "V - " 43 S-B 46 1=

SB PRINT " X","V" FOR 1-1 TO N 7B PRINT l|")"i SB INPUT X(l),V(11 S3 SB*XU> 86 Bl-Sl+YU) 9B NEXT 1

IBB 62=8 I

IBI =

1B2 4- 1B3 - 11B B3=B m S6-B 112 37-B

i2B se-a

121 Zl"8

122 Z2-8

125 Z3-8

126 Z4-B

13B FOR 11 TO N 14B X=X(1>*X<1> 141 S2-32+X 138 XX(1)X 131 B3-B3+X

16B x-x=x(i)x

161 S4=S4+X

170 X=X<1>X

171 85-B5+X 188 X=XU9X 181 B6-S6+X 19B X=X(1>X 191 87-B7+X 2BB X-X(l)X 2B1 SB-8S+X 21B Z-X<1>*V<1> 211 Z1=Z1+Z 228 Z=X<1>-Z 221 Z2-Z2+Z 23B Z=XC1)#Z 231 Z3=Z3*Z 248 Z=Xfl)*Z 241 Z4=Z4+Z 25B NEXT 1

26B Bl=-S/N

278 AB-91/N

273 F1-B2+B1*B

2SB A1=/Fl

318 GOSU

45
< > 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

" " (3.61Mb)


[]  []  [ ]  [-]  []  [ ]

 

 


- - .

.

. . , , . , . , , .

.

- . , , , , , , . , , , , , , , . , , , , , , , . , . , , , . , 1972 .

 

 



@Mail.ru Rambler's Top100

Copyright 2001-2012
(25.03.2017)