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

esci listaprolog.htm

/* caso1.pro */
/* attivazione Random numeri casuali*/

domains
C = integer
R = real

predicates
finestra
azione(C)

goal
finestra,
azione(10).

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

azione(C):-
C>0,!,
random(R),
Prodotto=R*10,
Tronca=round(Prodotto),
write(R,"\t",Prodotto,"\t",Tronca),nl,
C1=C-1,
azione(C1).