Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
1 / 1 / 0
Регистрация: 25.09.2014
Сообщений: 125
1

Создание нового массива из элементов квадратной матрицы

17.10.2014, 19:51. Показов 1409. Ответов 2
Метки нет (Все метки)

Дан массив A(X,X) - то есть квадратная матрица.
Сформировать массив S из суммы тех элементов рядов, которые лежат под главной диагональю, сформировать массив P из произведений элементов на параллелях, которые лежат над главной диагональю. Полученные массивы объединить в массив C следующим образом: (S1,P1,S2,P2...).

Пример:
Код
 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
Сумма элементов рядов под главной диагональю:
6;
11+12=23;
16+17+18=51;
21+22+23+24=90;
Массив S[6,23,51,90]
Произведение элементов на параллелях, лежащих над главной диагональю:
2*8*14*20=4480;
3*9*15=405;
4*10=40;
5;
Массив P[4480,405,40,5]

Массив С[6,4480,23,405,51,40,90,5
Матрица вводиться вручную.
Что нужно сделать в задаче понимаю, но как это правильно "закодить", к сожалению, не пойму.
Помогите, пытался вчера весь вечер.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2014, 19:51
Ответы с готовыми решениями:

Создание нового массива из определенных элементов другого массива
Здравствуйте. Мне нужно создать одномерный массив из элементов двумерного массива. Как можно это...

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

Найти S сумму элементов (диагоналей) квадратной матрицы массива A.
Кенни, подскажи плз, дана задача: Найти S сумму элементов (диагоналей) квадратной матрицы массива...

Найти S сумму элементов квадратной матрицы A из заштрихованной области массива A
Найти S сумму элементов квадратной матрицы A из заштрихованной области массива A.

2
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
17.10.2014, 20:55 2
Лучший ответ Сообщение было отмечено Magestian как решение

Решение

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    s,p,c:array[1..2*nmax-2] of longint;
    x,n,m,i,j:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' x=');
readln(x);
until x in [1..nmax];
writeln('Введите элементы матрицы, целые числа');
for i:=1 to x do
for j:=1 to x do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to x do
 begin
  for j:=1 to x do
  write(a[i,j]:4);
  writeln;
 end;
n:=0;
for i:=2 to x do
 begin
  n:=n+1;
  s[n]:=0;
  for j:=1 to i-1 do
  s[n]:=s[n]+a[i,j];
 end;
writeln('Массив S');
for i:=1 to n do
write(s[i]:4);
writeln;
m:=0;
for j:=2 to x do
 begin
  m:=m+1;
  p[m]:=1;
  for i:=1 to x-j+1 do
  p[m]:=p[m]*a[i,j+i-1];
 end;
writeln('Массив P');
for i:=1 to m do
write(p[i],' ');
writeln;
writeln('Массив C');
for i:=1 to 2*n do
 begin
  if odd(i) then c[i]:=s[i div 2+1]
  else c[i]:=p[i div 2];
  write(c[i],' ');
 end;
readln
end.
1
1 / 1 / 0
Регистрация: 25.09.2014
Сообщений: 125
17.10.2014, 23:36  [ТС] 3
Разобрался, спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2014, 23:36

Посчитать количество элементов массива, кратных наименьшему элементу некоторой квадратной матрицы
Дана матрица размера m х n. Посчитать количество элементов массива, кратных наименьшему элементу...

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

Сформировать новый массив из неотрицательных элементов массива В, найти среднее арифметическое элементов нового массива
всем здарсте ребят, сижу на зачете... такая задачка - задан массив В(20). Сформировать новый...

Создание квадратной матрицы и ее обработка
Уважаемые форумчане, прошу помочь с задачкой. В программирование в Mathcad ооочень все у меня туго...


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

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

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