Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата



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

Рекомендуем скачать другие рефераты по теме: конспекты статей, сочинение рассказ.

Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата