Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Розробка програми, що реалізує гру "Тетріс" в програмному середовищі Turbo Pascal

Реферат Розробка програми, що реалізує гру "Тетріс" в програмному середовищі Turbo Pascal





; (' Made by: Tretyakov Ilia, Sinkovskaia Lida, Ivanova Aleksandra '); (30,12); (14); (name, 'Vvedite skorost:');

read (del);: = del;: = 0; (20,13); (13); ('Vvedite nomera figur (1-8) (esli vse (v) vkonce (o)):') ;

read (fi); fi of

'1 ': begin z: = z +1; e [z]: = 1; end;

'2 ': begin z: = z +1; e [z]: = 5; end;

'3 ': begin z: = z +1; e [z]: = 7; end;

'4 ': begin z: = z +1; e [z]: = 8; end;

'5 ': begin z: = z +1; e [z]: = 10; end;

'6 ': begin z: = z +1; e [z]: = 12; end;

'7 ': begin z: = z +1; e [z]: = 16; end;

'8 ': begin z: = z +1; e [z]: = 20; end;

end; (fi = 'v') or (fi = 'o');

clrscr;: = 5;: = 1;: = random (19) +1;

repeat;: = dell;: = figs; fi = 'v' then figs: = random (19) +1 else: = false;: = random (20) +1; z: = 1 to 8 do if e [z] = figs then new: = true; new = true;: = +1;: = 5;: = false, (1,1, figs, 1);: = colr;

for z: = 1 to 4 dos: = 1 to 4 do d [z, s]: = a [z, s];

figura (1,1, figs, 0); (x, y, fig, 0); n: = 1 to 9999 do beginkeypressed then ch: = readkey else ch: = ''; ch of

'a': if (x> 1) and (a [(x-1), y] <> 1) then x: = x-1;

'd': if (x <11-wt) and (a [(x + wt +1), y] <> 1) then x: = x +1;

'x': begin dell: = del; del: = 1; end;

's': povorot (fig);

'p': readkey;

'm': begin new: = true, [4,3]: = 1, (31,10), (yellow), ('Dlia vihoda nagmi novaia igra ');; ; (del);;

y: = y +1; (x, y, fig, 2);

paint; new = true; (x, y, fig, 1);; z: = 1 to 10 dos: = 1 to 20 do beginc [z, s] <> a [z, s] then b [z, s]: = cvet (colr); [z, s]: = a [z, s];; (new = true) and ((a [4,3] = 1) or (a [3 , 3] = 1) or (a [5,3] = 1) or (a [6,3] = 1));

write ('Nagmi dlia vihoda ili dlia prodolgenia igre ..');

ch: = readkey;: = 0;; (t, 'record.txt');

append (t); ('');

write (t, '(', name, '', ochke, ');'); (t); ch = 'q';.


Висновки


У цій роботі ми створили гру тетріс в програмному середовищі Turbo Pascal, нам вдалося вирішити головне завдання, тобто створити:

поле гри, сім випадкових фігур тетраміно;

рух фігур у полі;

поворот фігур;

складання фігур в ряди;

видалення цілих рядів і підрахунок їх кількості;

відображення наступної фігури.

Також додатково ми реалізували: можливість вибору фігур для гри, створення однієї додаткової фігури, реалізація гри з різною швидкістю, збереження результатів гри в текстовий файл, підрахунок очок з урахуванням швидкості, створення додаткових функцій: виходу, паузи.

Вся гра реалізована в модулі бібліотеки crt що дозволяє використовуват...


Назад | сторінка 4 з 5 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Creation of control system by a personnel how to begin with a zero
  • Реферат на тему: Розробка в середовищі Turbo Pascal програми обчислення суми елементів рядкі ...
  • Реферат на тему: Розробка в середовищі Turbo Pascal програми сортування елементів, що знаход ...
  • Реферат на тему: Програми в середовищі Turbo Pascal
  • Реферат на тему: Створення довідника "Парфумерний магазин" за допомогою програми T ...