Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.02;
Скачать: CL | DM;

Вниз

Помгите с 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.006 c
14-1889
----
2002-12-13 13:50
2003.01.02
Из исходника диаграмка (чем и возможно ли)????


1-1771
stone
2002-12-20 09:43
2003.01.02
Время выполнения потока (TThread)


3-1763
yaJohn
2002-12-11 13:13
2003.01.02
Как заставить TClientDataSet перефильтроваться


1-1836
TCrash
2002-12-21 11:03
2003.01.02
TTreeView в качестве навигатора


14-1875
Муть
2002-12-13 13:25
2003.01.02
Компонент Tpanel и его загадки ;)