Контрольная работа: Написание игры "Змейка" средствами языка Turbo Pascal

DATE : 11.11.2010

VERSION : 1.00

============================================================}

program zmeika;

uses crt;

type

spoint=record

x:integer;

y:integer;

end; {тип для точки}

const

maxwidth=10; {максимальная длина змейки}

var

width: integer; {длина змейки}

e:spoint;{координаты еды}

snakebody:array [1..maxwidth] of spoint; {массивскоординатамичастейтелазмейки}

i,{счетчикцикла} nx,ny:integer{координатыголовызмейки};

v:byte; {вектор направления головы змейки}

gameover: boolean; {флаг окончания игры}

key:char;{буфер клавиши}

{проверяет свободна ли клетка и не выходит ли она за границы поля}

function checknext(x:integer; y:integer):boolean;

var

isset:boolean; {флаг проверки занятости клетки или ее выхода за границы поля}

i:integer;

begin

isset:=true;

fori:=1 towidthdo

begin {проверяем нет ли на месте клетки змейки}