Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 14.09.2019
Сообщений: 19

Изменить матрицу

20.12.2019, 17:30. Показов 1589. Ответов 3

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
begin
  rx:=1;            
  i:=1;
  j:=1;
while (i<=nx) do begin
  while (j<=nx) do begin
    if (xx[i,j]<0) then begin
    xx[i,j]:=0;
      while (rx<j)do begin
      xx[i,j]:=xx[i,rx]+xx[i,j];
      inc(rx);
      end; 
    end;
    rx:=1;
    inc(j);
  end;
inc(i);
j:=1;
end;
end
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.12.2019, 17:30
Ответы с готовыми решениями:

Составить матрицу инцедентности или матрицу смежности рёбер
По матрице смежности рёбер неориентированного графа составить матрицу инцедентности или матрицу смежности рёбер. кто чем сможет, может...

Изменить матрицу по заданному условию
Дана действительная матрица C(n*m) если последняя строка данной матрицы содержит нулевые элементы, то доложить все элементы матрицы на 10

вывести матрицу на экран, что то изменить нужно...
const n=5; m=5; var i,j,k,l: integer; A: array of integer; begin randomize; for i:=1 to n do for j:=1 to m do A:=-10+...

3
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
20.12.2019, 17:49
Попробуй так
Pascal
1
2
3
4
5
6
7
8
for i:=n downto 2 do  //с последней строки
 begin
  s:=0;
  for j:=1 to n do//считаем сумму строки выше
  s:=s+xx[i-1,j];
  for j:=1 to n do
  if xx[i,j]<0 then xx[i,j]:=abs(s);//отрицательные значения меняем на модуль суммы
 end;
0
0 / 0 / 0
Регистрация: 14.09.2019
Сообщений: 19
21.12.2019, 14:07  [ТС]
допустим что у мея матрица такая:
2 2 2
2 3 -3
4 -5 5
я должен заменить отрицательный элемент абсолютной величиной суммы предыдущих в этой же строке.
Должно получиться так:
2 2 2
2 3 5
4 4 5
или типа того.
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
21.12.2019, 14:45
Лучший ответ Сообщение было отмечено tvrshStalinini как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
for i:=1 to n do
 begin
  for j:=n downto 1 do
   begin
    s:=0;
    for k:=1 to j-1 do
    s:=s+xx[i,k];
    if xx[i,j]<0 then xx[i,j]:=abs(s);
   end;
 end;
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.12.2019, 14:45
Помогаю со студенческими работами здесь

Считать матрицу из текстового файла, сформировать из нее вектор, отсортировать и изменить его по условиям
Уважаемые участники форума. Напишите, пожалуйста, программу.pas. Считать матрицу из текстового файла. Из ее элементов,...

Если ниже главное диагонали матрицы А нет ни одного отрицательного элемента, изменить матрицу А
Если ниже главное диагонали матрицы А нет ни одного отрицательного элемента, изменить матрицу А, умножив каждый её элемент на находящийся с...

Изменить матрицу, увеличив каждый элемент, которой меньше элемента главной диагонали, находящегося с ним в одной строке
Дан массив C1,C2,...,Cn. Изменить матрицу, увеличив каждый элемент, которой меньше элемента главной диагонали, находящегося с ним в одной...

Матрицу 9х8 преобразовать в матрицу 8х7, вычеркнув строку и столбец
Матрицу 9х8 преобразовать в матрицу 8х7 , вычеркнув строку и столбец, на пересечении которых расположен наименьший элемент матрицы A. ...

Преобразовать исходную матрицу и сформировать из неё новую матрицу
Помогите сделать эти задания, пожалуйста а) Вычесть из А единичную матрицу б) сформировать диагональную матрицу С из элементов,...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru