Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Прога работы с вероятностными выпадениями чисел (0 и 1) [D7, XP]

Страницы: 1 2 >
\/iKTOR © (2007-07-04 12:44:00)
Всем привет
Если есть у кого готовый исходник, поделитесь пожалуйста.
Нужно генерить случайное выпадение 1 или 0 с регулировкой скорости генерации, подсчета вероятности выпадения(0,5), подсчета последовательных выпаданий одинаковых чисел(максимальное значение), общее количество бросков, ну и в этом духе, для последующей доработки.

Игорь Шевченко (2007-07-04 15:54:00) [1]

> о, дискуссия продолжается

Ошибаешься.

iXT (2007-07-04 15:23:00) [2]

> Или была уже такая тема, а я не нашел, так кинули бы ссылочку,
> я бы и не стал задавать столь простого для вас вопроса.

А поиск тоже для нас сделан?

> Ладно, не буду беспокоить, поищу ченибудь для чайников.

В библиотеку?

Dib@zol (2007-07-04 14:31:00) [3]
о, дискуссия продолжается :))

Johnmen (2007-07-04 14:15:00) [4]

> а чтение форума это не литература?

Представь себе - НЕТ.

\/iKTOR (2007-07-04 14:08:00) [5]
2 Правильный Вася
Это не медвежья услуга, это посильная помощь, на что я и надеялся, а если есть ляпы в программе, то сам уже буду разбираться, не маленький.

\/iKTOR (2007-07-04 14:04:00) [6]
"Не умение нажать F1 не освобождает от ответственности (впрочем как и не читания др. литературы)"
Затюкали, пристыдили и послали по назначению... спасибо.
Учится на живых примерах получается зазорно.
Чтение другой литературы, - а чтение форума это не литература?
Или была уже такая тема, а я не нашел, так кинули бы ссылочку, я бы и не стал задавать столь простого для вас вопроса.
Ладно, не буду беспокоить, поищу ченибудь для чайников.

Dib@zol (2007-07-04 14:03:00) [7]

> Johnmen © (04.07.07 13:55) [19]
> Правильный Вася (04.07.07 13:57) [20]

Понимаете в чём дело - нужен был ПРИМЕР а не Образец Того Как Надо Программировать. А \/iKTOR уже пусть сам в нем разбирается.

Правильный Вася (2007-07-04 13:57:00) [8]

> писалось с кондачка, в блокноте, за пару минут.

медвежья услуга

Johnmen (2007-07-04 13:55:00) [9]

> Dib@zol © (04.07.07 13:52) [17]
> Не забывай - писалось с кондачка, в блокноте, за пару минут.

Занятное оправдание...

Johnmen (2007-07-04 13:54:00) [10]

> Несчет халявы, мы все в той или иной степени халявщики,
> вы сами писали винду? А Делфи?

Нет, я их не писАл. Но! Я за них заплатил! Улавливаешь?
А ты заплатил за предоставленный код? Нет.
Значит ты - халявщик, а я - нет. Без всякой той или иной степени.
И старайся, когда озвучиваешь своё личное мнение, не употреблять местоимения "мы".

Dib@zol (2007-07-04 13:52:00) [11]

> "ТАК НИЗЯ ПИСАТЬ"

Не забывай - писалось с кондачка, в блокноте, за пару минут.

iXT (2007-07-04 13:49:00) [12]
Не умение нажать F1 не освобождает от ответственности (впрочем как и не читания др. литературы)

Код [6] разрешить показывать как пример "ТАК НИЗЯ ПИСАТЬ"

\/iKTOR (2007-07-04 13:47:00) [13]
2 Dib@zol
Еще раз спасибо за уточнения, что касательно фразы "> я вообще просил исходник готовой програмки для доработки." это относилось не к Вам.

Несчет халявы, мы все в той или иной степени халявщики, вы сами писали винду? А Делфи? Я же не просил писать за меня, что мне нужно, я только хотел живой и работоспособный пример, что бы в нем разобраться. Если такой уже есть и не жалко, то почему бы и не дать? Комуто все просто, а кому нужно долго мучаться. Если вам жалко или напряжно, то че писать, я сам могу таких постов кучу написать, и кому это поможет?

Dib@zol (2007-07-04 13:38:00) [14]

> название конфы

А мож правда поменяем :)))))

Johnmen (2007-07-04 13:37:00) [15]

> Dib@zol © (04.07.07 13:29) [11]
> Мы и сами когдато такими были...

Вполне допускаю, что ты когда-то был халявщиком. Но это вовсе не значит, что и все остальные тоже.
И название конфы "Начинающим", а вовсе не "Халява на шару"...

Плохиш (2007-07-04 13:32:00) [16]

> Сказали тебе - НОВИЧКОВ

Значит у нас разные понятия "новичков".

Dib@zol (2007-07-04 13:29:00) [17]

> Тошнит меня на халявщиков и дармоедов...

Сказали тебе - НОВИЧКОВ!!! Мы и сами когдато такими были...

Плохиш (2007-07-04 13:27:00) [18]

> \/iKTOR (04.07.07 13:18) [7]
> Я вообще думал, что нахожусь в разделе для новичков

Тошнит меня на халявщиков и дармоедов...

Dib@zol (2007-07-04 13:27:00) [19]

> я вообще просил исходник готовой програмки для доработки.

Дык епт. Вставь ф-цию в любую прогу - заработает[надеюсь]!

> const
> GenSpd = 100;
> MaxRolls = 50;
>
> var
> Probability : Single;
> MaxQueue, tmp, RollCount, Trues : Word;
> buf, lastBuf : Boolean;

Это объяви в разделе глобальных переменных модуля (где написано var form1:TForm).

> SetTimer(0, 1, GenSpd, @longInt(RollProc));
> RollCount:=0;
> MaxQueue:=0;
> tmp:=0;
> Trues:=0;

Это пропиши гденить в ФормКреэйт.

Всё остальное - это нужная тебе процедура. После того как она отработает [MaxRolls] раз, она вернёт среднюю вероятность выпадения единицы в процентах в переменной Probability, колво выпадений True в переменной Trues, максимальное колво идущих подряд единиц в MaxQueue.

Уф вроде разжевал. Но если таки остались вопросы - ладно спрашивай Это в натуре форум для новичков.

\/iKTOR (2007-07-04 13:20:00) [20]
2 Dib@zol
Огромное спасибо, прийду домой, попробую !!!
Да прибудет Вам удача!

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »