MATRIX TRANSPOSE
From
Robin Vowels@21:1/5 to
All on Thu Aug 26 22:31:57 2021
MATRIX: PROCEDURE OPTIONS (MAIN);
DECLARE N FIXED BINARY;
PUT ('Please type the number of rows of the matrix:');
GET (N);
BEGIN;
DECLARE A(N,N) FIXED, B(N,N) FIXED DEFINED A(2sub, 1sub);
GET (A);
PUT EDIT (A) (SKIP, (N) F(4) );
PUT SKIP LIST ('Transpose of matrix:');
PUT EDIT (B) (SKIP, (N) F(4) );
END;
END MATRIX;
Please type the number of rows of the matrix:
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
Transpose of matrix:
1 5 9 13
2 6 10 14
3 7 11 15
4 8 12 16
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)