Quick Basic in Application

‘Transpose Matrix
CLS
‘PROGRAMME MATRIX TRANSPOSE’
PRINT “UKURAN MATRIX:”
INPUT “BANYAK BARIS”;M
INPUT “BANYAK KOLOM”;N
DIM A(M,N),AT(N,M)
PRINT:PRINT “ELEMEN MATRIX:”:PRINT
FOR I=1 TO M :FOR J=1 TO N:PRINT”BARIS”;I;”KOLOM”;J;:INPUT A(I,J):NEXT j:NEXT I
FOR I=1 TO M
FOR J=1 TO N
AT(I,J)=A(I,J)
NEXT J
NEXT I
‘PRINT TRANSPOSE’
CLS:PRINT”MATRIX TRANSPOSE:”:PRINT
FOR I=1 TO N:FOR J=1 TO M:PRINT USING “####.#”;AT(I,J)
NEXT J:PRINT:NEXT I
END