Магический квадрат

[morgan97]

подскажите идею как сделать магический квадрат с помощью двумерного массива

[Alter]

Источник

Пример 3. Дан двумерный массив размером N´N. Выяснить, является ли этот массив магическим квадратом.

Решение: магический квадрат — это двумерный массив размерности N´N, в котором все суммы элементов по столбцам и по строкам одинаковы. Поэтому для проверки можно поступить следующим образом:

1.        Вычислим сумму первой строки и обозначим эту сумму, через S. Ясно, что все последующие суммы должны быть равны S;

2.        Будем вычислять суммы столбцов и строк и сравнивать их с S. Если хотя бы одна сумма окажется не равна S, то этот квадрат не является магическим, в противном случае он действительно магический. В программе введем величину K, которая изначально пусть равна 1, и если нашлась сумма не равная S, то пусть K=0. Если по окончанию работы программы K=1, то квадрат магический, если же K=0, то квадрат магическим не является.

Примечание 

В данном алгоритме есть один существенный недостаток. Возможно, вы уже на первом шаге сможете обнаружить, что данный квадрат не является магическим, но алгоритм, тем не менее, будет продолжать свою работу. Конечно, было бы значительно эффективнее, если бы программа прекращала свою работу сразу, как только обнаружит сумму, отличную от вычисленной первой.

Program example;

  Uses crt;

  Var

    a:array[1..10,1..10] of integer;

    i,j,n,s,w,k,q:integer;

begin

  clrscr;

  write('Ввести размерность квадрата =');readln(n);

  for i:=1 to n do

    for j:=1 to n do

      begin

        write('A(',j,',',i,')=');readln(a[j,i]);

      end;

    s:=0;

    for i:=1 to n do

      s:=s+a[1,i];

    k:=1;

    for i:=1 to n do

      begin

        w:=0;q:=0;

        for j:=1 to n do

          begin

            w:=w+a[j,i];

            q:=q+a[i,j];

          end;

        if (s<>w)or(q<>s) then k:=0;

      end;

    if k=0 then write('Квадрат не является магическим')

    else write('Квадрат магический');

end.

http://ru.wikipedia.org/wiki/Магичес...82.D0.BE.D0.B2

[morgan97]

это немного не то надо чтобы он сам строил магический квадрат подскажите как надо делать проверки

[DM_bite]

Сообщение от morgan97

это немного не то надо чтобы он сам строил магический квадрат подскажите как надо делать проверки

Непонятно, что именно понимать под "сам строил магический квадрат"... Есть множество способов сделать это. К примеру вводить элементы матрицы вручную. А проверять надо лишь одно условие - суммы элементов всех строк, столбцов, главной и побочной диагоналей должны быть равны.

[Crabobass]

Он имел в виду полную генерацию квадрата. Щас сам бьюсь над этой задачей...

[Serg Belyaev]

На этой страничке приведены соответствующие генераторы магических квадратов порядков 4 и 5.