ضرب دو ماتریکس بدون حلقه تو در تو

شما می توانید در گرفتن و چاپ داده ها از حلقه تودر تو استفاده کنید فقط در مرحله ضرب دو ماتریس اجازه استفاده از حلقه تودر تو را ندارید

این جواب سوال هشتمین مرحله مسابقات رایانه در سطح کشوری است

CLS INPUT "n,m,p : ", n, m, p DIM m1(n, m), m2(m, p), m3(n, p) PRINT PRINT "Enter"; n * m; "number in araye one :" FOR i = 1 TO n FOR j = 1 TO m INPUT m1(i, j) NEXT j, i PRINT PRINT "Enter"; p * m; "number in araye two :" FOR i = 1 TO m FOR j = 1 TO p INPUT m2(i, j) NEXT j, i i = 1: j = 1 FOR g = 1 TO n * p * m k = k + 1 sum = sum + m1(i, k) * m2(k, j) IF k = m THEN k = 0 m3(i, j) = sum sum = 0 j = j + 1 IF j > p THEN j = 1 i = i + 1 END IF END IF NEXT PRINT FOR i = 1 TO n FOR j = 1 TO p PRINT USING "####"; m3(i, j); NEXT PRINT PRINT PRINT NEXT END

نویسنده برنامه رسول فضلی