数据生成程序.pas

ACM中班级排名

const
  c:array[1..52] of char=('A','B','C','D','E','F','G','H','I','J'
  ,'K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
  'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p',
  'q','r','s','t','u','v','w','x','y','z');
var
  s:array[1..10000] of string[30];
  hash:array[1..10000] of boolean;
  i,j,n,m,k,l:integer;
  p:string;
  f:boolean;
begin
  assign(output,'jly.txt');
  rewrite(output);
  n:=10000;
  m:=50;
  writeln(n);
  randomize;
  s[1]:='JLY';
  for i:=2 to n do
    begin
      l:=0;
      while l=0 do l:=random(31);
      f:=false;
      while not f do
        begin
          p:='';
          f:=true;
          for j:=1 to l do
            begin
              k:=0;
              while k=0 do k:=random(53);
              p:=p+c[k];
            end;
          for j:=1 to i-1 do
            if p=s[j] then f:=false;
        end;
      s[i]:=p;
    end;
  for i:=1 to n do writeln(s[i]);
  writeln(m);
  for i:=1 to m do
    begin
      fillchar(hash,sizeof(hash),false);
      for j:=1 to n do
        begin
          k:=random(101);
          write(k,' ');
          k:=0;
          while (k=0)or(hash[k]) do k:=random(n+1);
          hash[k]:=true;
          writeln(s[k]);
        end;
    end;
  close(output);
end.