Компьютерные дополненные программы математического моделирования и расчетов по математическим моделям. Черный А.А. - 102 стр.

                     ПРОГРАММА NV4 (план 41, Х = 4)

5 PRINT "ПРОГРАММА NV4,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV4"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА NV41"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV4 ЗАНОСЯТСЯ В
ФАЙЛ "; FA$
40 PRINT " РАЗРАБОТКA ДЛЯ X=4"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV4, РАЗРАБОТАН-
НОЙ А.А. ЧЕРНЫМ"
42 DIM F(20), L(20), Y(20), I(20), K(20)
44 DIM U(20), O(20), B(20), Z(20), G(20), T(20)
46 DIM K6(20), K7(20), K8(20), J7(20), J8(20), J9(20)
47 DIM Z1(50)
51 PRINT "ВВОД X-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
52 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
60 X = 4: PRINT #1, "X="; X
61 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
200 PRINT "ВВОД A1,C1,D1,B1,J1,O1,P1"
210 INPUT A1, C1, D1, B1, J1, O1, P1
213 PRINT #1, "A1="; A1; " C1="; C1; " D1="; D1
215 PRINT #1, " B1="; B1; " J1="; J1; " O1="; O1; " P1="; P1
220 A = A1: B = B1: C = C1: D = D1: N = J1: R = O1: S = P1: GOSUB 3710
230 V1 = V0: U1 = U0: Q1 = Q0: I1 = I0: M1 = M0: F1 = F0
240 PRINT #1, "V1="; V1; " U1="; U1; " Q1="; Q1
243 PRINT #1, " I1="; I1; " M1="; M1; " F1="; F1
260 IF X = 4 GOTO 600
589 REM ПЛАН
600 F(1) = A1: F(2) = B1: F(3) = C1: F(4) = D1: GOTO 1130
1130 PRINT "IF I0=6 GOTO 40-НАЧАЛО"
1135 PRINT "IF I0=7 GOTO 1160-ПРОДОЛЖЕНИЕ"
1140 INPUT I0: IF I0 = 6 GOTO 40
1150 IF I0 = 7 GOTO 1160
1160 PRINT "ВВОД ВЕЛИЧИН ПОКАЗАТЕЛЕЙ ПО ПЛАНУ Y(J) "
1161 PRINT #1, "ВЕЛИЧИНЫ ПОКАЗАТЕЛЕЙ В СООТВЕТСТВИИ С ПЛАНОМ Y(J)"
1165 FOR J = 1 TO X
1166 PRINT "Y("; J; ")": INPUT Y(J)
1170 PRINT #1, "Y("; J; ")="; Y(J): NEXT J
1180 PRINT "IF I0=1 GOTO 1160-ПОВТОРЕНИЕ ВВОДА ПОКАЗАТЕЛЕЙ"
1185 PRINT "IF I0=2 GOTO 1220-ПРОДОЛЖЕНИЕ"
1190 PRINT "ВВОД I0": INPUT I0: IF I0 = 1 GOTO 1160
1200 IF I0 = 2 GOTO 1220




                                 102