RosettaCodeData/Task/Matrix-transposition/Liberty-BASIC/matrix-transposition.liberty
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07: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$