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

[jone]

проблема решена всем спасибо

var
J,r,u:integer;
o:string;
begin
Randomize; Randomize; Randomize; Randomize;

r:=802;// 0-801
u:=800;// 800 801

// Вероятность выподания 2 к 800 то есть оч маленькая

j:=Random(r);

if (j>=u) then
lbl1.Caption:=IntToStr(j)
else
lbl1.Caption:='-';


end;

[netpolice]

А вот теперь я не понял, а что надо в итоге?

[Аватар]

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

Уменьшил бы в 10 раз так

  n:=10;

  i:=Random(79*n+21);
  if i<79*n then i:=i div n else Dec(i,79*(n-1));
  Inc(i);

[jone]

procedure TForm1.FormCreate(Sender: TObject);
begin
z:=0;
z1:=0;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
var
J,r,u:integer;
o:string;
begin
Randomize;

r:=815;//
u:=800;//

j:=Random(r);

if (j>=u) then
begin
inc(z);
lbl2.Caption:=IntToStr(z);
lbl1.Caption:=IntToStr(j);
end
else
begin
lbl1.Caption:='-';
inc(z1);
lbl3.Caption:=IntToStr(z1);
end;


lbl4.Caption:= FloatToStr((z*100)/z1);

end;

lbl1 число
lbl2 Сколько раз выпало
lbl2 Из всего
lbl4 Показывает процент выпадания


Помагите сделать из обратного тоест чтобы я задавал % выпадания с десятыми 6.666%

[s-andriano]

i := trunc(Scale*pow(random, gamma));

Scale - диапазон.
gamma - показатель, регулирующий распределение.

[netpolice]

i := trunc(Scale*pow(random, gamma));

Не знал пойду погуглю

[Arigato]

Можно так:

function rnd100 (c: integer): integer;
begin
  repeat
    Result := Random (100) + 1;
    Dec (c);
  until (c < 0) or (Result >= 80);
end;

Чем выше c, тем больше вероятность выпадения 80..100. Например, rnd100 (2), вероятность около 50%.