IBM.

:

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.

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

650 Y = (1 / EXP(D * 1)) * 100

660 IF X >= 600 THEN GOTO 690

670 LINE -(X, Y)

680 NEXT I

690 LINE -(600, Y)

700 IF INKEY$ <> " " THEN GOTO 700

710 SCREEN 1

720 CLS

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

740 PRINT " (T) "; 0; " "; S

750 PRINT "T.=";

760 INPUT TZ

770 IF TZ < 0 OR TZ > S THEN GOTO 760

: 1 2 3


, ...

-
- , , ...

.
, , , , ? , 525- ...

.

.

.

.

.



www.anytechnic.ru