Вот набросал небольшой примерчик как использовать оператор SeedRnd() для получения одинаковых последовательностей случайных величин. Этот оператор можно например использавать для генерации одинаковых карт на основе операторов Rnd() и Rand().
Код:
Global T$=""
seed%=MilliSecs()
SeedRnd(seed%)
For i=1 To 25
T$=T$+" "+Rand(1,100)
Next
Print "Первая последовательность целых чисел:"
Print T$
T$=""
SeedRnd(seed%)
For i=1 To 25
T$=T$+" "+Rand(1,100)
Next
Print "Вторая последовательность целых чисел:"
Print T$
T$=""
SeedRnd(seed%)
For i=1 To 15
T$=T$+" "+Rnd(1,100)
Next
Print "Первая последовательность вещественных чисел:"
Print T$
T$=""
SeedRnd(seed%)
For i=1 To 15
T$=T$+" "+Rnd(1,100)
Next
Print "Вторая последовательность вещественных чисел:"
Print T$
WaitKey()
|
