Определить, является ли массив «магическим квадратом»

Posted by obzor under Delphi

Определить, является ли массив a(5,5) «магическим квадратом», в котором суммы рядов, столбцов, диагоналей одинаковы.

Arigato

Набросал функцию для определения «магического квадрата». Писалась без проверки, так что проверяйте корректность работы:

type
  TMatrix = array[1..5,1..5] of Integer;

function MagicSquare(M: TMatrix): Boolean;
var
  i,j,s,si,sj: Integer;
begin
  {Предполагаем, что матрица "магический квадрат"}
  MagicSquare:=True;
  {Находим сумму диагоналей}
  si:=0; sj:=0;
  for i:=1 to 5 do begin
    Inc(si,M[ i,i]);
    Inc(sj,M[ i,5-i+1]);
  end;
  {Если суммы диагоналей не равны - False}
  if sj<>si then
    MagicSquare:=False;
  {Запоминаем сумму}
  s:=si;
  {Находим суммы строк и столбцов}
  for i:=1 to 5 do begin
    si:=0; sj:=0;
    for j:=1 to 5 do begin
      Inc(si,M[ i,j]);
      Inc(sj,M[j,i]);
    end;
    {Сравниваем суммы, если не равны - False}
    if (si<>s) or (sj<>s) then
      MagicSquare:=False;
  end;
end;

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Создать таблицу умножения
• Обработка строк (Pascal)
• Необходимо расположить эти числа в порядке возрастания сумм их цифр