QBasic ile Girilen iki matrisin çarpılması

'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 yazd￾iri￾lmas￾i"
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 yazd￾r￾lmasi￾"
FOR J = 1 TO M
FOR K = 1 TO P
PRINT B(J, K);
NEXT K
PRINT
NEXT J
'carpi￾m 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