Список проголосовавших за комментарий "<br/> Программа peretas.bas создаёт последовательность<br/> случайные a: 0 и 1 алгоритмом ручным из интернета<br/> <br/> и программа создаёт случайные d: 0… 77777<br/> для перетасовки и сортируя массив d упорядочили массив a<br/> и возможно против повторения лучше тасуемых 1000000<br/> <br/> <br/> 'peretas.bas<br/> DIM a(55555), d(55555)<br/> <br/> OPEN «aa.txt» FOR OUTPUT AS #1: OPEN «dd.txt» FOR OUTPUT AS #2<br/> OPEN «aaaa.txt» FOR OUTPUT AS #3: OPEN «dddd.txt» FOR OUTPUT AS #4<br/> <br/> FOR i = 1 TO 55555: r = Rand: a(i) = INT(r * 2): PRINT #1, a(i): NEXT<br/> FOR i = 1 TO 55555: r = Rand: d(i) = INT(r * 77777): PRINT #2, d(i): NEXT<br/> <br/> FOR i = 1 TO 55554: FOR j = i TO 55555<br/> IF d(i) > d(j) THEN SWAP d(i), d(j): SWAP a(i), a(j)<br/> NEXT: NEXT<br/> <br/> FOR i = 1 TO 55555: PRINT #3, a(i): PRINT #4, d(i): NEXT<br/> CLOSE<br/> <br/> FUNCTION Rand<br/> STATIC Seed<br/> x1 = (Seed * 214013 + 2531011) MOD 2 ^ 24<br/> Seed = x1<br/> Rand = x1 / 2 ^ 24<br/> END FUNCTION<br/> <br/> <br/> Теоретические значения в эксцель excel через формулы<br/> <br/> =C3/2<br/> =D3+C4<br/> =D4*55000<br/> <br/> показывают: из 55000 за 7 шагов охватывается 54570<br/> номеров в своих последовательностях<br/> и вероятно отклонение выдаёт фальшивую случайность<br/> <br/> и перетасовав задействовано 54885 близко к теории<br/> <br/> "