Математическое моделирование в литейном производстве. Черный А.А. - 118 стр.

3300 PRINT #1, "U(J)=L(J)^"; J3; "+"; V3
3301 PRINT #1, "ОБОЗНАЧЕНИЕ:L(J)- 3-й ФАКТОР"
3310 IF X = 8 GOTO 3350
3320 PRINT #1, "Q(J)=K(J)^"; J4; "+"; V4
3321 PRINT #1, "ОБОЗНАЧЕНИЕ:K(J)- 4-й ФАКТОР"
3330 IF X = 16 GOTO 3350
3340 PRINT #1, "V(J)=M(J)^"; J5; "+"; V5
3341 PRINT #1, "ОБОЗНАЧЕНИЕ:M(J)- 5-й ФАКТОР"
3350 PRINT "IF I0=18 GOTO 1620-ПЕРЕХОДЫ"
3355 PRINT "IF I0=19 GOTO 2080-ПЕРЕХОДЫ"
3360 PRINT "IF I0=35 GOTO 610-ВВОД НОВЫХ Y(J)"
3365 PRINT "IF I0=44 GOTO 6830-КОНЕЦ"
3370 PRINT "IF I0=50 GOTO 40-НАЧАЛО"
3371 PRINT "IF I0=51 GOTO 2150-ПРОВЕРКА ТОЧНОСТИ И"
3372 PRINT "           РАСЧЕТЫ ПО МОДЕЛИ"
3373 PRINT "IF I0=52 GOTO 7000-"
3376 PRINT "        ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5) "
3378 PRINT "        С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ "
3379 PRINT "        И ПОСТРОЕНИЕ ГРАФИКОВ"
3380 PRINT "ВВОД I0": INPUT I0
3390 IF I0 = 18 GOTO 1620
3400 IF I0 = 19 GOTO 2080
3410 IF I0 = 35 GOTO 610
3420 IF I0 = 44 GOTO 6830
3430 IF I0 = 50 GOTO 40
3440 IF I0 = 51 GOTO 2150
3445 IF I0 = 52 GOTO 7000
6830 CLOSE #1
6832 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ
СМОТРИ В ";
6835 PRINT "ФАЙЛЕ "; FA$
6840 END
7000 PRINT #1, "ВЫЧИСЛЕНИЯ ПОКАЗАТЕЛЕЙ Z(K5)"
7004 PRINT #1, " ПО МАТЕМАТИЧЕСКОЙ МОДЕЛИ"
7005 PRINT #1, " С ИСПОЛЬЗОВАНИЕМ ЦИКЛОВ"
7006 PRINT #1, "И ПОСТРОЕНИЕ ГРАФИКОВ"
7030 PRINT "ВВОД I0=63 ПРИ Х=2,Х=4,Х=8,X=16,X=32"
7040 PRINT "IF I0=64 GOTO 40-НАЧАЛО"
7050 PRINT "IF I0=65 GOTO 6830-КОНЕЦ"
7060 INPUT I0
7090 IF I0 = 63 GOTO 7190
7100 IF I0 = 64 GOTO 40
7110 IF I0 = 65 GOTO 6830


                          118