2) procedure povorot реалізація повороту "змійки".;
3) Оператор вибору case: наприклад, у випадковому виборі цифри;
) Цикл з пост умовою Repeat/Until: у головному тілі програми для зациклення процесу гри;
) Процедура зчитування з клавіатури keypressed і readkey для управління "змійки";
) Модуль crt, який дозволяє збільшити швидкість виконання програми на відміну від модуля Graph;
Висновок
У цій роботі ми створили гру змійка в програмному середовищі Turbo Pascal, нам вдалося вирішити головне завдання, тобто створити: поле гри, поява десяти різних цифр на поле; поворот "змійки"; видалення з'їдених цифр і підрахунок очок за допомогою їх підсумовування;
Вся гра реалізована в модулі бібліотеки crt що дозволяє використовувати дану програму на комп'ютерах без графічних бібліотек і комп'ютерах мають малий об'єм оперативної пам'яті. Нам не вдалося створити версію гри з графічною бібліотекою, але надалі ми плануємо доопрацювати програму, для можливості вибору режиму гри (crt або Graph). p align="justify"> програма pascal гра пам'ять
Список використаної літератури
1.Программірованіе в середовищі Turbo Pascal 7.0 видання третє стереотипне. М.Москва; "Діалог - Міфи" 1996р. А.М. Епашенков, В.А. Епашенков
2.Інтернет сайт # "justify"> Додаток А
Код програми: GAMES; CRT;, y: array [1 .. 5] of byte; {--------}, q2, S: byte; {---- -}, j, sh: byte; { зҐвзЕЄЕ}, Left, schet: integer; {-------------}: char; {---- ----}: boolean; {--------------------}
{-------} Zmeya (cvet: byte); (cvet); i: = 1 to 5 do (x [i], y [i]); i = 1 then Write (chr (2)) Write (chr (254));;;
{-----------} Izmenenie_Zmei; i: = 5 downto 2 do [i]: = x [i-1]; [i]: = y [i -1];; [1]: = x [1] + Left; [1]: = y [1] + Top;;
{----------} (2);; (15); (33,10); ('- = GAMES PYTHON = -'); (29,12 ); ('Igra Chernih Konstantina'); (34,14); ('Pres ENTER');;;
{--------------} i: = 2 to 79 doj: = 2 to 22 do (i = 2) or (i = 79) or ( j = 2) or (j = 22) then (i, j); (chr (176)); (6,24); ('ESC - Vihod'); (35,24); ('Shet', schet );;
{----------------------}: = 0; i: = 1 to 5 do [i]: = 41 - i; [i]: = 15;;
{-------------------}: = True; (12); (20000), (2), (2);
{-----------------------------} Dostup = True thenKey of
# 72: begin Top: = -1; Left: = 0; end;
# 80: beg...
