Курсовая работа: Игра в "Морской бой" с компьютером

)

)

; уже были в этой клетке – выбираем другую

((or (equal n '* ) (equal n '~)) (blow lst))

)

lst

)

; убиваем противника!!!

(blow field)

; файл для записи

(setq output_stream (open «d:\\destroy_field.txt» :direction:output))

; записываем побитое поле противника

(print field output_stream)

; закрываем файл

(close output_stream)

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

Пример 1.

Рисунок 3 – Поле кораблей

Рисунок 4 – Расстрелянное поле кораблей

Пример 2.

Рисунок 5 – Поле кораблей

Рисунок 6 – Расстрелянное поле кораблей

Пример 3.

Рисунок 7 – Поле кораблей