Код

declare @люди table (id integer)

insert into @люди values (1)
insert into @люди values (2)
insert into @люди values (3)
insert into @люди values (4)
insert into @люди values (5)
insert into @люди values (6)

declare @турниры table (id integer, чел1 integer, чел2 integer)

insert into @турниры values (1, 1, 2)
insert into @турниры values (1, 3, 4)
insert into @турниры values (1, 5, 6)
insert into @турниры values (2, 1, 4)
insert into @турниры values (2, 2, 5)
insert into @турниры values (2, 3, 6)

select люди1.id чел1, люди2.id чел2
from @люди люди1
	inner join @люди люди2 on люди1.id < люди2.id
where not люди2.id in (
		select чел2
		from @турниры
		where чел1 = люди1.id
	) 

Код

create table #players (id int primary key,name varchar(50))
create table #games(id int identity primary key,player1 int,player2 int)


insert into #players values(1,'Иванов')
insert into #players values(2,'Петров')
insert into #players values(3,'Сидоров')
insert into #players values(4,'Пупкин')
insert into #players values(5,'Ступкин')
insert into #players values(6,'Рабинович')
 

Код

declare @p1 int,@p2 int

select top 1
 @p1 = vt.p1,@p2 = vt.p2
from(
select distinct
 case when p.id > p2.id then p.id else p2.id end p1,
 case when p.id < p2.id then p.id else p2.id end p2
from #players p cross join #players p2) vt
left join
 #games g on g.player1 = vt.p1 and g.player2 = vt.p2 or g.player2 = vt.p1 and g.player1 = vt.p2
where
 g.id is null

if @p1 is null
	print 'Вариантов больше нет'
else
	insert into #games values(@p1,@p2)
 

• получить все возможные пары;
• получить все возможные турниры;
• получить все наборы непересекающихся турниров;
• найти самый длинный набор турниров.

Код

Функция ПолучитьПарыДляИгр(спИгроковГруппы//:СписокЗначений
	,спВозможныхПар//:СписокЗначений
	)


	Для й=1 По спВозможныхПар.РазмерСписка() Цикл
		спНераспределенныхИгроков = СоздатьОбъект("СписокЗначений");
		спИгроковГруппы.Выгрузить(спНераспределенныхИгроков);
		Результат  = СоздатьОбъект("СписокЗначений");
		текПара = спВозможныхПар.ПолучитьЗначение(й);

		ПолучитьИгроковПары(текПара, Игрок1, Игрок2);
		Результат.ДобавитьЗначение(текПара);

		УдалитьИзСписка(спНераспределенныхИгроков, Игрок1, Игрок2);
		Если спНераспределенныхИгроков.РазмерСписка()=0 Тогда
			Возврат Результат;
		КонецЕсли;

		Для ж=1 По спВозможныхПар.РазмерСписка() Цикл
			текПара_2 = спВозможныхПар.ПолучитьЗначение(ж);
			Если текПара=текПара_2 Тогда Продолжить;		КонецЕсли;

			ПолучитьИгроковПары(текПара_2, Игрок1, Игрок2);
			Если (спНераспределенныхИгроков.НайтиЗначение(игрок1)=0) или (спНераспределенныхИгроков.НайтиЗначение(игрок2)=0)  Тогда
				Продолжить;
			КонецЕсли;

			Результат.ДобавитьЗначение(текПара_2);

			УдалитьИзСписка(спНераспределенныхИгроков, Игрок1, Игрок2);
			Если спНераспределенныхИгроков.РазмерСписка()=0 Тогда
				Возврат Результат;
			КонецЕсли;

		КонецЦикла;
	КонецЦикла;

	Возврат "Решений нет!";
КонецФункции	// ПолучитьПарыДляИгр 

Код

If A(k - 1) = n Then