: 8/12

2.4.3. IBM.

:

(2.4.1)

:

10 PRINT " "

20 INPUT M

30 FOR I = 1 TOM

40 PRINT " "

50 INPUT X

60 PRINT " "

70 INPUT Y

80 PRINT " "

90 INPUT Z

100 LET A = X * Y * Z + A

110 NEXT I

120 LET B = A * 1E - 6

130 PRINT " "

140 INPUT C

150 LET D = B * C

160 LET E = 1/D

170 PRINT " ";E

180 PRINT " "

190 INPUT Q

200 FOR S = 1 TO Q

210 PRINT " "

220 INPUT T

230 LET K = D * T

240 LET P = 1/EXP(K)

250 PRINT " ";P

260 NEXT S

270 END

=71281,93. .2.5

2.4.4. IBM.

10 CLS

20 SCREEN 2

30 PRINT " "

40 PRINT "----------------------------------------"

50 PRINT " "

60 PRINT "----------------------------------------"

80 IF INKEY$ <> " " THEN GOTO 80

90 CLS

95 SCREEN 1

100 PRINT " ";

110 INPUT N

120 IF N <= 0 OR INT(N) <> N THEN GOTO 90

130 CLS

140 FOR I = 1 TO N

150 PRINT " ("; I; ")"

160 PRINT "

170 PRINT "

180 PRINT "

190 PRINT " ";

200 INPUT X

210 PRINT " ";

220 INPUT Y

230 PRINT " ";

240 INPUT Z

250 A = X * Y * Z + A

260 NEXT I

270 PRINT " . ";

280 INPUT C

290 IF C = 0 THEN GOTO 270

300 PRINT " -

";

310 INPUT TSRZ

320 D = A * .000001 * C

330 G = 1 / D

340 CLS

350 PRINT " T..="; G;

"."

360 IF G < TSRZ THEN PRINT "T.. ";

370 IF G >= TSRZ THEN PRINT "T.. ";

380 IF G < 1000 THEN GOTO 420

390 IF G < 10000 THEN GOTO 440

400 IF G < 100000 THEN GOTO 460

410 IF G < 1000000 THEN GOTO 480

420 S = (INT(G / 100) + 1) * 100

430 GOTO 490

440 S = (INT(G / 1000) + 1) * 1000

450 GOTO 490

460 S = (INT(G / 10000) + 1) * 10000

470 GOTO 490

480 S = (INT(G / 100000) + 1) * 100000

490 PRINT

500 PRINT "

P(T)=EXP(-T/T.)"

510 FOR I = 0 TO S STEP S / 10

520 PRINT " X="; I, "Y="; 1 / EXP(D * I)

530 NEXT I

540 PRINT

550 PRINT " , ";

560 IF INKEY$ <> " " THEN GOTO 560

570 CLS

580 SCREEN 2

590 PRINT " P(T)=EXP(-T/T..)"

600 LINE (0, 200)-(0, -200)

610 LINE (0, 0)-(600, 0)

620 PSET (0, 0)

630 FOR I = 0 TO S STEP S / 10

640 X =I / 10

: 30/03/2006