Randomize

[rahim_azeri]

Merhaba arkadaslar.Mesela ben 1-den 5-e kadar olan rakamlari Random()-la secmek istiyorum, amma isteyirem ki 1 rakamini secilme shansi 10%,2 rakaminin secilme shansi 15%,3-20%,4-25%,5-30% olsun.Onceden tesekkurler.

[emin_as]

Direk öyle yapamazsın. Ama şu şekilde bir yöntem geliştirebilirsin.

1-10 : 1 %10
11-25: 2 %15
26-45: 3 %20
46-70: 4 %25
71-100: 5 %30

Yani 1 ile 100 arası rakam seçtirirsin, 1-10 arası ise 1, 11-25 arası ise 2, 26-45 arası 3 vs varsayarsın.

[SimaWB]

@emin_as 'ın dediğini koda dökersek:

Kod: Tümünü seç

function GetRandom: integer;
begin
  Randomize;
  case Random(100)+1 of
    1..10   : Result := 1;
    11..25  : Result := 2;
    26..45  : Result := 3;
    46..70  : Result := 4;
    71..100 : Result := 5;
  end;
end;

Yada farklı bir yol:

Kod: Tümünü seç

function GetRandom: integer;
const
  Liste : array[1..20] of integer = (1,1,2,2,2,3,3,3,3,4,4,4,4,4,5,5,5,5,5,5);
  //Liste : string[20] = '11222333344444555555';
begin
  Randomize;
  Result := Liste[Random(20)+1];
  //Result := StrToInt(Liste[Random(20)+1]);
end;

[rahim_azeri]

Allah sizlerden razi olsun kardesler...!