Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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.57 MB
Время: 0.027 c
1-1787
smok_er
2002-12-20 12:27
2003.01.02
ReadLn и перемещение к началу файла


1-1821
Alexaniok
2002-12-20 20:57
2003.01.02
Как запустить консольное приложение из Delphi?


1-1799
EvgeniyM
2002-12-20 13:05
2003.01.02
Вопрос по Outlook+OLE


8-1841
Сергей.
2002-09-16 15:35
2003.01.02
Как установить рисунок на рабочий стол?


3-1751
Сергей
2002-12-11 14:17
2003.01.02
пример программной настройки опций безопасности в MSDE?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский