ВУЗ:
Составители:
Рубрика:
78
313 SUM#(IN) = SEQL#
END SUB
SUB WRIT
CALL PROB(3)
PRINT " ОБЪЕКТНАЯ ФУНКЦИЯ = "; R#(K9)
FOR J = 1 TO NX
PRINT " BEKTOP: X("; J; ") = "; X#(J)
NEXT J
IF NC = 0 THEN GOTO 6
CALL PROB(1)
FOR J = 1 TO NC
PRINT " H("; J; "): "; R#(J)
PRINT #1, " H("; J; "): "; R#(J)
NEXT J
6 IF NIC = 0 THEN GOTO 503
CALL PROB(2)
FOR J = K7 TO K6
PRINT " G("; J; "): "; R#(J)
PRINT #1, " G("; J; "): "; R#(J)
NEXT J
503 END SUB
