latino8
(* manipolazione stringhe e Verbi Latini *)
(* desinenze come elementi vettore *)

infinito="laudare"
radice=StringDrop[infinito,-3]

Array[d,12];
d[1]="o";d[2]="as";d[3]="at";
d[4]="amus";d[5]="atis";d[6]="ant";
d[7]="abam";d[8]="abas";d[9]="abat";
d[10]="abamus";d[11]="abatis";d[12]="abant";



Print["presente indicativo"]
n=7;For[i=1,i<n,i++,Print[StringJoin[radice,d[i]]]]

Print["imperfetto indicativo"]
n=13;For[i=7,i<n,i++,Print[StringJoin[radice,d[i]]]]


;[s]

"laudare"
;[o]
laudare
"laud"
laud
presente indicativo
laudo
laudas
laudat
laudamus
laudatis
laudant

imperfetto indicativo
laudabam
laudabas
laudabat
laudabamus
laudabatis
laudabant

torna a inizio