Program Snake;
  uses crt;
const 
	xn=1;  		{предел экрана слева}
	xx=80;      {предел экрана справа}
	yn=1;       {верхний предел экрана} 
	yx=25;      {нижний предел экрана}
	H='0';      {голова змеи}
	dt=400;     {задержка}

var 
	x:integer=xx div 2; {начальное расположение змеи}
	y:integer=yx div 2;
	vx:integer=-1;  {начальное направление змеи}
	vy:integer=0;
    xe:integer=15; {начальные координаты яблока}
    ye:integer=15;
var 
	c:char;
	

begin
randomize;
clrscr;
gotoxy(xe,ye);     {рисуем первое яблоко}
write ('$');

while (x>=xn) and (x<=xx) and (y>=yn) and (y<=yx) do {обозначаем границы экрана}
  begin
	GoToXY(x,y);    {рисуем новое положение символа}
	write(H);
	Delay(dt);      {задержка, иначе символ будет бегать быстро}
	if keypressed then      {если нажата клавиша читаем ее}
		begin
			c:=readkey;
			case c of               {если это был управляющий символ, изменяем движение}
			'w':begin vx:=0; vy:=-1 end;  {изменяем движение на движение вверх}
			's':begin vx:=0; vy:=1 end;   {изменяем движение на движение вниз}
			'a':begin vx:=-1; vy:=0 end;  {изменяем движение на движение влево} 
			'd':begin vx:=1; vy:=0 end;   {изменяем движение на движение вправо}
			end;
		end;
    gotoxy(x,y); 
    write(' ');
    inc(x,vx);    {вычисляем новое положение змейки}
    inc(y,vy);
    if (x=xe) and (y=ye) then {если координаты змеи совпадают с координатами яблока}
		begin
			xe:=random(75);  {рисуем новое яблоко, случайным образом}
			ye:=random(20);
			gotoXY(xe,ye);
			write('$');
		end;
  end;
end.

Цитата(a100 @ 15.12.2010 12:45)

  b: array [xn..xx,yn..yx] of byte;

0000000000
0002222300
0001000300
0021000500
0010000000
0014440000
0000000000

0000000000
0002222300
0001000300
0021000250
0010000000
0014400000
0000000000

Цитата(Lapp @ 15.12.2010 13:37)

  b: array [xn..xx,yn..yx] of byte;

  type 
    TField = (fEmpty, fUp, fRight, fDown, fLeft, fHead, fFood, fEnemy, fBorder);

  var  
    b: array [xn..xx,yn..yx] of TField;

Цитата(a100 @ 15.12.2010 19:54)

uses
  CRT;

const
  MaxSize= 100;            // m and n not to exceed this number
  StartLen= 5;             // start length of the snake
  LenInc= 2;               // length increase when rabbit eaten
  MaxSizeX= MaxSize;
  MaxSizeY= MaxSize;

  // cell legend:
  Clear=    0;  Cl=Clear;
  Up=       1;
  Right=    2;  Rt=Right;
  Down=     3;  Dn=Down;
  Left=     4;  Lt=Left;
  Head=     5;  He=Head;
  Rabbit=   6;  Ra=Rabbit;
  Wall=     7;  Wa=Wall;
  Hole=     8;  Ho=Hole;
  Mongoose= 9;  Mo=Mongoose;
  // representatin on prints
  CellPrint: string= ' ^>v<0RWOM..........';
  //                  01234567890

  // keyboard
  PreKey= #0;
  UpKey= #72;
  LtKey= #75;
  RtKey= #77;
  DnKey= #80;
  EscKey= #27;



type
  tCell= byte;
  tBoard= array [0..MaxSizeY,0..MaxSizeX] of tCell;

var
  b: tBoard;
  i,j,x,y,mx,my,Len,dLen,Hx,Hy,Tx,Ty,Rx,Ry: integer;
  Crash: boolean;

procedure PrintBoard;
begin
  WriteLn('Len=',Len,'  x=',Hx,'  y=',Hy,'  dLen=',dLen);
  for j:=0 to my+1 do begin
    for i:=0 to mx+1 do Write(CellPrint[b[j,i]+1]);
    WriteLn
  end
end;

var
  c: char;
  d: byte;
  dx,dy: integer;

begin
  // board preparation
  mx:= 30;
  my:= 15;
  for j:=0 to my+1 do for i:=0 to mx+1 do
    if (i=0)or(j=0)or(i>mx)or(j>my)then b[j,i]:=Wall else b[j,i]:=Clear;

  // filling in inicial data
  Len:= StartLen;
  dLen:= 0;
  Hx:= mx div 2+1;
  Hy:= my div 2+1;
  Tx:= Hx-Len;
  Ty:= Hy;
  Rx:= mx*3 div 4;
  Ry:= Hy;
  b[Hy,Hx]:= Head;
  for i:=0 to Len-1 do b[Ty,Tx+i]:= Right;
  b[Ry,Rx]:= Rabbit;

  Crash:=false;
  repeat
    PrintBoard;
    dx:=0;
    dy:=0;
    repeat
      c:= ReadKey;
      if c=PreKey then begin
        c:=ReadKey;
        case c of
          UpKey: begin dy:=-1; d:=Up end;
          RtKey: begin dx:= 1; d:=Rt end;
          DnKey: begin dy:= 1; d:=Dn end;
          LtKey: begin dx:=-1; d:=Lt end;
        end;
        c:=PreKey
      end
    until (c=EscKey) or (dx+dy<>0);
    x:=Hx+dx;
    y:=Hy+dy;
    WriteLn(x,'  ',y);
    case b[y,x] of
      // rabbit
      Rabbit: begin
        dLen:=dLen+LenInc;
        repeat
          Rx:=Random(mx)+1;
          Ry:=Random(my)+1
        until b[Ry,Rx]=Clear;
        b[Ry,Rx]:=Rabbit
      end;
      // body or wall
      Up,Rt,Dn,Lt,Wa: begin
        Crash:=true;
        WriteLn('Crash!!')
      end
    end;
    // moving the snake
    if not Crash then begin
      b[Hy,Hx]:=d;
      Hx:=x;
      Hy:=y;
      b[y,x]:=He;
      if dLen=0 then begin
        dx:=0;
        dy:=0;
        case b[Ty,Tx] of
          Up: dy:=-1;
          Rt: dx:= 1;
          Dn: dy:= 1;
          Lt: dx:=-1;
        end;
        b[Ty,Tx]:=Clear;
        Tx:=Tx+dx;
        Ty:=Ty+dy
      end
      else begin
        Dec(dLen);
        Inc(Len)
      end;
    end
  until (c=EscKey) or Crash;
end.

procedure PrintBoard;
begin
  WriteLn('Len=',Len,'  x=',Hx,'  y=',Hy,'  dLen=',dLen);
  for j:=0 to my+1 do 
  begin
    for i:=0 to mx+1 do 
    Write(CellPrint[b[j,i]+1]);
    WriteLn
  end
end;

Цитата(a100 @ 21.12.2010 11:50)

  CellPrint: string= ' ^>v<0RWOM..........';
  //                  01234567890