matrice3 
(* assegna contenuto a vettore letterale T *)

t[1]=asia;t[2]=nero;t[3]=rosso;t[4]="verde";
vettore=Table[t[i],{i,4}]
TableForm[vettore]
{asia, nero, rosso, "verde"}
;[o]
{asia, nero, rosso, verde}
TableForm[{asia, nero, rosso, "verde"}]
;[o]
asia

nero

rosso

verde
(* crea vettore v[] e assegna valori con INPUT *)
(* stampa vettore inserito                     *)
(* stampa vettore per costante 10              *)

n=5;For[k=1,k<n,k++,v[k]=Input["scrivi intero"]]
n=5;For[k=1,k<n,k++,Print[v[k]]]
Print["----------------------------------"]
n=5;For[k=1,k<n,k++,Print[10*v[k]]]

2
4
6
8
----------------------------------
20
40
60
80
(* crea vettore vr[] e assegna valori con INPUT *)
(* stampa vettore inserito                     *)
(* stampa vettore per costante 10              *)

n=5;For[k=1,k<n,k++,vr[k]=Input["scrivi REALE"]]
n=5;For[k=1,k<n,k++,Print[vr[k]]]
Print["----------------------------------"]
n=5;For[k=1,k<n,k++,Print[10*vr[k]]]

1.2
5.7
3.8
9.7
----------------------------------
12.
57.
38.
97.

ritorna a inizio