Мастера 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), подсчета последовательных выпаданий одинаковых чисел(максимальное значение), общее количество бросков, ну и в этом духе, для последующей доработки.

\/iKTOR (2007-07-04 13:18:00) [21]
Я вообще думал, что нахожусь в разделе для новичков... :(
У меня сейчас перед глазами нет Делфи, я так понимаю там есть вызов такой функции соответствующим нажатием клавиш, я вообще просил исходник готовой програмки для доработки.
:(

Dib@zol (2007-07-04 13:13:00) [22]
const
GenSpd = 100;
MaxRolls = 50;

var
Probability : Single;
MaxQueue, tmp, RollCount, Trues : Word;
buf, lastBuf : Boolean;

...

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

...

procedure RollProc;
begin
Inc(RollCount);
If RollCount>MaxRolls then begin
Probability:=100*Trues/MaxRolls;
KillTimer(0, 1);
exit;
end;

buf:=boolean(Random(2));

if buf then begin
inc(Trues);
if lastBuf then inc(tmp) else begin
if tmp>MaxQueue then MaxQueue:=Buf;
tmp:=1;
end;
end;
lastbuf:=buf;
end;

Вот. За работоспособность кода не отвечаю - набрал в блокноте за три минуты. Однако это может послужить примером.

Плохиш (2007-07-04 13:11:00) [23]
random + F1

\/iKTOR (2007-07-04 13:09:00) [24]
Random это программа или функция? Если первое, помогите найти пожалуйста, чето я в поиске не рулю :(

\/iKTOR (2007-07-04 12:58:00) [25]
О_о быстренько вы ответили, спасибо, рандом не пробовал, спасибо за наводку, щас поищу, а то не знаю с какой стороны начать, надеюсь там есть исходник для переработки.
Регулировка скорости, это возможность задавать количество выпадений в единицу времени, в минуту например.
Спасибо за ответ.

Dib@zol (2007-07-04 12:55:00) [26]

> > с регулировкой скорости генерации
>
> :) это как?

Видимо при поддержке таймера.

{$ TELEPATOR ON}

Походу это какая-то лабораторная / практическая?

{$ TELEPATOR OFF}

iXT (2007-07-04 12:48:00) [27]
Random не устроил?

> с регулировкой скорости генерации

:) это как?

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

Наверх

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