'MATRIS CARPIMI CLS INPUT "N="; N INPUT "P="; P INPUT "M="; M PRINT DIM A(N, M) DIM B(M, P) DIM C(N, P) PRINT "ilk matrisin okutulmasi" FOR I = 1 TO N FOR J = 1 TO M PRINT "A("; I; ","; J; ")="; INPUT A(I, J) NEXT J NEXT I PRINT PRINT "A matrisinin yazdirilmasi" FOR I = 1 TO N FOR J = 1 TO M PRINT A(I, J); NEXT J PRINT NEXT I PRINT "ikinci matrisin okutulmasi" FOR I = 1 TO M FOR J = 1 TO P PRINT "B("; I; ","; J; ")="; INPUT B(I, J) NEXT J NEXT I PRINT PRINT "B matrisinin yazdrlmasi" FOR J = 1 TO M FOR K = 1 TO P PRINT B(J, K); NEXT K PRINT NEXT J 'carpim matrisinin olusturulmasi FOR I = 1 TO N FOR J = 1 TO M FOR K = 1 TO P C(I, K) = C(I, K) + A(I, J) * B(J, K) NEXT K NEXT J NEXT I PRINT "CARPIM MATRISI" FOR I = 1 TO N FOR J = 1 TO P PRINT C(I, J); NEXT J PRINT NEXT I