@den=

program test;
uses
crt;
const
n = 2; {размерность массива}
type
Tarr = array[1..n, 1..n] of integer; {тип квадратной матрицы}
{==========================================}
{печатаем все элементы матрицы проходя по колонкам и спускаясь последовательно по строкам}
procedure printArr(x : Tarr; s : string);
var
i, j : byte;
begin
writeln(s);
for i := 1 to n do
begin
for j := 1 to n do
begin
write(x[i, j]:4); {масштаб равен 4, этого достаточно, поскольку максимальная длина составляет вообще 1 символ}
end;
writeln;
end;
end;
{==========================================}
{заполняем стартовый массив случайными числами, желательно взять небольшой диапазон, поскольку иначе будут огромные проблемы с нахождением
магического квадрата}
procedure insertDataByPC(var x : Tarr);
var
i, j : byte;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
x[i, j] := random(2) + 1; {хотите садо мазо, поставьте здесь хотя бы random(20)}
end;
end;
end;
{==========================================}
{функция, возвращающая истину, если поданный ей парамет является магическим числом, иначе ложь}
function magic(x : Tarr) : boolean;
var
number : integer; {хранит то самое число, с которым предстоит сравнить сумму каждой строки и колонки матрицы}
i, j : byte;
tmp : integer; {отвечает за сумму элементов текущей строки / столбца}
b : boolean; {если истина, значит матрица - магическое число}
begin
b := true; {предполагаем изначально, что матрица магическая и смотрим как программа быстро развивает это убежденеие(обычно, но не всегда}
number := 0;
for i := 1 to n do
begin
number := number + x[1, i]; {нужно от чего отталкиваться при расчетах. Почему бы не взять сумму элементов первой строки}
end;

for i := 2 to n do
begin
tmp := 0;
for j := 1 to n do
begin
tmp := tmp + x[i, j];
end;
if(tmp <> number) then {если сумма i - ой строки матрицы не равна number, значит это уже не магическая матрица. Все логично.}
begin
b := false;
break; {заканчиваем расчет, поскольку смысла нет никакогов}
end;
end;

for i := 1 to n do
begin
tmp := 0;
for j := 1 to n do
begin
tmp := tmp + x[j, i];
end;
if(tmp <> number) then {если сумма j - ой колонки матрицы не равна number, значит это уже не магическая матрица. Все логично.}
begin
b := false;
break;
end;
end;

if(b = false) then
begin
magic := false; {возвращаем ложь, если это не магичесий квадрат иначе соот - но истину. Все просто.}
end
else
begin
magic := true;
end;
end;
{==========================================}
var
arr : Tarr;
begin
clrscr;

randomize;
insertDataByPC(arr);
textColor(red);
printArr(arr, 'Начальный массив имеет вид: ');
textColor(green);
if(magic(arr)) then
begin
writeln('Поздравляю! Данная матрица магический квадрат');
writeln('что честно говоря большая редкость');
end
else
begin
writeln('Это не магический квадрат');
end;
end;
readln;
end.

Добавлено через 1 минуту
только вот блок-схемы нет

Вернуться к обсуждению:
Магический квадрат Turbo Pascal

0