for y:=1 to Cy do Desk[y, 5] := True;
А для заполнения 3-й строки организовать такой цикл:
for x:=1 to Cx do Desk[3, x] := True;
Если вам понятна техника работы с матрицами, перейдем к программе «P_49_2».
Начнем с процедуры ReadDesk, что вводит матрицу из файла. Условимся считать, что крестикам в матрице Desk соответствует TRUE, а ноликам – FALSE. Входной файл обрабатываем построчно: сначала очередную строку читаем во вспомогательную строковую переменную S, а затем символы этой строки преобразуем в булевы значения оператором сравнения (вы помните, что оператор сравнения дает булев результат?).
Desk[y,x]:= S[x]='+'; { TRUE, если S[x] содержит крестик }
Следовательно, для ввода матрицы нужны два вложенных цикла: внешний – по строкам и внутренний – по столбцам.
Схоже работает и процедура WriteDesk, выводящая матрицу на экран. Здесь внутренний цикл формирует строку из 40 символов, каждый из которых может быть либо крестиком либо ноликом. Выбор пары символов – дело вкуса, в нашем случае пара определяется строковой константой CSymbols.
const CSymbols : string = '0+';
Нужный символ из этой строки выбирается по индексу.
S:= S + CSymbols[1+ Ord(Desk[y, x])];
Так, для значений Desk[y,x], равных FALSE, будет выбран первый символ строки ('0'), а для TRUE – второй ('+'), что равнозначно следующему громоздкому оператору.
if Desk[y, x]
then S:= S + CSymbols[2]
else S:= S + CSymbols[1]
Далее следуют две простые процедуры зеркального отражения матрицы относительно горизонтальной и вертикальной осей, – они всего лишь переставляют симметрично расположенные элементы.
Процедура инверсии рекламного щита ещё проще, – она меняет значения элементов матрицы на противоположные. Наконец, в главной программе после чтения из файла исходного изображения организован цикл ввода и обработки команд пользователя. Вводя одну из трёх команд (1, 2 или 3), пользователь крутит изображение туда-сюда, а также инвертирует его. Вот полный текст этой программы.
{ P_49_2 – Рекламная панель "крестики-нолики" }
const Cx = 40; { количество столбцов (ширина) }
Cy = 20; { количество строк (высота) }
type TDesk = array [1..Cy, 1..Cx] of boolean;
var Desk : TDesk;
{ Чтение исходного состояния панели из текстового файла }
procedure ReadDesk(var F: Text);
var x, y: integer; { x – индекс столбца, y – индекс строки }
S: string;
