Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Anikol
0 / 0 / 0
Регистрация: 09.03.2012
Сообщений: 14
1

Просуммировать элементы матрицы, расположенные на главной и побочных (соседних с главной) диагоналях.

25.03.2012, 01:33. Просмотров 810. Ответов 3
Метки нет (Все метки)

Составьте программу для решения следующей задачи обработки двумерных массивов произвольной длины. Выведите на монитор исходные данные и результат.
Задана матрица размером m n. Просуммировать элементы, расположенные на главной и побочных (соседних с главной) диагоналях. Результат получить в виде вектора. Вектор в ответе вида: (сумма1, сумма2, сумма3), где сумма1 - сумма элементов диагонали ниже главной, сумма2 - сумма элементов главной диагонали, сумма3 - сумма элементов диагонали выше главной, типо так)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2012, 01:33
Ответы с готовыми решениями:

Просуммировать элементы матрицы, расположенные на диагоналях, параллельных главной
Для заданного двумерного массива размером N N про- суммировать элементы, расположенные на...

Просуммировать элементы матрицы, расположенные на диагоналях, параллельных главной, включая главную диагональ
Дорогие форумчани, помогите с задачками, в понедельник зачет, ничего в голову не идет:( Для...

Просуммировать элементы, расположенные на диагоналях параллельных главной
Для заданного двумерного массива размером N x N просуммировать элементы, расположенные на...

Составить программу, которая все элементы, расположенные на главной и побочных диагоналях массива, заменяет значение минимального элемента
3. Данная квадратная матрица А порядка n. Составить программу, которая все элементы, расположенные...

3
ermolay
3445 / 2383 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
25.03.2012, 01:49 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
  const
    nmax=100;
  var
    a: array[1..nmax,1..nmax] of integer;
    s1, s2, s3: integer;
    n,i,j: integer;
begin
  write('vvedite razmernost matici: '); readln(n);
  s1:=0; s2:=0; s3:=0;
  writeln('matrica:');
  randomize;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:3);
      if i=j+1 then s1:=s1+a[i,j];
      if i=j then s2:=s2+a[i,j];
      if i=j-1 then s3:=s3+a[i,j];
    end;
    writeln;
  end;
  writeln;
  writeln('summa 1 = ',s1,'; summa 2 = ',s2,'; summa 3 = ',s3);
  readln;
end.
1
Хасанчик
0 / 0 / 0
Регистрация: 26.04.2017
Сообщений: 1
26.04.2017, 23:43 3
Вообще-то есть только одна побочная диагональ - перпендикулярная к главной.
То есть, если есть матрица, например, 3 на 3
1 2 3
4 5 6
7 8 9
То главная диагональ - это числа 1, 5, 9, а побочная - 3, 5, 7. Программа примерно такая
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var m, n, i, k, s1, s2: integer; 
var A: array of array of integer; 
BEGIN 
write ('Vvedite n'); 
readln (n); 
write ('Vvedite m'); 
readln (m); 
setlegth (A, m, n); 
s1 := 0; 
s2 := 0; 
for i = 1 to m 
begin 
s1 = s1 + A[i, i]; 
s2 = s2 + A[i, n-i+1]; 
end; 
writeln ('Glavnaia = ', s1, '; Pobochnaia = ', s2); 
END.
0
Puporev
Модератор
59402 / 44827 / 30941
Регистрация: 18.05.2008
Сообщений: 107,543
27.04.2017, 10:22 4
В данном случае слово побочные применяется как расположенные сбоку от чего-то
Цитата Сообщение от Anikol Посмотреть сообщение
побочных (соседних с главной) диагоналях
И не надо умничать, думаю что ermolay явно не глупее Вас.
0
27.04.2017, 10:22
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2017, 10:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Рекурсивно просуммировать элементы матрицы, расположенные над главной диагональю
Нужно рекурсивно просуммировать элементы матрицы, расположенные над главной диагональю. Поможете?

Переставить друг с другом квадратные матрицы, расположенные на главной и побочной диагоналях большой матрицы
Дана матрица , состоящая из 4-х квадратных матриц Переставить друг с другом квадратные матрицы,...

Матрица:Заменить нулями все ее элементы, расположенные на главной и побочной диагоналях и выше их
Дана действительная квадратная матрица порядка 12. Заменить нулями все ее элементы, расположенные...

Переписать в одномерный массив сначала элементы, расположенные на главной, а затем на побочной диагоналях.
Не могу написать программу по условию: Дан массив А (n,n). Переписать в одномерный массив сначала...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.