latino9a variante
(* selezionato EDIT-SELECT ALL CELLS *)
(* selezionato CELL-Closed Grouped *)
(* manipolazione stringhe e Verbi Latini *)
(* nota:input con messaggio di richiesta *)
(* applicazione di Keywords a celle separate *)
(* desinenze come elementi vettore *)
(* modificata posizione incremento i++ alla fine*)
(* attivabile ogni tempo con FIND-KEYWORD *)
(* attivabile completamente in sequenza con *)
(* EDIT-SELECT ALL CELLS-Shift-Enter *)
(* possibile chiudere tutte le celle eliminando *)
(* stampa forme verbali:EDIT-SELECT ALL CELLS *)
(* CELL-CLOSE ALL GROUP *)
Print["PRIMA CONIUGAZIONE VERBI LATINI"]
Print["limitato a indicativo e congiuntivo"]
Print["scrivere infinito latino 1 coniugazione"]
infinito=InputString["infinito latino 1 c="]
Print["scrivere perfetto indicativo"]
perfetto=InputString["perfetto indicativo="]
radice=StringDrop[infinito,-3];
radiceperfetto=StringDrop[perfetto,-1];
Print["infinito latino=",infinito]
Print["radice verbo =",radice]
Print["radice perfetto=",radiceperfetto]
Array[d,61];
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 ";
d[13]="abo ";d[14]="abis ";d[15]="abit ";
d[16]="abimus ";
d[17]="abitis";d[18]="abunt";d[19]="i";d[20]="isti ";
d[21]="it ";d[22]="imus ";d[23]="istis ";d[24]="erunt ";
d[25]="eram ";d[26]="eras ";d[27]="erat ";
d[28]="eramus ";
d[29]="eratis ";d[30]="erant ";d[31]="ero ";
d[32]="eris ";
d[33]="erit ";d[34]="erimus ";d[35]="eritis ";
d[36]="erint ";
d[37]="em ";d[38]="es ";d[39]="et ";d[40]="emus ";
d[41]="etis ";d[42]="ent ";d[43]="m ";d[44]="s ";
d[45]=" t";d[46]="mus ";d[47]="tis ";d[48]="nt ";
d[49]="erim ";d[50]="eris ";d[51]="erit ";
d[52]="erimus ";
d[53]="eritis ";d[54]="erint ";
d[55]="issem ";d[56]="isses ";
d[57]="isset ";d[58]="issemus ";
d[59]="issetis ";d[60]="issent ";
;[s]
"amare"
;[o]
amare
"amavi"
;[o]
amavi
PRIMA CONIUGAZIONE VERBI LATINI
limitato a indicativo e congiuntivo
scrivere infinito latino 1 coniugazione
scrivere perfetto indicativo
infinito latino=amare
radice verbo =am
radice perfetto=amav
Print["presente indicativo"]
n=6;For[i=0,i<n,Print[StringJoin[radice,d[i]]],i++]
presente indicativo
amo
amas
amat
amamus
amatis
amant
Print["imperfetto indicativo"]
n=12;For[i=6,i<n,Print[StringJoin[radice,d[i]]],i++]
imperfetto indicativo
amabam
amabas
amabat
amabamus
amabatis
amabant
Print["futuro semplice indicativo"]
n=18;For[i=12,i<n,Print[StringJoin[radice,d[i]]],i++]
futuro semplice indicativo
amabo
amabis
amabit
amabimus
amabitis
amabunt
Print["perfetto indicativo"]
n=24;For[i=18,i<n,
Print[StringJoin[radiceperfetto,d[i]]],i++]
perfetto indicativo
amavi
amavisti
amavit
amavimus
amavistis
amaverunt
Print["piccheperfetto indicativo"]
n=30;For[i=24,i<n,
Print[StringJoin[radiceperfetto,d[i]]],i++]
piccheperfetto indicativo
amaveram
amaveras
amaverat
amaveramus
amaveratis
amaverant
Print["futuro anteriore "]
n=36;For[i=30,i<n,
Print[StringJoin[radiceperfetto,d[i]]],i++]
futuro anteriore
amavero
amaveris
amaverit
amaverimus
amaveritis
amaverint
Print["presente congiuntivo"]
n=42;For[i=36,i<n,Print[StringJoin[radice,d[i]]],i++]
presente congiuntivo
amem
ames
amet
amemus
ametis
ament
Print["imperfetto congiuntivo"]
n=48;For[i=42,i<n,Print[StringJoin[infinito,d[i]]],i++]
imperfetto congiuntivo
amarem
amares
amare t
amaremus
amaretis
amarent
Print["perfetto congiuntivo"]
n=54;For[i=48,i<n,
Print[StringJoin[radiceperfetto,d[i]]],i++]
perfetto congiuntivo
amaverim
amaveris
amaverit
amaverimus
amaveritis
amaverint
Print["piuccheperfetto congiuntivo"]
n=60;For[i=54,i<n,
Print[StringJoin[radiceperfetto,d[i]]],i++]
piuccheperfetto congiuntivo
amavissem
amavisses
amavisset
amavissemus
amavissetis
amavissent
torna a inizio