matrice1

inserimento elementi numerici in matrice

--matrice1 gestione matrici con repeat annidati
--ATTIVA
on mousedown
  put "" into v1
  put "" into v2
  put "" into v3
  put "" into cd fld 2
  put "" into cd fld 3
  ask numero_righe
  put it into righe
  ask numero_colonne
  put it into colonne
  repeat with a=1 to righe
    repeat with b=1 to colonne
      put "riga=" & a & " colonna=" & b into line a of cd fld 3
      ask dato
      if a=1 then put v1 & it & " " into v1
      if a=2 then put v2 & it & " " into v2
      if a=3 then put v3 & it & " " into v3
    end repeat
  END REPEAT
  put v1 into line 1 of cd fld 2
  put v2 into line 2 of cd fld 2
  put v3 into line 3 of cd fld 2
  

end mousedown