* Данная работа не является научным трудом, не является выпускной квалификационной работой и представляет собой результат обработки, структурирования и форматирования собранной информации, предназначенной для использования в качестве источника материала при самостоятельной подготовки учебных работ.
6
Федеральное агентство по о бразованию
ЧИТИНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ЭНЕРГЕТИЧЕСКИЙ ИНСТИТУТ
Факультет экономики и информатики
Кафедра ИВТ и ПМ
Курсовая работа
Чита 200 7 .
Федеральное агентство по образованию
ЧИТИНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ЭНЕРГЕТИЧЕСКИЙ ИНСТИТУТ
Факультет экономики и информатики
Кафедра ИВТ и ПМ
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА
к курсовой работе
По дисциплине «Программирование на языке высокого уровня».
На тему : Игра « Vertolet ».
Проект выполнил студент группы ИВТ-0 6 -0 2
Лазарев Михаил Андреевич
Руководитель работы _____________________
Федеральное агентство по образованию
ЧИТИНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ЭНЕРГЕТИЧЕСКИЙ ИНСТИТУТ
Факультет экономики и информатики
Кафедра ИВТ и ПМ
ЗАДАНИЕ
на курсовую работу
по дисциплине «Программирование на языке высокого уровня»
студенту Лазареву М.А.
Тема работы: Игра « Vertolet »
Рекомендуемая литература:
1. Фаронов В.В. Турбо Паскаль 7.0. Начальный кур с. Учебное пособие. – М.: издательство « Нолидж » , 1998.
Дата выдачи задания « »_____________ 200 7 г.
Да та представления руководителю « » ______________ 200 7 г.
Руководитель курсового проектирован ия : Малета Г . В .
Утверждаю
Зав.кафедрой
«____»__________________200 7 г.
Календарный план
Разделы курсовой работы МЕСЯЦЫ И НЕДЕЛИ Февраль Март Апрел ь Май Июнь 1 2 1 2 3 4 5 1 2 3 4 1 2 3 4 1 2 1. Выбор темы 2. Анализ алгоритма 3. Раз работка основного алгоритма 4. Разр аботка движения 5. Соз дание графики 6. Тестирование программы 7. Исправление программы 8. Защита
Пл ан выполнен: Руководитель проек та _______________«____»______________ 200 7 г.
РЕФЕРАТ
Пояснительная записка – 30 с., 0 рис., 0 табл., 2 источника, 1 прил.
Turbo Pascal , алгоритм, игрок, защитное поле , компьютерная игра, модуль, программа, процедура, барьер , бо нус , функция .
В своей работе я реализовал вариант тел ефонной игры – Вертолет . Она написана на языке Turbo Pascal . Исходные коды прилагаются.
СОДЕРЖАНИЕ
Введение………………………………………………………………..7
1. Алгоритм работы……………………………………………………8
2 . Руководство пользователя………………………… ……………...1 0
Заключение……………………………………………………………1 1
Приложени е ………………………… ………………………………...1 3
Исходные коды модулей…………………………………………......17
Список литературы…………………………………………………... 30
ВВЕДЕНИЕ
Данная программа представляет собой реализацию из вестной игры « Вертолет », а точнее – ее распространенного режима по д названием « Battle mode ».
Vertolet - одна из самых простых и ув лекательных игр. Эта игра сочетает в себе простоту, оригинальность. В неё будет интересно играть и школьнику , и пенсионеру. Элементарные правила делают игру интересной и непринуждён ной.
1. АЛГОРИТМ РАБ ОТЫ
Программа состоит из следующих ча стей :
Рис.1 . Связь составных ч астей .
Exe . pas - программа вызыва ющая модуль menu
1. menu . pas – осн овная часть программы.
В программе происходи т вызов следующих процедур:
· procedure key 1 – процедура отвечающая за перемещение указателя в меню игры .
· procedure cartinka – Прорисов ка фонового изображения .
· procedure menu – вызов одного из трех модулей или выход из программы вза висимости от выбора пункта в меню. Очистка динамической памяти .
2. game . pas – модуль, в котором реализова ны основны е алгоритмы.
* Ввод имени игрока
* Прорисовка игрового поля
* Создание «Вертолета» , двух видов «Барьера» и «Бонуса »
* Запись в динамическую память изображений изменяющих свое положение н а экране
* Перемещение вертолета по игровому полю, не зависимо от других объектов и взрыв при сталкновении
* Начисление бонусных очков и их использование
* Начисление игровых очков и запись в таблицу рекордов.
Также в данном модуле определены следующие процедуры и функции :
function game(sd:boolean):word;
function og(a,d:integer):word;
procedure GET;
procedure ni;
procedure start;
procedure tex;
procedure lev(text,text1:string);
procedure vert(a,d:integer;s:byte);
procedure score(kol:integer; nik:string);
procedure ogon(a,d:integer; s:byte);
3. Option . pas - модуль с помшью которого можно включить или выключить зв уковое сопровождение
4. Help . pas – модуль , содержащий правила игры .
5. score . dat – фай л, содержащий 10 лучших результатов .
2 . РУКОВОД СТВО ПОЛЬЗОВАТЕЛЯ
ПРАВИЛА ИГРЫ
Правила этой игры настолько просты, что не потребуют от игрок а ни малейшего напряжения при запоминании. Однако это не делает игру ску чной .
Игрок управляет вертолетом "А-308" на борту которого находятся взрывча тые вещества .
Цель игры – проити наибольшее количество уровней, при этом пролетев максимально возможное расстояние .
Игрок появля е тся в средине игрового поля. В вер хн ем левом углу указывается количество не использ ованных бонусов . Правее указывается имя иг рока, уровень и количество очков (считается что при наборе одного очка иг рок пролетел один метр ).
При наличии бонуса игрок может активировать защитное поле с помощью кот орого он сможет пролететь сквозь препятствия, однако с активированным з ащитным полем нельзя собрать дополнительные очки-«кубики» и за каждый п ройденный метр будет убираться одно бонусное очко.
При столкновении с препятствием вертолет взрывается и игра заканчивае тся.
Постепенно скорость вертолета увеличивается, пока не дос тигнет максимальной скорости, с которой сможет лететь вертолет.
За каждый пролет 500 метров игро к получает 35 бонусов.
За нахождение кубика игрок получает 5 0 0 очков.
Информацию о текущем количестве очков вы можете найти в правой части экр ана
УПРАВЛЕНИЕ В ИГРЕ
Для движения вертолета по игровому полю используются к лавиши ’