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

isset:=false;

end;

if isset then

begin {проверяем не вышла ли голова змейки за границы поля}

if (x<=0) or (y<=0) or (x>=80) or (y>=25) then isset:=false;

end;

checknext:=isset;

end;

{создаетедунаполе}

procedure neweat;

begin

e.x:=random(78)+2;

e.y:=random(23)+2; {генерируемкоординатыеды}

{если место занято, генерируем еще раз, и так пока не найдем свободное}

while (not checknext(e.x , e.y)) do

begin

e.x:=random(78)+2;

e.y:=random(23)+2;

end;

end;

{перемещаетзмейку

procedure movesnake (x,y:integer);

var

i:integer; {счетчикцикла}

begin

for i:=1 to width do

begin

snakebody[i]:=snakebody[i+1];

end;{перемещаем все составляющие змейки на место соседней}