xcaso2

iterazione e calcoli media


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