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

5 PRINT "ПРОГРАММА WN5,РАЗРАБОТКА А.А.ЧЕРНОГО"
6 CLS
7 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ WN5"
8 PRINT "ЗАНОСЯТСЯ В ФАЙЛ,ИМЯ КОТОРОГО НАДО ВВЕСТИ,"
9 PRINT "НАПРИМЕР, ВВЕСТИ ИМЯ ФАЙЛА WN51"
10 INPUT "ВВОД ИМЕНИ ФАЙЛА ", FA$
14 OPEN "O", #1, FA$
17 PRINT "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ WN5 ЗАНОСЯТСЯ В
ФАЙЛ "; FA$
40 PRINT " РАЗРАБОТКИ ДЛЯ X=5,X=25"
41 PRINT #1, "РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ ПРОГРАММЫ WN5, РАЗРАБОТАН-
НОЙ А.А. ЧЕРНЫМ"
42 DIM F(50), H(50), L(50), Y(27), I(50), K(50), M(50), P(50)
44 DIM Q(50), U(50), V(50), O(27), B(27), Z(50), G(20), T(27)
46 DIM K6(50), K7(50), K8(50), J7(50), J8(50), J9(50)
51 PRINT "ВВОД X-КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
52 PRINT #1, "КОЛИЧЕСТВО ОПЫТОВ ПО ПЛАНУ "
60 INPUT X: PRINT #1, "X="; X
61 PRINT #1, "ВЕЛИЧИНЫ ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
62 PRINT "ВВОД ВЕЛИЧИН ФАКТОРОВ И ПОКАЗАТЕЛЕЙ СТЕПЕНИ"
90 IF X = 5 GOTO 270
100 IF X = 25 GOTO 270
270 PRINT "ВВОД A1,C1,E1,D1,B1,J1,O1,P1,T1"
280 INPUT A1, C1, E1, D1, B1, J1, O1, P1, T1
290 PRINT #1, "A1="; A1; " C1="; C1; " E1="; E1
293 PRINT #1, "D1="; D1; " B1="; B1; " J1="; J1
295 PRINT #1, "O1="; O1; " P1="; P1; " T1="; T1: A = A1: B = B1
300 C = C1: D = D1: E = E1: N = J1: R = O1: S = P1: W = T1: GOSUB 3860
310 V1 = V0: U1 = U0: Q1 = Q0: I1 = I0: M1 = M0: F1 = F0: G1 = G0: H1 = H0
320 K1 = K0: L1 = L0: PRINT #1, "V1="; V1; " U1="; U1; " Q1="; Q1
323 PRINT #1, "I1="; I1; " M1="; M1; " F1="; F1; " G1="; G1
325 PRINT #1, "H1="; H1; " K1="; K1; " L1="; L1
330 IF X = 25 GOTO 460
340 IF X = 5 GOTO 610
460 PRINT "ВВОД A2,C2,E2,D2,B2,J2,O2,P2,T2"
470 INPUT A2, C2, E2, D2, B2, J2, O2, P2, T2
480 PRINT #1, "A2="; A2; " C2="; C2; " E2="; E2; " D2="; D2
483 PRINT #1, "B2="; B2; " J2="; J2; " O2="; O2
485 PRINT #1, "P2="; P2; " T2="; T2: A = A2: B = B2
490 C = C2: D = D2: E = E2: N = J2: R = O2: S = P2: W = T2: GOSUB 3860
500 V2 = V0: U2 = U0: Q2 = Q0: I2 = I0: M2 = M0: F2 = F0: G2 = G0: H2 = H0
510 K2 = K0: L2 = L0: PRINT #1, "V2="; V2; "U2="; U2; "Q2="; Q2
513 PRINT #1, "I2="; I2; " M2="; M2; " F2="; F2; " G2="; G2
515 PRINT #1, "H2="; H2; " K2="; K2; " L2="; L2
540 IF X = 25 GOTO 900
589 REM ПЛАНЫ
610 F(1) = A1: F(2) = B1: F(3) = C1: F(4) = D1: F(5) = E1: GOTO 1130
900 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2




                                     35