magic квадрат!...

[twister_answer]

Люди, помогите написать программу которая сможет выяснить, является ли заданная квадратная матрица «магическим квадратом».
«Магический квадрат» - это квадратная таблица из целых чисел, в которой суммы чисел вдоль любой строки, любого столбца и любой из двух главных диагоналей равны одному и тому же числу.
очень нужна помощь...

[mrChester]

bool Magic(float** M, int N) //на входе квадратная матрица и ее порядок
{
float Summ=0, Summ1=0, Summ2=0;
for (int i=0; i< N; i++) //находим сумму диагоналей
 {Summ += M[i][i];  
   Summ1 += M[i][N-i-1];
 }
if (Summ != Summ1) return false;

for (int i=0; i< N; i++)
  {Summ1=0;  //сумма по горизонтали
    Summ2=0; //сумма по вертикали
    for (int j=0; j< N; j++)
    {
       Summ1+=M[i][j];
       Summ2+=M[j][i];
    }
    if ((Summ1 != Summ) || (Summ2 != Summ)) return false;
  }
return true;
}

[twister_answer]

Я извиняюсь, что не придупредил заранее... но мне нужно на Delphi...
А если не тяжело то можно вобще просто словесное описание тогда будет очень здорово

[DoDge_VipeR]

просто словесное описание

считаешь суммы по строкам если они не равны --> значит не магический
если равны считаешь суммы по столбцам если они не равны --> значит не магический
если равны считаешь диагонали если они не равны --> значит не магический
если равны сравниваешь все 3 суммы (строк столбцов диагоналей) если они не равны --> значит не магический
иначе магический

[Utkin]

Точно не помню, но кажись все магические квадраты должны содержать нечетное количество элементов в строках/столбцах. Можно и эту проверку вставить...

[twister_answer]

DoDge_VipeR
спасибо а можешь написать как посчитать суммы по строкам?

Utkin мне б сначала так написать потом уже всякие условия добавлять

[DoDge_VipeR]

можешь написать как посчитать суммы по строкам?

В поиске точно есть

[twister_answer]

Спасибо большое за помощь!