Опишите алгоритм определения общей площади всех внутренних стен лабиринта - Pascal ABC

Формулировка задачи:

Пусть имеется прямоугольный лабиринт, разбитый на клетки со стороной 1 метр. Длина лабиринта — n метров, ширина — m метров. На плане лабиринта закрашенная клетка соответствует непроходимому препятствию. Высота лабиринта всюду одинакова и равна 3 (трем) метрам. Вход в лабиринт и выход всегда размещены в левом верхнем и правом нижнем углах. Нумерация клеток начинается из левого верхнего угла. Перед открытием сезона необходимо оклеить все внутренние стены лабиринта новыми обоями. Опишите алгоритм определения общей площади всех внутренних стен лабиринта. Входные данные n, m; двухмерный массив (прямоугольная таблица) размерностью n × m. Элементы массива принимают одно из двух значений: “пусто” или “занято”. Пример Лабиринт (n = 14, m = 12), карта которого представлена ниже, имеет площадь внутренних стен 104 × 3 = 312 м2 . Контуры внутренних стен на рисунке выделены жирной линией.

Решение задачи: «Опишите алгоритм определения общей площади всех внутренних стен лабиринта»

Листинг программы

const nmax=20;
var a:array[1..nmax,1..nmax] of byte;
    m,n,i,j,k,p,q:byte;
    s:integer;
begin
writeln('Введите размеры лабиринта');
readln(m,n); //m-строки, n-столбцы
s:=0;
for i:=2 to m-1 do
for j:=2 to n-1 do
if a[i,j]=0 then
 begin
  q:=0;
  for k:=i-1 to i+1 do
  for p:=j-1 to j+1 do
  if a[k,p]=1 then inc(q);
  s:=s+q;
 end;
s:=s*3;
write(s);
end.

Объяснение кода листинга программы

Ввод размеров лабиринта:
- Пользователю предлагается ввести размеры лабиринта (m строк, n столбцов).
- Значения m и n сохраняются в переменных m и n соответственно.
Инициализация массива a:
- Создается массив a размером m x n, заполненный нулями.
- Значение m и n используются для инициализации переменных i, j, k, p и q.
Цикл для обхода всех внутренних стен лабиринта:
- Запускается цикл, который выполняется для каждой строки лабиринта (от i=2 до m-1) и каждого столбца лабиринта (от j=2 до n-1).
- Внутри цикла проверяется, равна ли ячейка a[i,j] нулю. Если да, то выполняется следующий блок кода.
Цикл для подсчета количества внутренних стен лабиринта:
- Запускается внутренний цикл, который выполняется для каждой ячейки a[k,p], где k находится в диапазоне от i-1 до i+1, а p находится в диапазоне от j-1 до j+1.
- Если значение a[k,p] равно 1, то переменная q увеличивается на 1.
- После завершения внутреннего цикла, переменная s увеличивается на сумму значений q.
Увеличение значения s:
- Значение s увеличивается в три раза.
Вывод значения s:
- Выводится значение переменной s.