CLS
'PROGRAM TO SOLVE FOR THE DETERMINANT OF AN ORDER 3 MATRIX USING SARRUS METHOD"
'THIS VERSION USES THE READ/DATA STATEMENT
DIM M(3, 3)
'INPUT THE ELEMENTS IN THE ORDER OF TOP TO BOTTOM AND LEFT TO RIGHT
DATA 2,3,2,4,1,3,2,4,3
FOR I = 1 TO 3
FOR J = 1 TO 3
READ M(I, J)
NEXT J
NEXT I
D = M(1, 1) * M(2, 2) * M(3, 3) + M(1, 2) * M(2, 3) * M(3, 1) + M(1,
3) * M(2, 1) * M(3, 2) - M(3, 1) * M(2, 2) * M(1, 3) - M(3, 2) * M(2,
3) * M(1, 1) - M(3, 3) * M(2, 1) * M(1, 2)
PRINT "THE DETERMINANT IS"; D
END
version 1.0.2
CLS
'PROGRAM TO SOLVE FOR THE DETERMINANT OF AN ORDER 3 MATRIX USING SARRUS METHOD"
'THIS VERSION USES THE INPUT STATEMENT
DIM M(3, 3)
FOR I = 1 TO 3
FOR J = 1 TO 3
PRINT I; ","; J
INPUT M(I, J)
NEXT J
NEXT I
D = M(1, 1) * M(2, 2) * M(3, 3) + M(1, 2) * M(2, 3) * M(3, 1) + M(1,
3) * M(2, 1) * M(3, 2) - M(3, 1) * M(2, 2) * M(1, 3) - M(3, 2) * M(2,
3) * M(1, 1) - M(3, 3) * M(2, 1) * M(1, 2)
PRINT "THE DETERMINANT IS"; D
END
