	Уровень: Глоссарии:

ДВУМЕРНЫЕ МАССИВЫ

Пример:

Составить из чисел от 1 до К*К магический квадрат, в котором суммы чисел в каждом столбце, в каждой строке или диагонали одинаковы. Используем эвристический алгоритм, который позволяет построить магический квадрат, длина стороны которого нечетна. Все расставляемые числа делятся на группы от 1 до К, от К+1 до 2*К и так далее. Числа первой группы размещаются так, что в каждой строке и в каждом столбце находится ровно одно из них. Этот процесс повторяется для всех групп чисел.

Запишем план алгоритма:

установить начальные значения индексов строки и столбца так, чтобы они соответствовали середине первой строки;
для всех чисел от 1 до К*К выполнить:
поместить число в позицию массива, определяемую значениями индексов; ЕСЛИ число кратно К (делится без остатка),
ТО изменить индекс строки, чтобы он указывал на соседнюю строку снизу,
ИНАЧЕ изменить индекс строки так, чтобы он указывал на соседнюю строку сверху, а индекс столбца так, чтобы он указывал на соседний столбец справа.
ЕСЛИ индекс строки выходит за пределы квадрата, то переустановить его на нижнюю строку квадрата.
ЕСЛИ индекс столбца выходит за пределы квадрата, то переустановить его на левый столбец квадрата;
вывести на экран дисплея полученный магический квадрат.

Program MAGKV;
const K=7;
var i, n, c: Integer;
 kv: Array[1..K,1..K] of Integer;
begin
 i:=1;  n:=K div 2+1;
 for c:=1 to K*K do begin
 kv[i,n]:=c;
 if c mod K = 0
 then i:=i+1
 else begin
 dec(i); inc(n);
 if i <=0 then i:= k;
 if n > K then n:=1
 end
 end;
 for i:=1 to K do begin
 for n:=1 to K do Write(kv[i,n]:4);
 Writeln
 end
end.