2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




Начать новую тему Ответить на тему
 
 Датчик случайных чисел Turbo Pascal
Сообщение08.06.2010, 14:22 


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

 Профиль  
                  
 
 Re: Датчик случайных чисел Turbo Pascal
Сообщение08.06.2010, 15:32 
Аватара пользователя


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

 Профиль  
                  
 
 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, знаете? Что он выдаёт?

 Профиль  
                  
 
 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.) Нужна другая команда. С похожим названием, но другая.

 Профиль  
                  
 
 Re: Датчик случайных чисел Turbo Pascal
Сообщение08.06.2010, 16:01 


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

 Профиль  
                  
 
 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, ни от чего (без скобочек). Посмотрите в хелпах.

 Профиль  
                  
 
 Re: Датчик случайных чисел Turbo Pascal
Сообщение08.06.2010, 16:11 
Супермодератор
Аватара пользователя


29/07/05
8248
Москва
 i  Перемещено в раздел Программирование. Не дублируйте темы

 Профиль  
                  
 
 Re: Датчик случайных чисел Turbo Pascal
Сообщение08.06.2010, 16:13 


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

 Профиль  
                  
 
 Re: Датчик случайных чисел Turbo Pascal
Сообщение08.06.2010, 16:31 


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

 Профиль  
                  
 
 Re: Датчик случайных чисел Turbo Pascal
Сообщение08.06.2010, 16:38 


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

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

 Профиль  
                  
 
 Re: Датчик случайных чисел Turbo Pascal
Сообщение16.06.2010, 09:19 


16/06/10
4
Вероятности будут соответственно 0,2 и 0,8

 Профиль  
                  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 14 ] 

Модераторы: Karan, Toucan, PAV, maxal, Супермодераторы



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group