树的随机生成器

个人对拍备份

var
  n,x,y,v,i:longint;
  f:array[1..100000]of boolean;
begin
  assign(output,'testdata.in');rewrite(output);
  n:=100000;
  writeln(n);
  randomize();
  x:=random(n);
  writeln(x,' ',x+random(n-x+1));
  f[1]:=true;
  for i:=1 to n-1 do
  begin
    x:=random(n)+1;while not f[x] do x:=random(n)+1;
    y:=random(n)+1;while f[y] do y:=random(n)+1;
    f[y]:=true;
    v:=random(10000)+1;
    writeln(x,' ',y,' ',v);
  end;
  close(output);
end.