' vedi Porb.Stat. scheda 5 par. 5 ' n: numero delle prove ' ko: numero delle volte in cui l'apparecchio va fuori uso ' f: numero di dispositivi che restano in funzione ' V=1 se l'apparecchio si guasta, V=0 altrimenti n = 0: ko = 0: PRINT PRINT "Premi ACapo per altre uscite" RANDOMIZE TIMER 10 f = 0 FOR i = 1 TO 10 IF RND < 80/100 THEN f = f + 1 'simulo un evento con prob. 80% NEXT n = n + 1 IF f < 7 THEN V = 1 ELSE V = 0 IF V = 1 THEN ko = ko + 1 IF n / 500 = n \ 500 THEN PRINT n, ko, ko / n; : INPUT "", x ' stampo la frequenza relativa ogni 500 prove ' attendo Enter per proseguire, Ctrl+C per arrestarmi GOTO 10