'candidato generatore numeri casuali 'vedi Prob.Stat. scheda 8 õ6 DECLARE SUB RAND (x&) DEFLNG A, M-N, X 'o: DEFDBL a,m,x,n a = 259: m = 65536: x0 = 725 n = 0: x = x0 10 n = n + 1 RAND x IF x <> x0 THEN GOTO 10 PRINT n INPUT "premi 'a capo'", aa$ SUB RAND (x) STATIC: SHARED a, m x = a * x MOD m END SUB