ми для зациклення процесу гри;
) Процедура зчитування з клавіатури 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...