RosettaCodeData/Task/Matrix-transposition/Liberty-BASIC/matrix-transposition.basic
2023-07-01 13:44:08 -04:00

7 lines
248 B
Text

MatrixC$ ="4, 3, 0, 0.10, 0.20, 0.30, 0.40, 0.50, 0.60, 0.70, 0.80, 0.90, 1.00, 1.10"
print "Transpose of matrix"
call DisplayMatrix MatrixC$
print " ="
MatrixT$ =MatrixTranspose$( MatrixC$)
call DisplayMatrix MatrixT$