Basiс, масив, минимум+скалярное произведение
Здраствуйте! Помогите с написанием проги по заданию: Вычислить скалярное произведение для вектора-строки и вектора-столбца на пересечение которой находится минимальный элемент квадратной матрицы. Число строк матрицы не более 15. (Бейсик)
- Naeel Maqsudov
- Сообщения: 2551
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
место минимума:
произведение строки и столбца, пересекающихся в MinI,MinJ
Код: Выделить всё
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
Код: Выделить всё
P=0
for i=1 to N
P=P+A[MinI,i]*A[i,MinJ]
next
Хотя что-то скаляр не правильно считается вот прога которая получилась:
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
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
- Naeel Maqsudov
- Сообщения: 2551
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
У Вас по условию задачи матрица квадратная.
Т.е. не бывает M и N. Бвывает только N, причем оно же и число строк, ичисло столбцов.
Т.е. не бывает M и N. Бвывает только N, причем оно же и число строк, ичисло столбцов.