пропустил randomize. Бывает) Всем спс.Просто мы на уроке поспорили с училкой, что из 1000 раз число может выпасть 300. Она утверждала, что нет - мы, что может. Теперь я понял, что не может. Но ведь теоретически то может?
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Object Pascal: кроссплатформенные технологии > Математический эксперимент |
| Автор: Metalex 17.3.2009, 18:23 | ||
| В общем целью было проверить, действительно ли при больших кол-вах экспериментов с подкиданием монеты, количества выпаданий герба и числа особо не отличаются и стремятся к вероятности 0.5 Кидаем 1000 раз. Почему то постоянно один и тот же результат. Почему?
Ноль - это число (решка), единица - герб (орел). |
| Автор: THandle 17.3.2009, 18:44 |
| Metalex, randomize в начале вызови... |
| Автор: Bobrina 17.3.2009, 20:47 | ||
Выпадает по 509-579, пробовал раз 20. Добавлено через 52 секунды А без randomize, Random(2) выдаёт всегда 0. |
| Автор: AXOXC 17.3.2009, 21:38 |
| Вобщем попробуй просто повыводить числа без подключения "Randomize" тама дается "0 0 1 2.." причем всегда Библиотека Randomize нужна чтобы присвайвалось значение зависящие от аппаратного времени в миллисикундах если неошибаюсь тобиш по строгому алгоритму) При подкидование монетки шанс выпадаения зависит от множества факторов (теория вероятности) и математически считается всетаки довольно сложно:( |
| Автор: Metalex 17.3.2009, 22:11 |
| Вот надо же пропустил randomize. Бывает) Всем спс. Просто мы на уроке поспорили с училкой, что из 1000 раз число может выпасть 300. Она утверждала, что нет - мы, что может. Теперь я понял, что не может. Но ведь теоретически то может? |
| Автор: volvo877 17.3.2009, 22:22 | ||||||
 ). |
| Автор: Kbl4AH 17.3.2009, 23:53 | ||||
противоречиво Добавлено @ 23:57
может с вероятностью 30 %  Добавлено @ 00:02 ЗЫ. Вроде рандомизатор не является объективным подтверждением тервера... volvo877, уточни, пожалуйста, насчет рандомизатора в программировании... Насколько мне помнится, то он - псевдослучайный (то есть не идеальная случайность, а какая-то зависимость)... Правильно или нет? А в реальной жизни решка без напрягов может выпасть несколько раз подряд... Имхо, эта прога не подтверждение в данном споре... |
| Автор: AXOXC 18.3.2009, 13:44 | ||
"тама" имелось в виду что если мы будим выполнять подряд несколько присваиванфий без randomize //for i:=1 to n do a[i]:=random(maxlongint); то при каждом запуске программы будем получать одинаковые массивы типа {0,0,1,2..} в данном случае "random(2)" при каждом запуске получаем "0" т.к. значения видимо округляюца:( Прошу прощения за неточность а придыдущем посте) P. C. Одно из условий получения идиального рандома если неошибаюсь чтобы "количество любых значений полученых в ходе эксперимента было примерно равно" В паскаль это выполняется Например можно написать программу которая присваевает переменным масива значения от 1 до 5 и на каждом шаге выдает количество единиц двоек троек и пятерок) Нащет монет: можно попробывать найти условие/копилятор с неидельным рандомом при котором будет выдавать значения например 300/700 и т. д. |
| Автор: Kbl4AH 18.3.2009, 14:09 | ||
Но выбор нового вероятного значения в тервере (в реальном мире) не должен зависеть от предыдущего значения... А в рандомизаторе - зависит, чтобы выбранные значения были максимально различными... |
| Автор: AXOXC 18.3.2009, 14:28 |
| Хм есть предложение а если присваевоемое значение будет зависеть от реальной случайности(например от человека сидящего у компьютера) например Пользователь в ходе программы нажымает клавишу 10 раз и значение переменной зависит от пайзы между нажатиями в милисекундах (четное-1 нечетное-0) К сожалению не могу на данный момент реализовать т. к. не знаю как заставить паскаль работать со временем( |
| Автор: petru4o 18.3.2009, 16:47 |
| AXOXC, оператор delay(время в миллисекундах) |
| Автор: AXOXC 18.3.2009, 17:43 | ||
Ето задержка в выполнение программы. |
| Автор: Metalex 18.3.2009, 18:41 | ||
А как же проверить? Я же не буду подбрасывать 1000 раз Хотя один хлопец уже 300 раз бросил) |
| Автор: Kbl4AH 18.3.2009, 21:37 | ||
блин, вы че... вероятность того, что орел будет 300 раз из тысячи точно такая же как что орел выпадет 3 раза из десяти... я 3 раза по 10 раз подбросил, на третий раз орел 3 раза только выпал... вот собственно и все... если училка сильно лезет в лупу, то возьми учебник по тер. веру, посмотри формулу, сделай несложный расчет и ткни училке... |
| Автор: Metalex 19.3.2009, 10:51 |
| Не в училке дело) |
| Автор: petru4o 19.3.2009, 17:29 |
| AXOXC, а тебе что надо? ты от этого плясать будешь. |
| Автор: AXOXC 20.3.2009, 15:54 | ||
ээээ как? |
| Автор: petru4o 20.3.2009, 16:20 |
| AXOXC, это так,что ты от этого оператора и будешь работать с временем.на сколько знаю,другого метода работы с временем в паскале и нет. |
| Автор: AXOXC 21.3.2009, 12:45 |
| хм задача поймать время между нажатиями клавиш пользователями (поймать "извне" какое либо значение) как нам тут delay поможет? |
| Автор: volvo877 21.3.2009, 15:07 | ||||
|
