)(aTaBbl4 » 02 мар 2009, 18:00
Хотя что-то скаляр не правильно считается вот прога которая получилась:
CLS
DO
INPUT "vvedite kol strok ot 2 do 15"; n
LOOP UNTIL (n >= 2) AND (n <= 15)
DO
INPUT "vvedite kol stolbcov ot 2 do 15"; m
LOOP UNTIL (m >= 2) AND (m <= 15)
DIM A(n, m)
FOR j = 1 TO m
FOR i = 1 TO n
A(i, j) = INT(RND * 100 - 50)
PRINT USING "####"; A(i, j);
NEXT i
PRINT
NEXT j
MinI = 1: MinJ = 1
FOR i = 1 TO n: FOR j = 1 TO n
IF A(i, j) < A(MinI, MinJ) THEN MinI = i: MinJ = j
NEXT: NEXT
PRINT "minimalnoe znachenie="; A(MinI, MinJ)
p = o
FOR i = 1 TO n
p = p + A(MinI, i) * A(i, MinJ)
NEXT
PRINT "scoliarnoe proizvedenie="; p
END
Хотя что-то скаляр не правильно считается вот прога которая получилась:
CLS
DO
INPUT "vvedite kol strok ot 2 do 15"; n
LOOP UNTIL (n >= 2) AND (n <= 15)
DO
INPUT "vvedite kol stolbcov ot 2 do 15"; m
LOOP UNTIL (m >= 2) AND (m <= 15)
DIM A(n, m)
FOR j = 1 TO m
FOR i = 1 TO n
A(i, j) = INT(RND * 100 - 50)
PRINT USING "####"; A(i, j);
NEXT i
PRINT
NEXT j
MinI = 1: MinJ = 1
FOR i = 1 TO n: FOR j = 1 TO n
IF A(i, j) < A(MinI, MinJ) THEN MinI = i: MinJ = j
NEXT: NEXT
PRINT "minimalnoe znachenie="; A(MinI, MinJ)
p = o
FOR i = 1 TO n
p = p + A(MinI, i) * A(i, MinJ)
NEXT
PRINT "scoliarnoe proizvedenie="; p
END