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

213 }c[1]:='X';

214 }c[2]:='x';

215 }c[3]:=':';

216 }c[4]:='.';

217 }c[5]:='.';

218 }c[6]:=' ';

219 }Textcolor(2);

220 }for i:=1 to 6 do begin

221 }for j:=1 to Dlina do Symbol(SnakeX[j],SnakeY[j],c[i]);

222 }delay(5000);

223 }end;

224 }1:

225 }CLRSCR;

226 }textcolor(15);

227 }gotoxy(1,50);

228 }write(' ');

229 }gotoxy(1,50);

230 }write('Oчки: ',Score);

231 }gotoxy(20,50);

232 }write('Програму разрoбив Матковський Руслан aka Pat');

233 }gotoxy(65,50);

234 }write(' ');

235 }gotoxy(65,50);

236 }write('Довжина: ',Dlina);

237 }textcolor(2);

238 }gotoxy(28,22);

239 }write('╔═══════════════════╗');

240 }gotoxy(28,23);

241 }write('║ ║');