Задача. Магический/Не магический квадрат

@throne · Регистрация: 04.11.2015

Author24 — интернет-сервис помощи студентам

Проверить, является ли заданная целочисленная матрица A(N, N) "магическим квадратом" (это значит, что суммы чисел во всех её строках, всех столбцах и двух диагоналях одинаковы).
Решить без процедур и функций.

@Puporev · 11.11.2015, 18:22

Вводите размер квадрата N.
Заполняете его числами, например списываете откуда-то магический квадрат, или нет.
Проверка.

Pascal

s:=0;
for i:=1 to n do
s:=s+a[i,i];//сумма главной диагонали
s1:=0;
for i:=1 to n do
s:=s+a[i,n-i+1];//сумма побочной диагонали
if s1<>s then
 begin
  write('Это не магический квадрат');
  exit
 end;
m:=0;
i:=1;
while(i<=n)and(m=0) do//проверяем строки
 begin
  s1:=0;
  for j:=1 to n do
  s1:=s1+a[i,j];
  if s1<>s then m:=1
  else i:=i+1;
 end;
if m=1 then
 begin
  write('Это не магический квадрат');
  exit
 end;
j:=1;
while(j<=n)and(m=0) do//проверяем столбцы
 begin
  s1:=0;
  for i:=1 to n do
  s1:=s1+a[i,j];
  if s1<>s then m:=1
  else j:=j+1;
 end;
if m=1 then  write('Это не магический квадрат')
else write('Это магический квадрат')
end.

@throne 1 / 1 / 0 Регистрация: 04.11.2015 Сообщений: 17
		1
	Задача. Магический/Не магический квадрат 11.11.2015, 17:09. Показов 4910. Ответов 1 Метки нет (Все метки) Проверить, является ли заданная целочисленная матрица A(N, N) "магическим квадратом" (это значит, что суммы чисел во всех её строках, всех столбцах и двух диагоналях одинаковы). Решить без процедур и функций. 0

	11.11.2015, 18:22

Опции темы

Задача. Магический/Не магический квадрат

Решение