ВУЗ:
Составители:
Рубрика:
77
SR#(INF) = SQR(SEQL#)
IF SR#(INF) < FDIFER# THEN GOTO 465
49 NEXT I
465 CALL PROB(3)
IF FINT# > R#(K9) THEN GOTO 46
SR#(INF) = 0#
GOTO 35
46 FOR J = 1 TO NX
47 X2#(INF, J) = X#(J)
NEXT J
35 FOR J = 1 TO NX
335 X#(J) = X2#(INF, J)
NEXT J
END SUB
SUB PROB (INQ)
IF INQ = 2 THEN GOTO 100
IF INQ = 3 THEN GOTO 200
R#(1) = 25# – X#(1) ^ 2 – X#(2) ^ 2
GOTO 300
100 R#(2) = 10# * X#(1) – X#(1) ^ 2 + 10# * X#(2) – X#(2) ^ 2 – 34#
R#(3) = X#(1)
R#(4) = X#(2)
GOTO 300
200 R#(5) = 4# * X#(1) – X#(2) ^ 2 – 12#
300 END SUB
END SUB
SUB SUMR
SUM#(IN) = 0#
CALL PROB(2)
SEQL# = 0#
IF NIC = 0 THEN GOTO 444
FOR J = K7 TO K8
IF R#(J) >= 0# THEN GOTO 111
SEQL# = SEQL# + R#(J) * R#(J)
111 NEXT J
444 IF NC = 0 THEN GOTO 313
CALL PROB(1)
FOR J = 1 TO NC
SEQL# = SEQL# + R#(J) * R#(J)
NEXT J
