Магический, или волшебный, квадрат — это квадратная таблица NxN, заполненная N 2 числами таким образом,
что сумма чисел в каждой строке, каждом столбце и на обеих диагоналях одинакова. Задан двумерный массив размерностью NxN. Определить, является ли он магическим квадратом. Составить блок схему, описание решения и программу на Паскаль
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Мартынов Кондрат
const n=4;
//((1,14,15,4),(12,7,6,9),(8,11,10,5),(13,2,3,16));
var a:array [1..n,1..n] of integer;
var i,j,s,sum,k:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
k:=1;
sum:=0;
for i:=1 to n do sum:=sum+a[i,i];
s:=0;
for i:=1 to n do s:=s+a[i,n-i+1];
if s=sum then inc(k);
for i:=1 to n do
begin
s:=0;
for j:=1 to n do s:=s+a[i,j];
if s=sum then inc(k);
end;
for j:=1 to n do
begin
s:=0;
for i:=1 to n do s:=s+a[i,j];
if s=sum then inc(k);
end;
writeln(k);
if k=2*n+2
then writeln('Матрица является магическим квадратом')
else writeln('Матрица не является магическим квадратом');
end.
//((1,14,15,4),(12,7,6,9),(8,11,10,5),(13,2,3,16));
var a:array [1..n,1..n] of integer;
var i,j,s,sum,k:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
k:=1;
sum:=0;
for i:=1 to n do sum:=sum+a[i,i];
s:=0;
for i:=1 to n do s:=s+a[i,n-i+1];
if s=sum then inc(k);
for i:=1 to n do
begin
s:=0;
for j:=1 to n do s:=s+a[i,j];
if s=sum then inc(k);
end;
for j:=1 to n do
begin
s:=0;
for i:=1 to n do s:=s+a[i,j];
if s=sum then inc(k);
end;
writeln(k);
if k=2*n+2
then writeln('Матрица является магическим квадратом')
else writeln('Матрица не является магическим квадратом');
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
