Форум: "Потрепаться";
Текущий архив: 2003.01.02;
Скачать: [xml.tar.bz2];
ВнизПомгите с 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 давал не равномерно?
я сам иногда так маньячил, но это лишнее.
← →
Ru (2002-12-13 11:30) [6]рандом повторялся как собака (от 3 до 10 повторений одного и того же числа.)
На мальньких числах рандом плохо работает так как это не случайная, а псевдослучайная величина, которая вычисляется по формуле.
← →
Anatoly Podgoretsky (2002-12-13 11:36) [7]Период повторения у него приличный, просто ты обрезаешь до целого, Random(N) работает так Trunc(Random*N)
← →
zavdim (2002-12-13 11:38) [8]да наверное так.
хотя проводили исследование - создавали случайные последовательности с помощью компьютера и ручками (большие последовательности).
так потом эксперты отделяли их друг от друга и очень удачно.
Иногда повторение - не так уж плохо.
При случайном бросании монеты бесконечное долго, мат ожидание последовательности решек любой длины не равно нулю - тут я не совсем корректно говорю, но думаю смысл ясен. Тоесть комп имеет иногда трещать как попугай одно и то же - уж такова она случайнсть. Ведь и ветка есть - "откуда столько невезухи?".
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.01.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c