Песни о Паскале

for y:=1 to Cy do
      for x:=1 to Cx do Desk[y, x]:= not Desk[y, x]
end;
var FileIn : Text;
      cmd : integer;
begin       {=== Главная программа ===}
Assign(FileIn, 'P_46_2.in'); Reset(FileIn);
ReadDesk(FileIn);
Close(FileIn);
repeat
      WriteDesk(Output);       { вывод «щита» на экран }
      Writeln;
      Write('1- Вертикальная; 2- Горизонтальная; 3- Инверсия, 0- Выход : ');
      Readln(cmd);       { Ввод команды }
      case cmd of
      1: Vert;       { отражение относительно вертикальной оси }
      2: Horisont; { отражение относительно горизонтальной оси }
      3: Invers;       { инверсия }
      else Break;       { выход из цикла и завершение программы }
      end;
until cmd=0;
end.

Добавлю ещё два слова о константе CSymbols.

const CSymbols : string = '0+';

Напомню, что такие константы, сопровождаемые описанием типа, называют типизированными и применяют для размещения данных в памяти.

Теперь, говоря по школьному, мы прошли тему массивов и двинемся дальше. Но с массивами впредь не расстанемся, поскольку, ни одна мало-мальски сложная задача без них не решается. Все только начинается!

Итоги

• Элементами массивов могут быть как простые, так и сложные типы данных, например, другие массивы или множества.

• Массив массивов называют двумерным массивом или матрицей.

• Для доступа к элементам матрицы необходимы два индекса: один – для столбца, другой – для строки.

А слабо?

А) По ходу строительства империи её бывшие границы – каналы – оказываются внутри новой страны и мешают перемещению граждан, – их лучше сровнять. Дополните программу «P_49_1» с тем, чтобы она печатала эти бывшие границы. Или слабо?

Б) Измените внутреннее представление рекламного щита так, чтобы вместо булевых элементов использовать символы. Внесите необходимые изменения в программу и проверьте её.

В) В 38-й главе для нахождения простых чисел мы воспользовались множеством. К сожалению, мощность множеств в Паскале невелика (256), поэтому находить большие простые числа мы не могли. Но выход есть – это массив булевых переменных. По сути, это множество, судите сами. Объявим массив из 1000 элементов.

const CSize = 1000;
type TBoolSet = array [1..CSize] of Boolean;
var BS : TBoolSet;

Теперь условимся, что массив, заполненный значением FALSE, – это пустое множество. А если множество содержит числа A и B, то соответствующие им