Является ли матрица магическим квадратом

@Scorpiom · Регистрация: 09.10.2012

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

Дана матрица целых чисел, составленная из чисел 1 , 2 , . . . n^2. Определить, является ли она «магическим квадратом» (т.е. суммы по каждому столбцу, каждой строке и каждой из двух диагоналей равны между собой).

@ermolay · 09.10.2012, 15:44

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j,k,sum,sum1: integer;
  flag: boolean;
begin
  flag:=true;
  write('Введите размер матрицы n: ');
  readln(n);
  sum:=0;
  writeln('Введите значения элементов:');
  for i:=1 to n do
    for j:=1 to n do
    begin
      write('a[',i,',',j,'] = ');
      readln(a[i,j]);
    end;
  for j:=1 to n do
    k:=k+a[1,j];
 
  for i:=1 to n do
  begin
    sum:=0;
    for j:=1 to n do
      sum:=sum+a[i,j];
    if sum<>k then flag:=false;
  end;
  
  for j:=1 to n do
  begin
    sum:=0;
    for i:=1 to n do
      sum:=sum+a[i,j];
    if sum<>k then flag:=false;
  end;
  
  sum:=0; sum1:=0;
  for i:=1 to n do
    for j:=1 to n do
    begin
      if i=j then sum:=sum+a[i,j];
      if i+j=n+1 then sum1:=sum1+a[i,j];
    end;
  if sum<>k then flag:=false;    
  if sum<>k then flag:=false;
 
  if flag then writeln('Матрица - магический квадрат') else
    writeln('Матрица - не магический квадрат');
  readln;
end.

@Scorpiom 0 / 0 / 0 Регистрация: 09.10.2012 Сообщений: 12
		1
	Является ли матрица магическим квадратом 09.10.2012, 15:04. Показов 6870. Ответов 1 Метки нет (Все метки) Дана матрица целых чисел, составленная из чисел 1 , 2 , . . . n^2. Определить, является ли она «магическим квадратом» (т.е. суммы по каждому столбцу, каждой строке и каждой из двух диагоналей равны между собой). 0

	09.10.2012, 15:44

Опции темы

Является ли матрица магическим квадратом

Решение