NEERC/headshot/tests/gen.pas

   1 unit gen;
   2 interface
   3
   4 procedure GenRandom(p0, n, seed: integer);
   5
   6 implementation
   7
   8 procedure GenRandom(p0, n, seed: integer);
   9 var
  10   i: integer;
  11 begin
  12   RandSeed := seed;
  13   for i := 1 to n do
  14     if Random(100) < p0 then
  15       Write('0')
  16     else
  17       Write('1');
  18   WriteLn;
  19 end;
  20
  21 end.