Курсовая работа: Составление расписания встреч участников соревнований

; 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 - Команды, играющие по олимпийской системе