请教!!!!!!!!!!!!!

Question

我现在正编这样一个程序,10只足球队进行比赛,采取分组单败淘汰!每组两只队伍,第一次分组时我想用16支队的模型,也就是说有6只队要轮空,而且分组是随机产生的.请问该怎样解决?请大侠们赐教!

Answer 1

产生一个1到16的随机排列，然后第一位的和最后一位得分在同一组，然后规定组合到11到16的队伍轮空就可以了。给你一个产生随机排列的例子；
-------------------------------------------
procedure TForm1.RandomRank();
var  MyArray: array[1..9] of Integer;
     I,temp:integer;
     MySet:ToneSet;  // ToneSet是一个取值在1..9之间的整数集合
begin
    MySet:=[0];
    randomize;
    for I:=1 to 9 do
    begin
         repeat
            temp:=random(10);
         until not (temp in MySet);
         Include(MySet,temp);
         MyArray[I]:=temp;
    end;end;

Answer 2

整体我清楚了！但是Toneset 这个集合如何定义啊！谢！
单败淘汰赛就是输了一场就没有比赛资格了！