Датчик случайных чисел Turbo Pascal

[bianka]

Как можно реализовать датчик случайных чисел, которое принимает значение 0 и 1 с вероятностью p и (1-p) на языке программирования Turbo Pascal?

[faruk]

Всё, что от 0 до p, отправлять в 0. Всё, что от p до 1, отправлять в 1.

[bianka]

Не понимаю. И как это написать на языке Turbo Pascal?

[ИСН]

Как вообще работает паскалевский random, знаете? Что он выдаёт?

[bianka]

Не очень. Знаю, что команда Random(2) записывает 0 и 1, но не знаю как записать вероятности.

[ИСН]

Это нам не поможет. (Вероятности записать очень просто: 1/2 и 1/2.) Нужна другая команда. С похожим названием, но другая.

[bianka]

И если вероятность появления 1 например равна 1/3 и вероятность появления 0
ровная 2/3?
Яка другая команда?

[yk2ru]

Вам нужен рандом, который промежуточные результаты выдаёт, а не только крайние 0 и 1. Что до р выдаётся, сами отправляйте в качестве результата 0, а остальное даст результат 1.

[ИСН]

Другая команда - просто random, ни от чего (без скобочек). Посмотрите в хелпах.

[PAV]

Перемещено в раздел Программирование. Не дублируйте темы

[yk2ru]

функция майрандом: инт
начало
а = рандом;
если а < р то результат = 0
иначе результат = 1
конец

[bianka]

Спасиба, так уже работает. Можете объяснить как это процедура работает?

[yk2ru]

Наверное нужно обратиться к специалистам из Борланд, Микрософт и Интел, заодно и к яблочникам (Эйпл). Вот как же они добились, что записанные словами процедуры прекрасно работают на железных компьютерах?

В мешке 20 зелёных шариков и 80 жёлтых. С какой вероятностью вы вытащите из мешка не глядя зелёный шар, и с какой - жёлтый?

[dmivaler]

Вероятности будут соответственно 0,2 и 0,8