Random + Преимущественный вариант.

[Alex Cones]

Мне необходимо создать функцию Function RandomAdvance(Vars,PreimVar:Byte);
Попытаюсь объяснить, что она должна делать.
Вызываем Функцию:

N:=RandomAdvance(3,75);

Что из этого выплывает: У нас три варианта: Random(2); {В конечной функции наверное Random(Vars-1)}
Надо, что-бы число 0 (преимущественное число) выпадало в 75%-тах случаев (то самое PreimVar)

На два варианта все просто:

M:=Random(100);
Case N of
0..PreimVar:N:=0;
PreimVar+1..100:N:=1;
End;

[SuperVisor]

Попробуй реализовать обычным MOD...

N = Random(high(longint));
if N mod trunc(100/percent)=0 then
...

[Alex Cones]

Не совсем понял, что даст данная комбинация. (mod мне знаком) Например, что такое high?

[Stilet]

Например, что такое high?

Эт функция, которая возвращает два старших байта из 4-хбатового числа

[russian-stalker]

Вы написали Procedure,но она не возвращает параметры
Примерно так?

function RandomAdvance(Vars,PreimVar:Byte):byte;
var
i,i2:integer;
begin
  i2:=0;
  Randomize;
  i:=random(99);
  if Vars<>0 then
  begin
  Randomize;
  i2:=random(Vars-1);
  end;
  if i<(preimvar-1) then
      result:=0 else
  result:=i2+1;
end;

[Alex Cones]

SuperVisor

Спасибо, код прекрасно работает.

Эт функция, которая возвращает два старших

Аааа, ясненько. Спасибо.

А вот как реализовать, что-бы можно было реализовать Function PercentageRandom(Counts:Byte; VariantsInString:String):Byte;
VariantsInString Задается примерно как:'502525' (Если Count =3) - На первый вариант 50% на второй вариант 25% на третий 25%.
Наверное придется как-то проходить в цикле от 1 до Count, считывать Вероятность в виде

Veroya[I]:=StrToInt(Copy(VariantsInString,1,2); Delete(VariantsInString,1,2);

Массивчик Veroya наверное должен быть динамическим.
___________________________________ ___________________________________ _____________________________
Примерно 10% кода уже, как говорится собрано:

Function PercentageRandom(Counts:Byte; VariantsInString:String):Byte;
Var
 Veroya:Array of Byte;
 I:Byte;
Begin
 SetLength(Veroya,Count);
 For I:=1 to Count do
  Begin
   Veroya[I]:=StrToInt(Copy(VariantsInString,1,2)); 
   Delete(VariantsInString,1,2);
  End;
 ...
 End;

russian-stalker Я уже заметил, что написал не так. Что бы проверить работосполобность кода проверял так:

procedure TForm1.Button1Click(Sender: TObject);
Var
N,J,I,Polo,Otr:Integer;
begin
Randomize;
Polo:=0;
Otr:=0;
For I:=0 to 99999999 do
 Begin
  N := Random(high(longint));
  if N mod trunc(100/10)=0 then Inc(Polo) Else Dec(Otr);
 End;
Memo1.Lines.Add('Позитивно - '+IntToStr(Polo));
Memo1.Lines.Add('Негативно - '+IntToStr(Otr));
end;

___________________________________ ___________________________________ ______
Кажется у меня промелькнула мысль о том, каким способом можно
то реализовать. представим Линию от 0 до 100 (см. аттач) Она разбивается на промежутки, указанные в Veroya. Берется Random(101) и кидается на линию. В какой "район" он попал, тот вариант и срабатывает
В Result`е нужно получить номер варианта.
___________________________________ ___________________________________ ________
ВСЕ!!! НАШЕЛ!!! Решение как всегда просто:

For G:=1 to Count do
 For H:=1 to Veroya[G] do
  MainArray{от 0 до 100 типа байт}[H]:=G;
N:=Random(101);
Result:=MainArray[N];

[0nni]

А если что то вроде этого?

Result := Ramdom(Trunc(vars + vars * 0.75))
if Result > vars - 1 then Result := PreimVar;

А нет, вру.

[Alex Cones]

Я уже нашел правильное решение, посты 2 и 6. Тему даже можно закрывать.