bianka |
Датчик случайных чисел Turbo Pascal 08.06.2010, 14:22 |
|
16/09/09 31
|
Как можно реализовать датчик случайных чисел, которое принимает значение 0 и 1 с вероятностью p и (1-p) на языке программирования Turbo Pascal?
|
|
|
|
|
faruk |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 15:32 |
|
06/01/06 967
|
Всё, что от 0 до p, отправлять в 0. Всё, что от p до 1, отправлять в 1.
|
|
|
|
|
bianka |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 15:41 |
|
16/09/09 31
|
Не понимаю. И как это написать на языке Turbo Pascal?
|
|
|
|
|
ИСН |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 15:43 |
|
Заслуженный участник |
|
18/05/06 13438 с Территории
|
Как вообще работает паскалевский random, знаете? Что он выдаёт?
|
|
|
|
|
bianka |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 15:48 |
|
16/09/09 31
|
Не очень. Знаю, что команда Random(2) записывает 0 и 1, но не знаю как записать вероятности.
|
|
|
|
|
ИСН |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 15:55 |
|
Заслуженный участник |
|
18/05/06 13438 с Территории
|
Это нам не поможет. (Вероятности записать очень просто: 1/2 и 1/2.) Нужна другая команда. С похожим названием, но другая.
|
|
|
|
|
bianka |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 16:01 |
|
16/09/09 31
|
И если вероятность появления 1 например равна 1/3 и вероятность появления 0 ровная 2/3? Яка другая команда?
|
|
|
|
|
yk2ru |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 16:04 |
|
03/10/06 826
|
Вам нужен рандом, который промежуточные результаты выдаёт, а не только крайние 0 и 1. Что до р выдаётся, сами отправляйте в качестве результата 0, а остальное даст результат 1.
|
|
|
|
|
ИСН |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 16:07 |
|
Заслуженный участник |
|
18/05/06 13438 с Территории
|
Другая команда - просто random, ни от чего (без скобочек). Посмотрите в хелпах.
|
|
|
|
|
PAV |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 16:11 |
|
Супермодератор |
|
29/07/05 8248 Москва
|
i |
Перемещено в раздел Программирование. Не дублируйте темы |
|
|
|
|
|
yk2ru |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 16:13 |
|
03/10/06 826
|
функция майрандом: инт начало а = рандом; если а < р то результат = 0 иначе результат = 1 конец
|
|
|
|
|
bianka |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 16:31 |
|
16/09/09 31
|
Спасиба, так уже работает. Можете объяснить как это процедура работает?
|
|
|
|
|
yk2ru |
Re: Датчик случайных чисел Turbo Pascal 08.06.2010, 16:38 |
|
03/10/06 826
|
Наверное нужно обратиться к специалистам из Борланд, Микрософт и Интел, заодно и к яблочникам (Эйпл). Вот как же они добились, что записанные словами процедуры прекрасно работают на железных компьютерах?
В мешке 20 зелёных шариков и 80 жёлтых. С какой вероятностью вы вытащите из мешка не глядя зелёный шар, и с какой - жёлтый?
|
|
|
|
|
dmivaler |
Re: Датчик случайных чисел Turbo Pascal 16.06.2010, 09:19 |
|
16/06/10 4
|
Вероятности будут соответственно 0,2 и 0,8
|
|
|
|
|
|
Страница 1 из 1
|
[ Сообщений: 14 ] |
|
Модераторы: Karan, Toucan, PAV, maxal, Супермодераторы