генератор псевдослучайных чисел

[duff]

народ помогите написать написать генератор псевдослучайных чисел

смотрите если записать так Аn[j] = random(2) то он внесет массив An[j] примерно по 50 процентов 1 и 0. Ну так надо продумать что бы он вносил не по 50 процентов а допустим 30 процентов 0 -лей и остальное загонял на единицу. Процентное соотношение можно задавать вначале, ну типо задайте процентное соотношение нулей ну или как там будет удобно.

Так как в randome этого не реализовать, то помогите написать данный генератор.....

[Google2010]

type Tar=array[1..100] of byte;
  var b:tar;
...
  procedure Rand( p:Real;var a:Tar;n:integer);
  var
  i:integer;
  k:integer;
  c:integer;
  begin
   k:=round(p*n/100);
   for I := 1 to n do
   a[i]:=0;
   for I := 1 to k do begin
     repeat
      c:=random(n)+1;

     until a[c]=0 ;
   a[c]:=1;
   end;
  for I := 1 to n  do
    write(a[i]:4);
  end;

использование

Rand(30,b,10);

[ROMA2PVT]

uses crt;
var
mas : array[1..100] of integer;
chisla : array[1..100] of integer;
n,p,a : integer;
i,k,j : integer;

function getrandel : integer;
var t : integer;
begin
t := random(100)+1;
getrandel := mas[t];
end;
{----------}
procedure check;
var i,j,r : integer;
k : array[1..200] of integer;
begin
for i:=1 to n do
 k[i] := 0;
for i:=1 to 100 do
 begin
 r := getrandel;
 for j:=1 to n do
  if r = chisla[j] then inc(k[j]);
 write(r);
 if i mod 20 = 0 then writeln;
 end;

writeln('-------------');
writeln('Statistic: ');
for i:=1 to n do
 writeln('Chislo ',chisla[i],' vypalo ',k[i],' raza');
writeln;
end;

begin
clrscr;
randomize;
write('Kolichestvo elementov: ');
readln(n);
k := 1;
for i:=1 to n do
 begin
 write('Vvedite chislo ',i,': ');
 readln(a);
 chisla[i] := a;
 write('Vvedite procent vypadaniya: ');
 readln(p);
 for j:=1 to p do
  begin
  mas[k] := a;
  inc(k);
  end;
 end;
{-------}
check;

readln;
end.

Вот как то так.
Писал не я.

[duff]

оо спасибо ща пойду подгонять под себя

[Grag]

ROMA2PVT! Мона спросить, а в чем исключительная прелесть генерации случайного числа t := random(100)+1; в отличие от просто t:=random(101) Извини, дошло до тупого! ты исключаешь 0... Но, массивы обычно индексируют от 0 и до... Так что это все пионерские излишества...

[ROMA2PVT]

Хах!Grag Я ж говорю писал не я. А самому разбираться в ней чёт не очень хочется.Вот и подскажите парню что в ней не так,да как это исправить.

[ROMA2PVT]

Да и массивы в паскале с чего угодно индексируются.

[eoln]

Зачем так усложнять?

ProcNul := 15;
for j := 1 to n do
  if random(100) < ProcNul then A[j] := 0 else A[j] := 1;

ProcNul - процент нулей в массиве.
P.S. Сразу скажу, чтоб не придирались - заполняется статический массив размерности n нулями и единицами, нулей будет не ровно 15%, но их количество будет стремится к этому числу справа и слева (как впрочем и random(2) не даёт ровно 50% при малых значениях n)

[Grag]

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

Да и массивы в паскале с чего угодно индексируются.

Да и вообще можно писать как угодно... Только как напишешь, так оно и работать потом будет

[ROMA2PVT]

Да и вообще можно писать как угодно... Только как напишешь, так оно и работать потом будет

Ну пока ни кто не жаловался.На мои проги я имею ввиду.
Тайну вы мне не открыли что если генерировать с помощью randomize не добьёшься идеального процентного соотношения.