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



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 "ВВЕДИТЕ ПОПРАВОЧНЫЙ КОЭФФИЦИЕНТ";

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

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