49095 (Составление расписания встреч участников соревнований), страница 3

)

; функция иммитирует игру по олимпийской системе

(defun play_off (l output)

(cond

; если осталось 2 участника выбираем победителя и выходим из функции

( (= (length l) 2)

(progn

(print 'pobeditel output)

(print (get_winner l) output)

)

)

( (/= (length l) 2)

(progn

; разбиваем команды на 2 группы

(setq group1 (copy_half_list l))

(print 'gruppa1 output)

(print group1 output)

(setq group2 (copy_last_half_list l))

(print 'gruppa2 output)

(print group2 output)

; формируем встречи комманд

(setq commands (mapcar 'list group1 group2))

(print 'igroki output)

(print commands output)

; выбираем победителя

(setq l (mapcar 'get_winner commands))

(print 'pobediteli output)

(print l output)

(print '______________________________________________ output)

; рекурсивно вызываем функцию play_off с новым

; списком комманд участников

(play_off l output)

)

)

)

)

; открываем файл и получаем команды

(setq input_stream (open "d: \\commands. txt": direction: input))

; вид системы

; 1 - круговая

; 2 - playoff

(setq system (read input_stream))

(setq commands (read input_stream))

(close input_stream)

(setq output_stream (open " d: \\play. txt": direction: output))

(if (= system 1)

; круговая система

(print (setq play (mapcar 'set_res (remove nil (union commands commands)))) output_stream)

; иммитируем игру по олимпийской системе для получееных комманд

(play_off commands output_stream)

)

(terpri output_stream)

(close output_stream)

5. Пример выполнения программы

Пример 1.

Рисунок 7 - Команды, играющие по олимпийской системе

Рисунок 8 - Игра команд по олимпийской системе

Рисунок 9 - Команды, играющие по круговой системе

Рисунок 10 - Игра команд по круговой системе

Пример 2.

Рисунок 11 - Команды, играющие по олимпийской системе

Рисунок 12 - Игра команд по олимпийской системе

Рисунок 13 - Команды, играющие по олимпийской системе

Рисунок 14 - Игра команд по олимпийской системе

Заключение

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

Итогом работы можно считать созданную функциональную модель составления расписания встреч участников соревнований. Данная модель применима к круговой и олимпийской системе проведения спортивных соревнований. Созданная функциональная модель и ее программная реализация могут служить органической частью решения более сложных задач.

Список использованных источников и литературы

1. Бронштейн И.Н. Справочник по математике для инженеров и учащихся втузов [Текст] / И.Н. Бронштейн, К.А. Семендяев. - М.: Наука, 2007. - 708 с.

2. Круговая система [Электронный ресурс] - Режим доступа: http://ru. wikipedia.org/wiki/Круговая_система

3. Платонов В.Н. Профессиональный спорт. [Текст] / В.Н. Платонов, С.И. Гуськова. - К.: Олимпийская литература, 2000. С.293.

4. Плей-офф [Электронный ресурс] - Режим доступа: http://ru. wikipedia.org/wiki/Плей_офф

5. Степанов П.А. Функциональное программирование на языке Lisp. [Электронный ресурс] / П.А. Степанов, А.В. Бржезовский. - М.: ГУАП, 2003. С.79.

6. Столбов В.В. История физической культуры. [Электронный ресурс] / В.В. Столбов, И.Г. Чудинов - М.: ФиС. 1999. С.643.

7. Симанков В.С. Основы функционального программирования [Текст] / В.С. Симанков, Т.Т. Зангиев, И.В. Зайцев. - Краснодар: КубГТУ, 2002. - 160 с.

8. Хювенен Э. Мир Лиспа [Текст] / Э. Хювенен, Й. Сеппянен. - М.: Мир, 1990. - 460 с.