; TABLES
;
; Programma per Proteus
;
; (C) 1998-2003 Simone Zanella Productions
;
; Stampa n * 1, .., n * 10, dove n va da 1 a 10.
; Dimostra l'uso delle matrici.

; Parametri impliciti: input e output predefiniti nulli
;!proteus -z

!include "matrix.prt"

; Crea una matrice
M = MatNew(10, 10)
FOR X = 1 TO 10
  FOR Y = 1 TO 10
    ; Imposta l'elemento della matrice
    MatSet(M, X, Y, MUL(X, Y))
  NEXT
NEXT

; Stampa le tabelline
CONSOLELN "     x1  x2  x3  x4  x5  x6  x7  x8  x9  x10"
CONSOLELN ""
FOR X = 1 TO 10
  CONSOLE PFORMAT("2d", X) "   "
  FOR Y = 1 TO 10
    CONSOLE PFORMAT("2d", MatGet(M, X, Y)) "  "
  NEXT
  CONSOLELN ""
NEXT
CONSOLELN ""
CONSOLELN "Dimensione della matrice: " MatLen(M)
MatFree(M)

ABORT 0