Тетрис

При нажатии кнопок вправо-влево происходит увеличение или уменьшение значений столбцов массива, соответствующих элементам фигуры. Таким образом, фигура сдвигается в заданном направлении:procedure leftClick; begin for var i:= 1 to 20 do for var j:= 1 to 10 do if (field[i,j]='o')and not(j=1) then begin field[i,j-1]:='o'; field[i,j]:='_' end;end; procedure rightClick; var field2: Arr; begin for var i:= 1 to 20 do for var j:= 1 to 10 do field2[i,j]:=field[i,j]; for var i:= 1 to 20 do for var j:= 1 to 10 do if (field[i,j]='o')and not(j=10) then begin field2[i,j+1]:='o'; if j<>1 then field2[i,j]:= field[i,j-1] else field2[i,j]:='_'; end; for var i:= 1 to 20 do for var j:= 1 to 10 do field[i,j]:=field2[i,j];end;Перед каждым выполнением процедуры из объекта типа «Timer» происходит проверка на наличие полностью заполненных строк массива. Если такие строки присутствуют, то элементам этой строки и всех строк выше данной кроме самой верхней присваиваются значения соответствующих элементов, расположенных на строку выше. Элементам самой верхней строки присваиваются значения, соответствующие пустому игровому полю. В счетчик, отвечающий за счет, добавляется количество удаленных строк [5]:for var i1 := 1 to 19 do if (field1[i1,1]='x') and (field1[i1,2]='x')and (field1[i1,3]='x')and (field1[i1,4]='x')and (field1[i1,5]='x')and (field1[i1,6]='x')and (field1[i1,7]='x')and (field1[i1,7]='x')and (field1[i1,8]='x')and (field1[i1,9]='x')and (field1[i1,9]='x') thenbegin score:=score+1; for var i:= 1 to 18 do for var j:= 1 to 10 do field1[20-i,j]:=field[19-i,j]; for var i:= 19 to 19 do for var j:= 1 to 10 do field1[20-i,j]:='_'; end;Окончание игры происходит, когда проверка перед началом очередной процедуры показывает наличие не пустых элементов в трех верхних строках:for var i:= 1 to 3 do for var j:= 1 to 10 do if (field[i,j]='x') then begin flag:=false; flag2:=true; for var i4:= 1 to 20 do for var j4:= 1 to 10 do field[i4,j4]:=' '; tb.Text:='Счет: '+IntToStr(score)+'.';break; end;3. Разработанная программа, реализующая один из вариантов игры «Тетрис»3.1 Интерфейс программыИнтерфейс программы состоит из одной оконной формы, представленной на рисунке 2.Рисунок 2 – Оконная форма программы в начале игрыВ заголовке указано название программы – «Тетрис».Далее под заголовком располагается текстовая область, на которую выводится массив, соответствующий текущему состоянию игрового поля, с вертикальными и горизонтальными линиями в качестве разделителей, которые образуют клетки, по которым в вертикальном направлении перемещаются падающие фигуры, а в горизонтальном они могут быть перемещены игроком..На рисунке 2 представлена оконная форма, соответствующая началу игры, когда падает первая фигура. В данном случае это квадрат 2х2 из элементов в виде символов «о».Все падающая фигура представлены буквами «о», а фигуры, сложенные на предыдущих итерациях, буквами «х».Внизу текстовой области после слова «Счет:» выводится текущий счет, который обновляется на каждом шаге игры.На рисунке 2 текущий счет равен 0, так как ни одна фигура еще не упала и ни одна строчка не была убрана.Под текстовой областью расположена панель с двумя кнопками: «Влево» и «Вправо», которые отвечают за перемещение падающей фигуры. Одному нажатию кнопки соответствует перемещение падающей фигуры на одну клетку в соответствующем направлении.На рисунке 3 представлена оконная форма, соответствующая одной из очередных итераций. Внизу видны фигуры, сложенные на предыдущих итерациях, неправильная укладка которых уже привела к ситуации, когда под сложенными фигурами образовалась пустота, а новая фигура еще не успела появиться.Рисунок 3 – Оконная форма программы в середине игрыКогда стакан заполняется, игра прекращается и выводится счет (рисунок 4). На рисунке 4 видно, что массив, соответствующий игровому полю отсутствует, а в верхней части текстовой области остался только окончательный счетРисунок 4 – Оконная форма программы после окончания игры3.2 Руководство пользователяРазработанная программа представляет собой файл с расширением «exe», который не требует установки на компьютере и может быть запущен отдельно от среды разработки.Программа может быть запущена на любом компьютере, так как не предъявляет практически никаких требований к его конфигурации.Для начала игры необходимо два раза щелкнуть по файлу с расширением «exe».Откроется экранная форма, описанная в предыдущем параграфе, и начнется игра.Управление фигурой осуществляется нажатием мыши на кнопки в нижней части оконной формы, которые отвечают за перемещение падающей фигуры влево-вправо.При заполнении программы игра автоматически прекратится, а вместо игрового поля появится надпись со счетом.ЗаключениеВ работе была реализована простая версия всемирно известной игры «Тетрис», которая представляет собой файл с расширением «exe», запускаемый на любом компьютере.Графический интерфейс программы состоит из одной оконной формы, которая позволяет управлять перемещением падающей фигуры, а по окончанию игры туда же выводится счет.ЛитератураИстория тетриса. Как это было на самом деле- [Электронный ресурс] – режим доступа:https://www.igromania.ru/article/11612/Istoriya_tetrisa_Kak_yeto_bylo_na_samom_dele.htmlИстория тетриса от Вадима Герасимова — её первого кодера для IBM PC.Острейковский В. А. Информатика : учебник для вузов / В. А. Острейковский. — М. : Высш. шк., 1999.Вирт Н. Алгоритмы и структуры данных / Н. Вирт. — М. : Мир, 1989.Шпак Ю. А. Turbo Pascal 7.0 на примерах / Ю. А. Шпак ; под ред. Ю. С. Ковтанюка. — Киев : Юниор, 2003.