listati da Prolog2
listati da copiare e incollare su notes e salvare come file.PRO
richiamabili in ambiente Prolog

esci listaprolog.htm

/* caso2.pro */
/* attivazione Random numeri casuali*/
/* da 1 a 6 per lancio dado */
/* da 1 a 10......da 1 a 100 */

domains
C = integer
R = real

predicates
finestra
azione(C)

goal
finestra,
azione(20).

clauses
finestra:-
makewindow(1,7,1,"",1,1,20,70).

azione(C):-
C>0,!,
random(R),
Tronca=round(6*R)+1, /* lancio dado 1-6 */
Tronca1=round(100*R)+1, /* da 1 a 100 */
Tronca2=round(10*R)+1, /* da 1 a 10 */
write("\t",Tronca,"\t",Tronca1,"\t",Tronca2),nl,
C1=C-1,
azione(C1).