24.05.2007, 12:49
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
Delphi. Простая, но очень полезная функция (при написании игр, искусственных интеллектов, эмуляторов игровых автоматов и т.д.). Функция идентична random: boolean, только с параметром percent, (0 <= percent <= 100) - вероятностью истинного результата. Например, probrandom(80) вернет true с вероятностью 80%.
Код:
function probrandom(percent: integer): boolean;
begin
result := random(100) < percent;
end;
З.Ы. Не забываем инициализировать генератор случайных чисел (randomize)
Последний раз редактировалось _Great_; 26.05.2007 в 20:03..
Причина: Кнопку "Редактировать" придумали не для вас, наверное
|
|
|