В общем целью было проверить, действительно ли при больших кол-вах экспериментов с подкиданием монеты, количества выпаданий герба и числа особо не отличаются и стремятся к вероятности 0.5
Кидаем 1000 раз. Почему то постоянно один и тот же результат. Почему?



Ноль - это число (решка), единица - герб (орел).

Metalex, randomize в начале вызови... 

Выпадает по 509-579, пробовал раз 20.

Добавлено через 52 секунды
А без randomize, Random(2) выдаёт всегда 0.

Вобщем попробуй просто повыводить числа без подключения "Randomize" тама дается "0 0 1 2.." причем всегда

Библиотека Randomize нужна чтобы присвайвалось значение зависящие от аппаратного времени в миллисикундах если неошибаюсь тобиш по строгому алгоритму) При подкидование монетки шанс выпадаения зависит от множества факторов (теория вероятности) и математически считается всетаки довольно сложно:(

Вот надо же  пропустил randomize. Бывает) Всем спс.

Просто мы на уроке поспорили с училкой, что из 1000 раз число может выпасть 300. Она утверждала, что нет - мы, что может. Теперь я понял, что не может. Но ведь теоретически то может?

"Тама" 2 вообще никак не присутствует, потому как явно указано: от 0 до 2 (НЕ включая 2)...


Во-первых, не библиотека, а процедура. А во-вторых, нужна она только для начальной инициализации ГПСЧ, и ни для чего больше. Если не использовать Randomize, то при нескольких подряд запусках одной и той же программы будешь получать одинаковые результаты. Удобно для отладки, но неприменимо для эксперимента.

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

противоречиво

Добавлено @ 23:57

может с вероятностью 30 % 

Добавлено @ 00:02
ЗЫ. Вроде рандомизатор не является объективным подтверждением тервера...
volvo877, уточни, пожалуйста, насчет рандомизатора в программировании...
Насколько мне помнится, то он - псевдослучайный (то есть не идеальная случайность, а какая-то зависимость)...
Правильно или нет? А в реальной жизни решка без напрягов может выпасть несколько раз подряд...
Имхо, эта прога не подтверждение в данном споре... 

Это сообщение отредактировал(а) Kbl4AH - 18.3.2009, 00:07

"тама" имелось в виду что если мы будим выполнять подряд несколько присваиванфий без randomize


//for i:=1 to n do a[i]:=random(maxlongint);

то при каждом запуске программы будем получать одинаковые массивы типа {0,0,1,2..}

в данном случае "random(2)" при каждом запуске получаем "0" т.к. значения видимо округляюца:(

Прошу прощения за неточность а придыдущем посте)

P. C. Одно из условий получения идиального рандома если неошибаюсь чтобы "количество любых значений полученых в ходе эксперимента было примерно равно" В паскаль это выполняется Например можно написать программу которая присваевает переменным масива значения от 1 до 5 и на каждом шаге выдает количество единиц двоек троек и пятерок) Нащет монет: можно попробывать найти условие/копилятор с неидельным рандомом при котором будет выдавать значения например 300/700 и т. д.

Но выбор нового вероятного значения в тервере (в реальном мире) не должен зависеть от предыдущего значения... 
А в рандомизаторе - зависит, чтобы выбранные значения были максимально различными...

Хм есть предложение а если присваевоемое значение будет зависеть от реальной случайности(например от человека сидящего у компьютера)

например

Пользователь в ходе программы нажымает клавишу 10 раз и значение переменной зависит от пайзы между нажатиями в милисекундах (четное-1 нечетное-0)
К сожалению не могу на данный момент реализовать т. к. не знаю как заставить паскаль работать со временем(

AXOXC, оператор delay(время в миллисекундах)

Ето задержка в выполнение программы.

А как же проверить? Я же не буду подбрасывать 1000 раз  Хотя один хлопец уже 300 раз бросил)

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

Не в училке дело)