Список проголосовавших за комментарий "используя программу синтеза случайных <br/> и разделив на малые 0 и большие 1 <br/> синтезированы 55000 случайных и проверены <br/> <br/> несмотря на нормальность количества подряд 0...7 <br/> большее число подряд невозможно <br/> поэтому последовательность хуже обычного rnd <br/> <br/> 'rndxx.bas<br/> OPEN «rndxxx.txt» FOR OUTPUT AS #1<br/> <br/> FOR i = 1 TO 55555: r = Rand<br/> IF r < 0.5 THEN PRINT #1, 0 ELSE PRINT #1, 1<br/> 'IF r <= 0.5 THEN PRINT #1, 0 ELSE PRINT #1, 1<br/> 'IF r <= 0.7 THEN PRINT #1, 0 ELSE PRINT #1, 1<br/> NEXT: CLOSE<br/> <br/> FUNCTION Rand: STATIC Seed<br/> x1 = (Seed * 214013 + 2531011) MOD 2 ^ 24<br/> Seed = x1: Rand = x1 / 2 ^ 24<br/> END FUNCTION<br/> <br/> <a class="imgpreview" href="/uploads/images/05/70/34/2019/12/20/64dfc4.png"><img src="/uploads/images/05/70/34/2019/12/20/2c7409.png"/></a><br/> <br/> using a random synthesis program <br/> and dividing into small 0 and large 1 <br/> synthesized 55000 random and tested <br/> <br/> despite normality of number of consecutive 0...7 <br/> a larger number in a row is not possible <br/> therefore sequence is worse than usual rnd"