Игра в Turbo Pascal

Федеральное агентство по образованию (Рособразование) Архангельский государственный технический университет

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

Курсовая работа На тему «Игра в Turbo Pascal»

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

• Введение
• 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 (20 000);

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.

Приложение Б Вид программы