Игра в Turbo Pascal

Размещено на http://www.allbest.ru/

Федеральное агентство по образованию (Рособразование)

Архангельский государственный технический университет

Кафедра прикладной математики

Курсовая работа

На тему "Игра в Turbo Pascal"

Черных Константин Евгеньевич

Архангельск

2007

Содержание

• Введение
• 1. Описание программы
• Заключение
• Список используемой литературы
• Приложение

Введение

Об игре ЗМЕЙКА

"Змейка" является одной из самых известных двухмерных игр, и часто используется производителями мобильных телефонов для java приложений. В 80-е годы были очень популярны карманные игровые приставки включающие в себя до 999 двухмерных игр в состав которых обязательно входила игра "змейка". Игроки выделяли несколько игр привлекающих внимание и змейка является одной из них.

Правила

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

Цель работы:

В этой курсовой работе я ставил перед собой цель разработать программу, реализующую знаменитую и всеми любимую игру Змейка в программной среде Turbo Pascal.

Главными и первоочередными задачами являются:

1) создание поля игры (ограниченного стеной);

2) появление случайных цифр на поле ;

3) движение "змейки" в поле;

4) возможность поворота "змейки";

5) реализация поедание цифр "змейкой";

6) подсчёт съеденных цифр;

1. Описание программы

Результаты выполнения работы:

В программе используются:

1) массивы для создания поля игры;

процедуры и функции для создания "змейки", поворота "змейки", поедание цифр, появление цифр на экране и т.д. например: function cvet определяет цвет "змейки"; procedure cls отчищает массив поля, procedure proverka прибавление очков, procedure paint Вывод состояния массива на экран , procedure figura непосредственное определение формы "змейки",

2) procedure povorot реализация поворота "змейки".;

3) Оператор выбора case: например, в случайном выборе цифры;

4) Цикл с пост условием Repeat/Until: в главном теле программы для зацикливания процесса игры;

5) Процедура считывания с клавиатуры keypressed и readkey для управления "змейки";

6) Модуль crt ,который позволяет увеличить скорость выполнения программы в отличии от модуля Graph;

Заключение

В этой работе мы создали игру змейка в программной среде Turbo Pascal, нам удалось решить главную задачу, то есть создать: поле игры, появление десяти различных цифр на поле; поворот "змейки"; удаление съеденных цифр и подсчёт очков с помощью их суммирования;

Вся игра реализована в модуле библиотеки crt что позволяет использовать данную программу на компьютерах без графических библиотек и компьютерах имеющих малый объём оперативной памяти. Нам не удалось создать версию игры с графической библиотекой, но в дальнейшем мы планируем доработать программу, для возможности выбора режима игры (crt или Graph).

программа pascal игра память

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

1. Программирование в среде Turbo Pascal 7.0 издание третье стереотипное. Г.Москва; "Диалог - Мифи" 1996г. А.М. Епашенков, В.А. Епашенков

2. Интернет сайт http://ru.wikipedia.org/wiki и http://256bit.ru/informat/eu_pascal

Приложение А

Код программы:

Program GAMES;

Uses CRT;

Var

x,y:array [1..5] of byte; {--------}

q1,q2,S:byte; {-----}

i,j,sh:byte; {`зҐвзЁЄЁ}

Top,Left,schet:integer; {-------------}

Key:char; {--------}

Dostup:boolean; {--------------------}

{-------}

Procedure Zmeya(cvet:byte);

begin

TextColor(cvet);

For i:=1 to 5 do

begin

GoToXY(x[i],y[i]);

if i=1 then Write(chr(2))

else Write(chr(254));

end;

end;

{-----------}

Procedure Izmenenie_Zmei;

begin

For i:=5 downto 2 do

begin

x[i]:=x[i-1];

y[i]:=y[i-1];

end;

x[1]:=x[1]+Left;

y[1]:=y[1]+Top;

end;

{----------}

Begin

TextBackgRound(2);

ClrScr;

TextColor(15);

GoToXY(33,10);

Write('-=GAMES PYTHON=-');

GoToXY(29,12);

Write('Igra Chernih Konstantina');

GoToXY(34,14);

Write('Pres ENTER');

Readln;

ClrScr;

{--------------}

For i:=2 to 79 do

For j:=2 to 22 do

if (i=2) or (i=79) or (j=2) or (j=22) then

begin

GoToXY(i,j);

Write(chr(176));

GoToXY(6,24);

Write('ESC - Vihod');

GoToXY(35,24);

Write('Shet ',schet);

end;

{----------------------}

schet:=0;

For i:=1 to 5 do

begin

x[i]:=41-i;

y[i]:=15;

end;

{-------------------}

Dostup:=True;

Repeat

Zmeya(12);

Delay(20000);

TextColor(2);

Zmeya(2);

{-----------------------------}

if Dostup=True then

Case Key of

#72:begin Top:=-1; Left:=0; end;

#80:begin Top:=1; Left:=0; end;

#77:begin Top:=0; Left:=1; end;

#75:begin Top:=0; Left:=-1; end;

end;

Izmenenie_Zmei;

{------}

if sh = 50 then

begin

GotoXY(q1,q2);

TextColor(4);

Write(' ');

Randomize;

q1:=random(74)+3;

q2:=random(17)+3;

S:=random(9);

GoToXY(q1,q2);

TextColor(4);

Write(S);

sh:=0;

end

else sh:=sh+1;

if (x[1] = q1) and (y[1]=q2) then

begin

schet := schet+s;

TextColor(5);

GoToXY(35,24);

Write('shet ',schet);

end;

{-------------}

if (Left<>0) and ((x[1]<3)) or (x[1]>78) then

begin

Left:=0;

Key:=' ';

GoToXY(35,12);

TextColor(5);

Write('Game over');

Dostup:=False;

end;

if (Top<>0) and ((y[1]<3)) or (y[1]>21) then

begin

Top:=0;

Key:=' ';

GoToXY(35,12);

TextColor(5);

Write('Game Over');

Dostup:=False;

end;

if KeyPressed=True then Key:=Readkey;

until Key=#27;

End.

Приложение Б

Вид программы

Размещено на Allbest.ru