Помгите с Random om................

← →
hatchy © (2002-12-13 09:30) [0]

У меня есть готовые тексты (их 15) мне нужно чтобы когда нажимаешь кнопку в Memo появлялись эти тескты только чтобы появлялись различные..хотелось расмотреть пример..как это сделать.

← →
Ru © (2002-12-13 10:12) [1]

var
s:string;
x,i:integer;
f:textfile;
begin
x:=random(100) mod 15; // даст случайное число
//предположим есть текстовый файл с этими записями
assignfile(f, "my.txt");//файл должен быть в одной папке с exe
reset(f);
for i:=0 to x do readln(f,s);
memo1.lines.add(s);
closefile(f);
end;

← →
Anatoly Podgoretsky © (2002-12-13 10:47) [2]

А mod то зачеи, почему не сразу Random(15)

← →
zavdim (2002-12-13 10:55) [3]

Да с mod - получится не равномерно, и мат ожидание текстов с номером меньше 10 будет выше.
Еще в начало можно добавить Randomize.

← →
Ru © (2002-12-13 11:12) [4]

рандомайз в секцию инициализации, а мод так просто я делал для трех получил очень хороший результат.

initialization;
randomize;

← →
zavdim (2002-12-13 11:20) [5]

а в чем он был хорош?
то есть random давал не равномерно?
я сам иногда так маньячил, но это лишнее.

рандом повторялся как собака (от 3 до 10 повторений одного и того же числа.)
На мальньких числах рандом плохо работает так как это не случайная, а псевдослучайная величина, которая вычисляется по формуле.

Период повторения у него приличный, просто ты обрезаешь до целого, Random(N) работает так Trunc(Random*N)

← →
zavdim (2002-12-13 11:38) [8]

да наверное так.
хотя проводили исследование - создавали случайные последовательности с помощью компьютера и ручками (большие последовательности).
так потом эксперты отделяли их друг от друга и очень удачно.
Иногда повторение - не так уж плохо.
При случайном бросании монеты бесконечное долго, мат ожидание последовательности решек любой длины не равно нулю - тут я не совсем корректно говорю, но думаю смысл ясен. Тоесть комп имеет иногда трещать как попугай одно и то же - уж такова она случайнсть. Ведь и ветка есть - "откуда столько невезухи?".

Помгите с Random om................ Найти похожие ветки