xcaso1

numeri casuali

/* 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).