Матрицы - проверка на Магический квадрат

[Олеся Хусаинова]

Дана целочисленная матрица A(NxN)/Выяснить, является ли матрица А магическим квадратом ( суммы элементов в строках и столбцах одинаковы).

[Serge_Bliznykov]

я исправил название темы на более адекватное.
теперь смотрите, сам форум внизу страницы в разделе "Похожие темы" предлагает ряд тем с таким же названием.
Начните с того, что посмотрите в этих темах.


p.s. а по сути всё просто - цикл по строкам, цикл по столбцам и цикл по двум диагоналям. в любом из циклов, как только значение полученной суммы не совпадает с эталонной - сразу устанавливать признак того, что это магический квадрат в false и вываливаться из всех циклов проверки. Кстати, поэтому удобно проверку вынести в отдельную функцию...

[Олеся Хусаинова]

Спасибо)
Вот такие вот неадекватные задачи нам препод раздает(

[Serge_Bliznykov]

Сообщение от Олеся Хусаинова

Вот такие вот неадекватные задачи нам препод раздает(

Олеся, Вы меня не поняли.
я не говорил, что задача - "не адекватная", я говорил, что когда Вы создаёте тему, название темы нужно (по правилам форума, да и согласно здравому смыслу) давать так, чтобы было максимально понятно, что за задача/проблема обсуждается в данной теме.

сравните два названия: Матрицы
и Матрицы - проверка на Магический квадрат

вот что может быть в теме с первым названием? Да всё, что угодно - начиная от поиска максимально/минимально элемента, заполнения матрицы по спирали или змейкой и заканчивая занулением определённых элементов матрицы. А может и проверка на магический квадрат скрываться.
А второе название уже гораздо меньше оставляет простора для флуктуаций и фантазий - уже можно догадаться, что требуется в данной теме.
Вот это я и имел в виду.

[TinMan]

Сообщение от Олеся Хусаинова

Вот такие вот неадекватные задачи нам препод раздает(

Задача самая что ни на есть адекватная )).

  yes:= true;  // variable yes of type boolean
  i:= 1;
  repeat
    j:=1;
    c:= 0;     // sum by  columns
    r:= 0;     // sum by rows
    repeat
      c:= c+a[i,j];
      r:= r+a[i,j];
      inc(j)
    until j>n;
    if (c<>r) or (i>1) and (c<>o) then yes:= false
    o:= c;     // old sum
    inc(i)
  until not yes or (i>n);
  writeln('is this matrix a magic square? - ',yes);

Ввод и вывод матрицы сделай сама.
Успехов тебе.

[Олеся Хусаинова]

Спасибо)Я учту на будущее)

[Олеся Хусаинова]

Спасибо)Дальше разберусь)