1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | CLSPRINT "Multiplying matrices"INPUT "Enter the dimension of the matrices A and B"; n%PRINT "Enter the matrix A"FOR i% = 1 TO n% FOR j% = 1 TO n% PRINT "a("; i%, j%; ")=": INPUT a(i%, j%) NEXT j%NEXT i%PRINT "The matrix A introduced"PRINT "__________________________________"PRINT ""PRINT "Enter the matrix B"FOR i% = 1 TO n% FOR j% = 1 TO n% PRINT "b("; i%, j%; ")=": INPUT b(i%, j%) NEXT j%NEXT i%PRINT "The matrix B introduced"PRINT "__________________________________"PRINT ""FOR i% = 1 TO n% FOR j% = 1 TO n% FOR k% = 1 TO n% c(i%, j%) = c(i%, j%) + a(i%, k%) * b(k%, j%) NEXT k% NEXT j%NEXT i%PRINT "The product A * B"FOR i% = 1 TO n% FOR j% = 1 TO n% PRINT c(i%, j%); NEXT j% PRINTNEXT i%END |