Увеличить или уменьшить вероятность RND

[jone]

Доброго время суток уважаемые гуру

Есть диапазон 1..100 -- Это random(100)
Как увеличить, либо уменьшить вероятность выпадания скажем 80-100
Вероятность тоже в цифре 1-10 либо проценте

[netpolice]

я бы к примеру Вызвал бы random(200)

А потом все ответы от 0 до 80 оставлял бы без изменения, а остальные бы поделил бы на 6, ну как то так

А уменьшить вероятность random(90) и значения от 80 до 90 умножил бы на 2.

Ну я думаю смысл понятен.

я тут вот еще о чем подумал, а ведь random(90) значение целочисленное, значит надо посмотреть на вещественные типы

[jone]

Сообщение от netpolice

я бы к примеру Вызвал бы random(200)

А потом все ответы от 0 до 80 оставлял бы без изменения, а остальные бы поделил бы на 6, ну как то так

А уменьшить вероятность random(90) и значения от 80 до 90 умножил бы на 2.

Ну я думаю смысл понятен.

я тут вот еще о чем подумал, а ведь random(90) значение целочисленное, значит надо посмотреть на вещественные типы

var
J:integer;
o:string;
begin
Randomize; Randomize; Randomize; Randomize;
j:=Random(90);

if (j>=80) and (j<=90) then
j:=j*2;


lbl1.Caption:=IntToStr(j);
end;

Тогда они у меня не когда не выпадут же ?
160 - 180

бред какойто ) или я не так понял

[jone]

j:=(Random(79)+Random(21));
вот так вероятность мала но как бы её контролировать

[netpolice]

if (j>=80) and (j<=90) then
j:=(j-80)*2+80;

Как то вот так, но предупреждаю сразу, надо уходить от целочисленного RND;

if (j>=80) and (j<=90) then
j:=Random(20)+80;

А вот так веселее

и регулируем значение 90, где есть, где больше будет 100, вероятность увеличивается, где меньше 100 но стремиться к 80 уменьшается

т.е.

var
J,r:integer;
o:string;
begin
Randomize; Randomize; Randomize; Randomize;
r:=90;// меняем значение r меняется вероятность

j:=Random(r);

if (j>=80) and (j<=r) then
j:=Random(20)+80;


lbl1.Caption:=IntToStr(j);
end;

[Serge_Bliznykov]

Есть диапазон 1..100 -- Это random(100)

это уже неверно!
random(100) даёт числа от 0 до 99

Как увеличить, либо уменьшить вероятность выпадания скажем 80-100
Вероятность тоже в цифре 1-10 либо проценте

очевидно, что вероятность выпадения любой цифры равна 1/100
во сколько раз Вы хотите увеличить выпадение цифр от 80 до 100 ?

[netpolice]

Сообщение от Serge_Bliznykov

это уже неверно!
random(100) даёт числа от 0 до 99

Это да! граничные положения 0 100 и 80 надо вылизывать, но уже не интересно, я свое решение предложил

[Аватар]

  Randomize;
  n:=10;  //на [80,100] вероятность в 10 больше вероятности на [1,79]

  i:=Random(100+(n-1)*21)+1;
  if i>=80 then i:=80+((i-80) div n);

[jone]

Сообщение от Аватар

  Randomize;
  n:=10;  //на [80,100] вероятность в 10 больше вероятности на [1,79]

  i:=Random(100+(n-1)*21)+1;
  if i>=80 then i:=80+((i-80) div n);

таакс а уменьшить ? точно также

[netpolice]

var
J,r:integer;
o:string;
begin
Randomize; Randomize; Randomize; Randomize;
r:=82;// меняем значение r меняется вероятность

j:=Random(r);

if (j>=80)  then
j:=Random(20)+80;


lbl1.Caption:=IntToStr(j);
end;

К стати and (j<=r) действительно не нужен