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

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





ми для зациклення процесу гри;

) Процедура зчитування з клавіатури keypressed і readkey для управління фігурами;

) Модуль crt, який дозволяє збільшити швидкість виконання програми на відміну від модуля Graph;

Вид програми


В 

2. Код програми

гра тетріс поле фігура

program tetris; crt; b, a, c: array [1 .. 10,1 .. 20] of integer;: array [1 .. 4,1 .. 4] of integer;: array [1. .8] of integer;

n, m, x, y: integer;, fi: char;, wt, fig, del, dell, colr, colre, z, s: integer;

new, pov: boolean;, figs, ochke: integer;: string;: text;

{--------------------------------------} cvet (colr: integer): integer; colr of

: cvet: = 9;

2: cvet: = 10;

: cvet: = 11;

: cvet: = 12;

: cvet: = 13;

: cvet: = 14;

7: cvet: = 7;;;

{--------------------------------------} cls; i, j: integer ; i: = 1 to 10 doj: = 1 to 20 do a [i, j]: = 0;;

{---------------------------------------} proverka; i, j, l, f, g: integer;

begini: = 20 downto 1 do begin: = 0; j: = 1 to 10 do begin

{readkey; (i, '', j, '', l, '-');} a [j, i] = 1 then l: = l +1;; l = 10 then begin: = line +1; f: = i-1 downto 1 dog: = 1 to 10 do begin a [g, f +1]: = a [g, f]; [g, f +1]: = b [g, f ];;: = i +1;;;;

{----------------------------------------} paint;

var i, j: integer; (40,3);

textcolor (15);: = line * (20-del); ('line:', line, 'point:', ochke); (41,4); ('scor:', del); i : = 1 to 10 doj: = 1 to 20 doa [i, j] of

: begin textcolor (b [i, j]); (i +20, j); ('0 ');;

: begin (cvet (colr)); (i +20, j); ('0 ');;

: begin textcolor (red), (i +20, j), ('.');;; i: = +1 to 4 doj: = +1 to 4 do begind [i, j] of

: begin textcolor (red); (i +40, j +5); ('.');;

: begin (cvet (colre)); (i +40, j +5); ('0 ');;;;;

{----------------------------------} figura (x, y, n, st: integer ); i: integer; n of

: begin then new: = true;: = 3;: = 2;: = 1;;

{--------}

: begin a [x +1, y]: = st; [x +1, y +1]: = st; [x +1, y +2]: = st; [x, y +1] : = st; (a [x, y +2] = +1) or (y = 18) or (a [x +1, y +3] = +1) then new: = true;: = 2;: = 3 ;: = 1;;

{--------}

: begin then new: = true;: = 3;: = 2;: = 1;;

{--------}

: begin a [x, y]: = st; [x, y +1]: = st; [x +1, y +1]: = st; [x, y +2]: = st; (a [x, y +3] = 1) or (y = 18) or (a [x +1, y +2] = 1) then new: = true;: = 2;: = 3;: = 1 ;;

{--------}

: begin then new: = true;: = 4;: = 1;: = 2;;

{--------}

: begin a [x, y]: = st, [x, y +1]: = st, [x, y +2]: = st, [x, y +3]: = st, (a [x, y +4] = 1) or (y...


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





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

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