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

2016-07-30СтудИзба

Описание файла

Документ из архива "Составление расписания встреч участников соревнований", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "49095"

Текст 3 страницы из документа "49095"

)

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

(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 с.

Свежие статьи
Популярно сейчас
Почему делать на заказ в разы дороже, чем купить готовую учебную работу на СтудИзбе? Наши учебные работы продаются каждый год, тогда как большинство заказов выполняются с нуля. Найдите подходящий учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4121
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее