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