Список проголосовавших за комментарий "Program peretas.bas creates a sequence<br/> random a: 0 and 1 by manual algorithm from Internet<br/> <br/> and program creates random d: 0… 77777<br/> for shuffling and sorting an array d array a is ordered<br/> and perhaps against repetition it is better to shuffle cards 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/> Theoretical values in Excel Excel via formulas<br/> <br/> =C3/2<br/> =D3+C4<br/> =D4*55000<br/> <br/> show: out of 55000 for 7 steps covered 54570<br/> numbers in their sequences<br/> and probably deviation betrays a false accident<br/> <br/> and shuffling involved 54885 close to theory<br/> <br/> Theoretical values in Excel Excel via formulas<br/> <br/> "