20 lines
289 B
Text
20 lines
289 B
Text
PROGRAM IDENTITY
|
|
|
|
!$DYNAMIC
|
|
DIM A[0,0]
|
|
|
|
BEGIN
|
|
PRINT(CHR$(12);) ! CLS
|
|
INPUT("Matrix size",N%)
|
|
!$DIM A[N%,N%]
|
|
FOR I%=1 TO N% DO
|
|
A[I%,I%]=1
|
|
END FOR
|
|
! print matrix
|
|
FOR I%=1 TO N% DO
|
|
FOR J%=1 TO N% DO
|
|
WRITE("###";A[I%,J%];)
|
|
END FOR
|
|
PRINT
|
|
END FOR
|
|
END PROGRAM
|