Создание игры

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: ответ 4, сочинение на тему онегин
| Добавил(а) на сайт: Denisij.

if a=chr(77) then begin x:=x+3; if x>580 then begin

putimage(x,y,pp^,copyput); x:=10; end; putimage(x,y,p^,copyput);

end; if a=chr(75) then begin x:=x-3; if x500 then begin gameover(b,v);goto 3;end;

if a=chr(113) then begin v:=550;gameover(b,v);goto 3; end; until a=chr(27); end; begin{Основная программа}

1: clrscr; gotoxy(30,10); write('Введение'); gotoxy(30,11); write('Постановка задачи'); gotoxy(30,12); write('Математические методы...'); gotoxy(30,13); write('Описание данных'); gotoxy(30,14); write('Алгоритмы и блок-схемы'); gotoxy(30,15); write('ПРОГРАММА'); gotoxy(30,16); write('Текстовые примеры'); gotoxy(30,17); write('Руководство пользователю'); gotoxy(30,18); write('Заключение'); gotoxy(30,19); write('Список литературы');{Это всё менюшка} gotoxy(26,10); write('>>>'); gotoxy(25,10); repeat a:=readkey; if a=chr(80) then begin{движение курсора вниз} b:=wherey; gotoxy(26,b); write(' '); if b>=19 then b:=9; gotoxy(26,b+1); write('>>>'); gotoxy(25,b+1); sound(3000); delay(1000); nosound; end; if a=chr(72) then begin{движение курсора вверх} b:=wherey; gotoxy(26,b); write(' '); if b>>'); gotoxy(25,b-1); sound(4000); delay(1000); nosound; end; if a=chr(13) then begin {Опрос клавиши ENTER} b:=wherey; if b=19 then begin {Список литературы} sound(3000); delay(1000); nosound; clrscr; gotoxy(30,b); write('Книжка по Турбо-

Паскалю'); repeat a:=readkey; until a=chr(13); sound(4000); delay(1000); nosound; goto 1; end; if b=10 then begin {Введение} sound(3000); delay(1000); nosound; clrscr; gotoxy(30,b); writeln('Основной целью данного курсового проекта'); gotoxy(30,b+1); writeln('является закрепление и демонстрация знаний,'); gotoxy(30,b+2); writeln('полученых при изучении курса информатики'); repeat a:=readkey; until a=chr(13); sound(4000); delay(1000); nosound; goto 1; end; if b=11 then begin {Постановка задачи} sound(3000); delay(1000); nosound; clrscr; gotoxy(30,b); write('Сделать игру: леталку-стрелялку'); repeat a:=readkey; until a=chr(13); sound(4000); delay(1000); nosound; goto 1; end; if b=18 then begin {Заключение} sound(3000); delay(1000); nosound; clrscr; gotoxy(30,b); write('Мне понравилась моя прога :-)'); repeat a:=readkey; until a=chr(13); sound(4000); delay(1000); nosound; goto 1; end; if b=17 then begin {руководство пользователю} sound(3000); delay(1000); nosound; clrscr; gotoxy(30,b); write('Если Вы в этой проге ничего не поменяете'); gotoxy(30,b+1); write('она будет работать

ВЕЧНО...'); repeat a:=readkey; until a=chr(13); sound(4000); delay(1000); nosound; goto 1; end; if b=12 then begin {математические методы} sound(3000); delay(1000); nosound; clrscr; gotoxy(30,b); write('Задача сама по себе не математическая,'); gotoxy(30,b+1); write('значит и математических методов никаких нет'); repeat a:=readkey; until a=chr(13); sound(4000); delay(1000); nosound; goto 1; end; if b=13 then begin {Описание данных} sound(3000); delay(1000); nosound; clrscr; gotoxy(30,b); write('Данных нет...'); repeat a:=readkey; until a=chr(13); sound(4000); delay(1000); nosound; goto 1; end; if b=14 then begin {Алгоритм.блок- схема} sound(3000); delay(1000); nosound; clrscr; gotoxy(30,b); write('Смотри

Пояснителную записку'); repeat a:=readkey; until a=chr(13); sound(4000); delay(1000); nosound; goto 1; end; if b=16 then begin {Текстовые примеры} sound(3000); delay(1000); nosound; clrscr; gotoxy(30,b); write('Текстовых примеров у меня тоже нет'); repeat a:=readkey; until a=chr(13); sound(4000); delay(1000); nosound; goto 1; end; if b=15 then begin sound(3000); delay(1000); nosound; jim; closegraph; goto 1; end; end; until a=chr(27); end.

4 Руководство пользователя для работы в программе.

При запуске программы появляется меню, предлагающее широкий выбор пунктов.

Курсор перемещается при помощи клавиш курсора, выбор осуществляется клавишей ENTER .

При выборе какого-либо пункта меню появляется соответствующее сообщение, однако же, при выборе пункта «Программа» запускается непосредственно сама игра.

Суть игры заключается в сбивании летающих тарелок средством ПВО.

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

Игрок проигрывает в случае достижения числа не сбитых тарелок правого края экрана.

Игрок выигрывает в случае достижения числа сбитых тарелок правого края экрана.

После проигрыша либо выигрыша игра повторяется.

Заключение.

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

Длителен также процесс детальной прорисовки графики.

Необходимо, чтобы в той папке, где лежит данная программа, находился файл egavga.bgi . Этот файл имеется во многих версиях ТР в папке bin, он отвечает за инициализацию графики.

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

1 Меженный О.А. «Turbo Pascal-учитесь программировать»;Москва-

С.Петербург-Киев; «Диалектика»;2001;448с.

2 Бабушкин И.А.; «Практикум по ТР»-учебное пособие по курсам ИВТ;