ضرب دو ماتریس بدون استفاده از آرایه
در این برنامه بدون استفاده از آرایه دو ماتریس را می گیرد و در هم ضرب می کند و خروجی را چاپ می کند

CLS r$ = "[" INPUT "m*n , n*p (m,n,p) : ", m, n, p PRINT "Matrix I : " FOR i = 1 TO m FOR j = 1 TO n INPUT b$ a1$ = a1$ + "[" + STR$(i) + "," + STR$(j) + "]" + b$ NEXT j, i a1$ = a1$ + "[" PRINT "Matrix II : " FOR i = 1 TO n FOR j = 1 TO p INPUT b$ a2$ = a2$ + "[" + STR$(i) + "," + STR$(j) + "]" + b$ NEXT j, i a2$ = a2$ + "[" FOR i = 1 TO m FOR j = 1 TO p s = 0 FOR k = 1 TO n C1$ = "[" + STR$(i) + "," + STR$(k) + "]" C2$ = "[" + STR$(k) + "," + STR$(j) + "]" l1 = LEN(C1$) l2 = LEN(C2$) n11 = INSTR(1, a1$, C1$) n12 = INSTR(n11 + l1 - 1, a1$, r$) m1 = VAL(MID$(a1$, n11 + l1, n12 - n11 - l1)) n21 = INSTR(1, a2$, C2$) n22 = INSTR(n21 + l2 - 1, a2$, r$) m2 = VAL(MID$(a2$, n21 + l2, n22 - n21 - l2)) s = s + m1 * m2 NEXT PRINT s; NEXT PRINT NEXT

نویسنده : فضلی