шанс сумирования числа

[lowercase]

Доброго времени суток! я уже не первый день (а может и месяц) задаюсь этим вопросом..Наверное большенство из вас играли или слышали о такой игре как World of Warcraft.. там реализирована такая штука или метод или функицыя.. незнаю как еще можно это назвать.. как критический эфект от заклинания которое произносит персонаж.. или от его удара мечом)).. а основа этого всего это шанс нанести этот же дополнительный критический урон, который наносится относительно процентного значения.. то есть, если шанс нанести дополнительный критечекий урон равен 0% то я никогда не сделаю критический удар, если 100% я буду делать его постоянно. 50% - половина моих ударов - критичны (ну я думаю смысл ясен 3%, 16% - тоже возможный шанс)..

тут все удары это функция random
например random(16)+30 (я могу нанести урон от 30 до 45 единиц)
и критический эффект это тоже рандом, ну например random(81)+20
и есть шанс того что я нанесу критический удар (любой шанс от 0% до 100%)
и того результат = random(16)+30 + шанс в N процентов на добаление еще random(81)+20..

так вот.. хотелось бы увидить реализацию этой задачи, на Pascal (или Delphi.. для меня особой разницы нету)... или хотябы подскажите как можно решить эту зачадчу. буду очень благодарен!

[Alex Cones]

N := random(100);
Case N Of
0..98 : NormalBoom;
99     : CriticalBoom;
End;

...

Function CriticalBoom: Integer;
Begin
 DAMAGE := Random(MAXDAMAGE) * 2;
End;

Function NormalBoom: Integer;
Begin
 DAMAGE := Random(MAXDAMAGE);
End;

[lowercase]

нет это не совсем то...
дело в том что шанс дополниетльного сумирования может быть не целым числом например
15,78%,81,13%, 55,02% и тд...
и сколько будет произведено таких фунций тоже не известно.. то есть:
если я сделаю 4 удара при шансе 50% то это не значит что 2 из них обязательно будут критическими... а может критическим бует 3 удара а 1 некрит.. и следуших 2 некритическими...

прсто должно быть как в реальности.. допустим обычно человек кидает камень в среднем на 40-50 метров
и шанс того что он кинет на 55-65 у него может быть равен 18%.. но наперед не извесно сколько раз он будет кидать камень
и формула типа:
<кол-во критических бросков> = <общее кол-во бросков> * 18 / 100 не прокатит..(но она точно будет работать при извесном колличестве бросков)..
и в вашем примере китический удар будет только в том случае если шанс равен 100%.. эта задача как по мне не столь легкая как кажится на первый взгляд

[evg_m]

function IsSuper(sper: integer): boolean;
//suer вероятность сууперудара выраженная в ЦЕЛЫХ процентах
// result= true с вероятностью super процентов
begin
  result:=random(100)<=super;
end;

[lowercase]

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

спасибо большое evg_m! вроде и мелоч задача но интересно увидить решение)
еще раз спасибо большое!

[Alex Cones]

А можно и так:

N := random(101);
Case N Of
0..SUPERCHANCE : NormalBoom;
SUPERCHANCE+1..100     : CriticalBoom;
End;

[lowercase]

Сообщение от Alex Cones

А можно и так:

N := random(101);
Case N Of
0..SUPERCHANCE : NormalBoom;
SUPERCHANCE+1..100     : CriticalBoom;
End;

в прицыпе я согласен, такой пример тоже будет работать))(я не проверял но на вид вроде все правильно)
спасибо!)

[evg_m]

N := random(101);
Case N Of
0..SUPERCHANCE : NormalBoom;
SUPERCHANCE+1..100     : CriticalBoom;
End;

вот только SUPERCHANCE фиксирована и невозможно изменить в процессе работы программы