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

clrscr;

if (gameover) then {сообщение о выигрыше или проигрыше}

begin

textcolor(4);

gotoxy(30,12);

writeln('**** GAME OVER ! ****')

end

else

begin

textcolor(11);

gotoxy(35,12);

writeln ('**** YOU WIN ! ****');

end;

textcolor (15);

gotoxy(25,20);

writeln('**** Press enter for exit ! ****');

readln;

END.

игра змейка язык turbo pascal

Приложение 2

· Примеры работы программы:

1)

2)