; (' 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 що дозволяє використовуват...