QBasic ile İki matrisi toplama

CLS
'Matris toplatma
INPUT " matrislerin sati￾r say￾isi￾ni￾ giriniz=", n
INPUT " matrislerin sutun sayi￾si￾ni￾ giriniz=", m
DIM A(n, m), B(n, m), C(n, m)
FOR i = 1 TO n
FOR j = 1 TO m
PRINT "A("; i; ","; j; ")=";
INPUT A(i, j)
NEXT
NEXT
PRINT
FOR i = 1 TO n
FOR j = 1 TO m
PRINT A(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
FOR j = 1 TO m
PRINT "B("; i; ","; j; ")=";
INPUT B(i, j)
NEXT
NEXT
PRINT
FOR i = 1 TO n
FOR j = 1 TO m
PRINT B(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
FOR j = 1 TO m
C(i, j) = A(i, j) + B(i, j)
NEXT
NEXT
PRINT "Toplam matrisi"
FOR i = 1 TO n
FOR j = 1 TO m
PRINT C(i, j);
NEXT
PRINT
NEXT