Диагонали массива [Pascal]

[r1nz0r]

Добрый день. Задали курсовую по инфе, но я человек от неё далекий, поэтому требуется помощь. Вот задание:
Записать двумерный массив A[i,j] размеров NxM. Вывести среднее значение каждой диагонали массива. (то есть все диагонали, параллельные главной и побочной, включая их самих).
Матрица не обязательно квадратная и в этом проблема.

[Stilet]

и в этом проблема.

Нет тут проблем... Считается так же как и при квадратной.
показывай как пытался - подкорректируем )

[Аватар]

Я бы так счтал. Аналогично и в другом направлении

[r1nz0r]

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

Нет тут проблем... Считается так же как и при квадратной.
показывай как пытался - подкорректируем )

Я в принципе не совсем понимаю, как посчитать другие диагонали, помимо главной и побочной, а тут еще и не квадратный массив

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

Нет тут проблем... Считается так же как и при квадратной.
показывай как пытался - подкорректируем )

для главной получается счет такой

for i:=1 to n do
sum := sum + a[i,i];
sr:=sum/n;

для побочной такой

for i:=1 to n do
sum := sum + a[i,N-i+1];
sr:=sum/n

а вот как делать если она не квадратная, и еще к другим диагонялм переходить? писать a[i-1;i-1] и тд?

[Stilet]

Для суммы выше главной:

function diag1(x:integer):Double;
var s:double; i:integer;
begin
 s:=0; i:=1;
 while (x<=m) do begin
  s:=s+a[i,x];
  inc(x); inc(i);
 end;
 diag1:=s;
end;

Для суммы ниже главной:

function diag2(y:integer):Double;
var s:double; i:integer;
begin
 s:=0; i:=1;
 while (y<=n) do begin
  s:=s+a[y,i];
  inc(y); inc(i);
 end;
 diag2:=s;
end;

Идея ясна?

[r1nz0r]

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

Для суммы выше главной:

function diag1(x:integer):Double;
var s:double; i:integer;
begin
 s:=0; i:=1;
 while (x<=m) do begin
  s:=s+a[i,x];
  inc(x); inc(i);
 end;
 diag1:=s;
end;

Для суммы ниже главной:

function diag2(y:integer):Double;
var s:double; i:integer;
begin
 s:=0; i:=1;
 while (y<=n) do begin
  s:=s+a[y,i];
  inc(y); inc(i);
 end;
 diag2:=s;
end;

Идея ясна?

Вроде бы да. Но получается, что циклом while мы считаем сумму элементов всех диагоналей, что выше/ниже главной, а надо отдельно каждую. И еще считать количество элементов каждой диагонали, я так понял это переменная inc(y) и inc(x)?

[Stilet]

Но получается, что циклом while мы считаем сумму элементов всех диагоналей

Ты код запускал?

[r1nz0r]

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

Ты код запускал?

Да, немного затупил) Получается, тут вся фишка в вызове функции, правильно понимаю? В зависимости от того, какой параметр зададим при её вызове, такую диагональ он нам и посчитает?