Добрый вечер, коллеги.
Необходимо составить алгоритм по автоматическому заполнению футбольного календаря на сезон для 16 команд. Календарь - это справочник, в табличной части которого указываются 2 клуба. Итого будет 30 элементов ( в принципе можно 15, остальные 15 скопировать). У кого какие идеи? Заранее спасибо.
Написал вот такую хрень, которая заполняет матрицу номерами тура, в котором сыграют команды. На основании данной таблицы заполнить элементы справочника не проблема.
Табл = Новый ТаблицаЗначений;
Для й = 0 По 15 Цикл
Табл.Колонки.Добавить("_" + Строка(й));
КонецЦикла;
Для й = 1 По 16 Цикл
Стр = Табл.Добавить();
КонецЦикла;
ТАбл.ЗаполнитьЗначения(0);
Для ё = 0 По 15 Цикл
Для т = 1 По 15 Цикл
Для к = 0 По 15 Цикл
Если Табл[ё]["_" + к] <> 0 Тогда
Продолжить;
КонецЕсли;
Если к <= ё Тогда
Продолжить;
КонецЕсли;
ПарОтбора = Новый Структура("_" + Строка(к), т);
НС = Табл.НайтиСтроки(ПарОтбора);
Если НС.Количество() > 0 Тогда
Продолжить;
КонецЕсли;
ТурЕсть = Ложь;
Для ц = 0 По 15 Цикл
Если Табл[ё]["_" + ц] = т Тогда
ТурЕсть = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
Если ТурЕсть Тогда
Продолжить;
КонецЕсли;
Табл[ё]["_" + к] = т;
Табл[к ]["_" + ё ] = т;
Прервать;
КонецЦикла;
КонецЦикла;
КонецЦикла;