Игра в Turbo Pascal

Разработка программы, реализующей игру "Змейка" в среде Turbo Pascal. Возможность создания игры в модуле библиотеки crt, что позволяет использовать программу на компьютерах без графических библиотек и компьютерах, имеющих малый объём оперативной памяти.

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык русский
Дата добавления 02.02.2013
Размер файла 190,5 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на 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


Подобные документы

  • Изучение текстового режима языка программирования Turbo Pascal. Написание игры "Змейка" с помощью средств, процедур и функций языка программирование Turbo Pascal. Структурное и функциональное описание разработки. Листинг и общие примеры работы программы.

    контрольная работа [286,3 K], добавлен 10.04.2011

  • Основы работы на языке высокого уровня Turbo Pascal. Основное оборудование и программное обеспечение. Операторы, необходимы для работы в графической среде Turbo Pascal. Запуск графического режима. Текст программы в графической среде Turbo Pascal.

    лабораторная работа [12,7 K], добавлен 14.05.2011

  • История создания игры "Тетрис", смысл и правила данной головоломки. Разработка поля игры и фигур тетрамино. Процедуры и функции, используемые для реализации движения фигур, их поворота и складывания в ряды, удаления и подсчета количества целых рядов.

    курсовая работа [87,0 K], добавлен 02.02.2013

  • Разработка алгоритма поставленной задачи по обработке числовой информации в среде Turbo Pascal 7.0 с базовым языком программирования Pascal, отладка программы, реализующей разработанный алгоритм. Описание структуры программы, ее вспомогательных процедур.

    курсовая работа [668,0 K], добавлен 25.02.2010

  • Язык программирования Pascal и его турбооболочка. Аналитический обзор игрового программного обеспечения. Функции модуля Crt. Постановка задачи создания несложной игровой программы "Турбозмей", алгоритм реализации и описание пользовательского интерфейса.

    курсовая работа [100,4 K], добавлен 15.05.2014

  • Структура и основные элементы языка Turbo Pascal. Алгоритм составления простейших программ на Turbo Pascal. Применение условного оператора и сильноветвящихся алгоритмов. Циклы с предусловием и постусловием, сочетание циклических и условных операторов.

    реферат [64,0 K], добавлен 20.03.2016

  • При помощи Turbo Pascal достаточно не просто создать программу, которая бы демонстрировала работу с базами данных. Для этого существует огромное количество специализированных программ. Основа и сущность формирования базы данных при помощи Turbo Pascal.

    курсовая работа [479,7 K], добавлен 04.07.2008

  • Разработка эскизного и технического проектов программы "Helpopr" (ввод, хранение и вывод данных на дисплей по запросу пользователя). Язык программирования Turbo Pascal. Описание алгоритма программы. Требования к компьютеру и программному обеспечению.

    курсовая работа [198,1 K], добавлен 03.02.2010

  • Анализ эффективности методов сортировки данных в языке Turbo Pascal. Разработка эскизного и технического проекта программы. Сортировка без и с использованием дополнительной памяти, за исключением небольшого стека (массива). Сортировка связанных списков.

    курсовая работа [359,0 K], добавлен 23.05.2012

  • История создания и развитие Pascal. Особенности пакета программирования Turbo. его возможности редактора текстов, компилятора и отладчика. Построения программы на языке Turbo Pascal, ее структура, типы алгоритмов, одномерные и многомерные массивы.

    курсовая работа [519,3 K], добавлен 25.06.2011

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.