Изобретения и совершенствование на их основе процессов и материалов с применением математического моделирования. Черный А.А - 130 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

130
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
520 IF X = 15 GOTO 710
530 IF X = 20 GOTO 830
540 IF X = 25 GOTO 900
550 PRINT "ВВОД A3,E3,B3,J3,O3"
555 INPUT A3, E3, B3, J3, O3
560 PRINT #1, "A3="; A3; " E3="; E3; " B3="; B3
563 PRINT #1, "J3="; J3; " O3="; O3
565 A = A3: B = B3: E = E3: N = J3: R = O3
570 GOSUB 3660: V3 = V0: U3 = U0: Q3 = Q0
575 PRINT #1, "V3="; V3; " U3="; U3; " Q3="; Q3
580 GOTO 990
589 REM ПЛАНЫ
590 F(1) = A1: F(2) = B1: F(3) = E1: GOTO 1130
600 F(1) = A1: F(2) = B1: F(3) = C1: F(4) = D1: GOTO 1130
610 F(1) = A1: F(2) = B1: F(3) = C1: F(4) = D1: F(5) = E1: GOTO 1130
620 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
630 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
640 F(7) = E1: H(7) = A2: F(8) = E1: H(8) = B2: F(9) = E1: H(9) = E2
650 GOTO 1130
660 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
670 F(4) = B1: H(4) = B2: F(5) = E1: H(5) = A2: F(6) = E1: H(6) = B2
680 F(7) = A1: H(7) = C2: F(8) = B1: H(8) = D2: F(9) = A1: H(9) = D2
690 F(10) = B1: H(10) = C2: F(11) = E1: H(11) = C2: F(12) = E1
695 H(12) = D2
700 GOTO 1130
710 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
720 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
730 F(7) = E1: H(7) = A2: F(8) = E1: H(8) = B2: F(9) = E1: H(9) = E2
740 F(10) = A1: H(10) = C2: F(11) = B1: H(11) = D2: F(12) = A1
745 H(12) = D2
750 F(13) = B1: H(13) = C2: F(14) = E1: H(14) = C2: F(15) = E1
755 H(15) = D2
760 GOTO 1130
770 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2 
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
520 IF X = 15 GOTO 710
530 IF X = 20 GOTO 830
540 IF X = 25 GOTO 900
550 PRINT "ВВОД A3,E3,B3,J3,O3"
555 INPUT A3, E3, B3, J3, O3
560 PRINT #1, "A3="; A3; " E3="; E3; " B3="; B3
563 PRINT #1, "J3="; J3; " O3="; O3
565 A = A3: B = B3: E = E3: N = J3: R = O3
570 GOSUB 3660: V3 = V0: U3 = U0: Q3 = Q0
575 PRINT #1, "V3="; V3; " U3="; U3; " Q3="; Q3
580 GOTO 990
589 REM ПЛАНЫ
590 F(1) = A1: F(2) = B1: F(3) = E1: GOTO 1130
600 F(1) = A1: F(2) = B1: F(3) = C1: F(4) = D1: GOTO 1130
610 F(1) = A1: F(2) = B1: F(3) = C1: F(4) = D1: F(5) = E1: GOTO 1130
620 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
630 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
640 F(7) = E1: H(7) = A2: F(8) = E1: H(8) = B2: F(9) = E1: H(9) = E2
650 GOTO 1130
660 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
670 F(4) = B1: H(4) = B2: F(5) = E1: H(5) = A2: F(6) = E1: H(6) = B2
680 F(7) = A1: H(7) = C2: F(8) = B1: H(8) = D2: F(9) = A1: H(9) = D2
690 F(10) = B1: H(10) = C2: F(11) = E1: H(11) = C2: F(12) = E1
695 H(12) = D2
700 GOTO 1130
710 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2
720 F(4) = B1: H(4) = B2: F(5) = A1: H(5) = E2: F(6) = B1: H(6) = E2
730 F(7) = E1: H(7) = A2: F(8) = E1: H(8) = B2: F(9) = E1: H(9) = E2
740 F(10) = A1: H(10) = C2: F(11) = B1: H(11) = D2: F(12) = A1
745 H(12) = D2
750 F(13) = B1: H(13) = C2: F(14) = E1: H(14) = C2: F(15) = E1
755 H(15) = D2
760 GOTO 1130
770 F(1) = A1: H(1) = A2: F(2) = B1: H(2) = A2: F(3) = A1: H(3) = B2




                                   130

Страницы