распределение футбольных комманд

[hunter03]

Здравствуйте! подскажите как лучше организовать турнирную таблицу для комманд?
В БД хранятся названия комманд. Необходимо, что бы каждая комманда сиграла с каждой, и был виден результат как эти комманды сиграли. (в общем 30 туров выходит верно?) Как это лучше реализовать?? Подскажите!)

[hunter03]

Помогите придумать алгоритм, что бы каждая команда сыграла с каждой...никак не получается придумать универсальный...

[Скандербег]

Если бы еще знать что в этом случае подразумевается под понятием "алгоритм".

Общее кол-во игр: (k^2-k) / 2. Где k - заданное количество команд.

[Sciv]

Тут даже не алгоритм, а классическая комбинаторика - количество сочетаний по 2 из 30.

for i:=1 to 30 do
  for j:=i+1 to 30 do
    WriteLn(i,j);

Это так... Вывод сочетаний. Вместо WriteLn пишите свой код - какую-нибудь функцию, определяющую, кто с кем играет и возвращающую счет.

Ну, предположим, так:

type TSchet=array [1..2] of byte;

function Game: TSchet;
begin
  Randomize;
  Game[1]:=Random(6)+1;
  Game[2]:=Random(6)+1;
end;

Возможно, что обращение Game[n] не прокатит (не помню и не проверял) - тогда вводите доп. переменную.