'simulazione 40 mila lanci dado CLS LOCATE 8 PRINT "Programma che simula 40 mila lanci di un particolare dado: ogni crocetta " PRINT "rappresenta cento uscite" FOR i = 1 TO 6: LOCATE i, 1: PRINT i: NEXT n = 1 WHILE n <= 40000 U = INT(RND * 6) + 1 f(U) = f(U) + 1 IF f(U) \ 100 = f(U) / 100 THEN LOCATE U, 2 + f(U) \ 100: PRINT "x" n = n + 1 WEND LOCATE 12 INPUT "premi 'a capo'", xx$