prolo14
varie ....
funzione per mandare a capo:................nl, write(asia),nl,
tabulazione testo con............................ barra inversa e lettera t write(Ò/tAmericaÓ), write(Ò/t/t/t AmericaÓ),
tabulazione testo e mandare a capo.....barra inversa e lettera n write(ÒAmerica/n2), write(Ò/t/t America /n/n/nÓ),
------------------------------------------------------------- cicli iterativi (LOOP)
azione(Contatore):- Contatore>0,!, istrÎuzioni, Contatore1=Contatore-1, azione(Contatore1). ripete istruzioni finche il contatore risulta maggiore di 0 (o di altro valore da assegnare):decremento contatore e assegnazione nuovo valore a variabile Contatore1 che richiama la procedura azione. --------------------------------------------------------------- azione(Contatore):- Contatore<10,!, istruzioni, Contatore1=Contatore+1, azione(Contatore1). ripete istruzioni finche il contatore risulta maggiore di 10 (o di altro valore da assegnare):incremento contatore e assegnazione nuovo valore a variabile Contatore1 che richiama la procedura azione. ------------------------------------------------------------- azione(Contatore):- Contatore>0,!, istruzioni, Contatore1=Contatore-1, azione(Contatore1). ripete istruzioni finche il contatore risulta maggiore di 0 (o di altro valore da assegnare):decremento contatore e assegnazione nuovo valore a variabile Contatore1 che richiama la procedura azione.