Вычислительная техника в инженерных расчетах. Черный А.А. - 83 стр.

      1200 IF I0=2 GOTO 1210
      1210 GOTO 1340
      1340 GOSUB 4150:GOSUB 4170
      1410 S=0:O(1)=0:FOR J=l TO X:S=S+Y(J):O(1)=O(1)+1:NEXT J
      1420 B(1)=S/O(1):S=0:O(2)=0:FOR J=l TO X:S=S+I(J)×Y(J)
      1430 O(2)=O(2)+I(J)^2:NEXT J:B(2)=S/O(2):S=0:O(3)=0
      1440 FOR J=l TO X:S=S+K(J) ×Y(J):O(3)=O(3)+K(J)^2:NEXT J
      1450 B(3)=S/O(3)
      1480 S=0:O(4)=0:FOR J=l TO X:S=S+P(J)xY(J)
      1490 O(4)=O(4)+P(J)^2:NEXT J:B(4)=S/O(4):S=0:O(5)=0
      1500 FOR J=l TO X:S=S+I(J)×P(J) ×Y(J):O(5)=O(5)+(I(J) ×P(J))^2
      1510 NEXT J:B(5)=S/O(5):S=0:O(6)=0:FOR J=l TO X
      1520 S=S+Q(J) ×Y(J):O(6)=0(6)+Q(J) ×2:NEXT J:B(6)=S/O(6)
      1530 S=0:O(7)=0:FOR J=l TO X:S=S+I(J) ×Q(J) ×Y(J)
      1540 О(7)=О(7)+(I(J) ×Q(J))^2:NЕХТ J:B(7)=S/O(7):S=0
      1550 O(8)=0:FOR J=l TO X:S=S+P(J) × K(J) ×Y(J)
      1560 O(8)=O(8)+(P(J) ×K(J))^2:NEXT J:B(8)=S/O(8):S=0:O(9)=0
      1570 FOR J=l TO X:S=S+K(J) ×Q(J) ×Y(J):O(9)=O(9)+(K(J)
×Q(J))^2
      1580 NEXT J:B(9)=S/0(9)
      2390 PRINT "B(J) ДО АНАЛИЗА": FOR J=l TO
X:PRINT"B(";J;")=";B(J)
      2400 NEXT J:PRINT:PRINT "ВВОД N0":INPUT N0
      2410 PRINT "N0=";N0
      2540 GOSUB 4450
      2610 PRINT "РАСЧЕТНЫЕ ВЕЛИЧИНЫ ПОКАЗАТЕЛЯ Z(J) ДО
АНАЛИЗА B(J)"
      2620 FOR J=l TO X:PRINT"Z(";J;")=";Z(J):NEXT J
      2630 PRINT "ВВОД F8=N0-1":INPUT F8:PRINT "F8=":F8
      2640 PRINT "ПРОВЕРКА ПО РАЗНОСТИ Y(J)-ZCJ)"
      2650 FOR J=l TO X: PRINT Y(J) - Z(J);:NEXT J
      2660 PRINT "IF I0=3 GOTO 2720":PRINT "IF I0=4 GOTO 2770"
      2670 PRINT "IF I0=5 GOTO 3240":PRINT "IF I0=6 GOTO 40"
      2677 PRINT "IF I0=20 GOTO 6830":PRINT "IF I0=25 GOTO 4880"
      2678 PRINT "IF I0=27 GOTO 7000"
      2680 PRINT "ВВОД I0":INPUT I0:IF I0=3 GOTO 2720
      2690 IF I0=4 GOTO 2770
      2700 IF I0=5 GOTO 3240
      2710 IF I0=6 GOTO 40
      2715 IF I0=20 GOTO 6830
                                   83