Практика выполнения математического моделирования и расчетов на ЭВМ. Черный А.А. - 7 стр.

                ПРОГРАММА НА ЯЗЫКЕ БЕЙСИК NV6


5 PRINT "ПРОГРАММА NV6,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV6"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА NV61"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ NV6
ЗАНОСЯТСЯ В ФАЙЛ "; FA$
40 PRINT " РАЗРАБОТКА ДЛЯ X=16"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ VN6,
РАЗРАБОТАННОЙ А.А. ЧЕРНЫМ"
42 DIM F(20), H(20), L(20), Y(20), I(20), K(20), P(20)
44 DIM Q(20), U(20), V(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 INPUT X: 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
245 IF X = 16 GOTO 400
400 PRINT "ВВОД A2,C2,D2,B2,J2,O2,P2"
410 INPUT A2, C2, D2, B2, J2, O2, P2: PRINT #1, "A2="; A2
413 PRINT #1, "C2="; C2; " D2="; D2; " B2="; B2; " J2="; J2
415 PRINT #1, "O2="; O2; "P2="; P2
420 A = A2: B = B2: C = C2: D = D2: N = J2: R = O2: S = P2: GOSUB 3710
430 V2 = V0: U2 = U0: Q2 = Q0: I2 = I0: M2 = M0: F2 = F0
440 PRINT #1, "V2="; V2; " U2="; U2; " Q2="; Q2; " I2="; I2
443 PRINT #1, "M2="; M2; " F2="; F2
450 IF X = 16 GOTO 770
770 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
780 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = C2: F(6) = B1: H(6) = C2
790 F(7) = A1: H(7) = D2: F(8) = B1: H(8) = D2: F(9) = C1: H(9) = A2
                                   7