Реферат: Лабораторные стенды в учебном процессе

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