Реферат: Программирование игры Змейка

003}label 1;

004}type result=record

005} scor:integer;

006} name:string[15];

007} len:integer;

008} end;

009} res=file of result;

010}

Var

011} f: res;

012}SnakeX,SnakeY: array[1..4000] of longint;

013}HeadX,HeadY: longint;

014}BonusX,BonusY: array[1..40] of longint;

015}DeathX,DeathY: array[1..30] of longint;

016}Dlina,Naprav: longint;

017}key: char;

018}i,score: integer;

019}MenuItem: array[1..6] of string;

020}DTime,ScorePlus,ScoreMinus,MenuSelect,x,y: integer;

{-----------------------------------------------------}

021}Procedure Ramka(x,y:integer);

022}Begin

023}TextColor(2);

024} TextBackground(0);

025}gotoxy(x,y);

026} writeln('╔═ ЗМЕЙКА 0.1 ══════╗');

027} gotoxy(x,y+1);

028} writeln('║ VERY SLOW ║');

029} gotoxy(x,y+2);