Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
somov
0 / 0 / 0
Регистрация: 23.03.2015
Сообщений: 14
#1

Сформировать одномерный массив из элементов, лежащих над главной диагональю матрицы - Pascal

31.05.2015, 18:12. Просмотров 449. Ответов 2
Метки нет (Все метки)

Сформировать одномерный массив из элементов, лежащих над главной диагональю матрицы А (4,4)

Был бы очень благодарен за программу,заранее спасибо
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2015, 18:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сформировать одномерный массив из элементов, лежащих над главной диагональю матрицы (Pascal):

Найти наименьшие, отрицательные, элементы каждой строки матрицы EW{m, m} находящиеся над главной диагональю и переписать их в одномерный массив W.
Мальчики помогите бедной девушке надо решить на завтро 2 задачи ,я уже пол...

Сформировать из элементов А, лежащих под главной диагональю и на ней, кососимметрическую матрицу С
Помогите решить эту задачу с помощью подпрограммы. Сформировать из элементов...

Найти сумму элементов, лежащих под главной диагональю квадратной матрицы
Дана матрица 5х5. Найти сумму элементов, лежащих под главной диагональю...

Сумма элементов матрицы над главной диагональю
Вычислить сумму элементов массива над главной диагональю, Определить индексы...

Даны матрицы А(4,3) и В(3,5). Для каждой матрицы вычислить сумму элементов над главной диагональю
Даны матрицы А(4,3) и В(3,5). Для каждой матрицы вычислить сумму элементов над...

Вычислить сумму элементов матрицы, расположенных над главной диагональю
Вычислить сумму элементов матрицы, расположенных над главной диагональю. Размер...

2
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
31.05.2015, 19:15 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  na=4; nb=6;
var
  a: array [1..na,1..na] of Integer;
  b: array [1..nb] of Integer;
  i, j, k: Integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to na do begin
    for j:=1 to na do begin
      a[i,j]:=Random(100); Write(a[i,j]:4);
    end; WriteLn;
  end;
  WriteLn('B='); k:=0;
  for i:=1 to na do
    for j:=1+i to na do begin
      Inc(k); b[k]:=a[i,j]; Write(b[k]:4);
    end;
  WriteLn;
end.
Добавлено через 6 минут
Другой вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  na=4; nb=6;
var
  a: array [1..na,1..na] of Integer;
  b: array [1..nb] of Integer;
  i, j, k: Integer;
begin
  Randomize;
  WriteLn('A='); k:=0;
  for i:=1 to na do begin
    for j:=1 to na do begin
      a[i,j]:=Random(100); Write(a[i,j]:4);
      if j>i then begin
        Inc(k); b[k]:=a[i,j];
      end;
    end; WriteLn;
  end;
  WriteLn('B=');
  for k:=1 to k do Write(b[k]:4); WriteLn;
end.
0
somov
0 / 0 / 0
Регистрация: 23.03.2015
Сообщений: 14
01.06.2015, 17:26  [ТС] #3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2015, 17:26
Привет! Вот еще темы с решениями:

Вычислить сумму элементов матрицы, расположенных над главной диагональю
Помогите с решением В заданной квадратной матрице A(K,K) (K<=10) вычислить...

Вычислить сумму элементов матрицы, расположенных над главной диагональю
Вычислить сумму элементов матрицы, расположенных над главной диагональю. Размер...

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

Написать подпрограмму деления суммы элементов квадратной матрицы над главной диагональю на сумму элементов под побочной.
задание))): написать универсальную для разл. наборов исходных данных...


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

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

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