Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 20.11.2020
Сообщений: 22

Суммирование элементов нижней треугольной матрицы с симметричными элементами, расположенными выше главной диагонали

14.03.2021, 02:43. Показов 475. Ответов 0
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Здравствуйте, подскажите алгоритм ко второй части задания, пожалуйста.

Квадратную матрицу M размера n × n (3 ≤ n ≤ 10000) заполнить случайными вещественными числами. Преобразовать матрицу М к нижней треугольной матрице путем суммирования элементов нижней треугольной матрицы с симметричными элементами, расположенными выше главной диагонали.
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

program matrix1;
var
  M: array [1..100,1..100] of real;
  i,j,n: integer;
  begin
    writeln('Введите размер квадратной матрицы M: ');
    read(n);
    writeln('Исходная матрица: ');
    for i:=1 to n do
      begin
        for j:=1 to n do
          begin
            M[i,j]:=random(10.0);
            write(M[i,j]:0:2, '  ');
          end;
          writeln;
      end;
      writeln;
    for i:=1 to n-1 do
      begin
        for j:=1 to n do
          if j<=i then write(' ':3)
          else write(M[i,j]:0:2,' ':3);
          writeln;
       end;
 
    for i:=1 to n do
      begin
        for j:=1 to n-1 do
          if j>=i then write(' ':3)
          else write(M[i,j]:0:2,' ':3);
          writeln;
       end;
  end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 14.03.2021, 02:43
Ответы с готовыми решениями:

Поменять местами максимальный элемент главной диагонали и минимальный элемент нижней треугольной матрицы
- поменять местами максимальный элемент главной диагонали и минимальный элемент нижней треугольной матрицы; Вывести на экран монитора...

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

Если наибольший элемент матрицы А лежит выше главной диагонали, найти сумму элементов матрицы, лежащих выше главной диагонали. Иначе найти сумму э
Ребят помогите Добавлено через 1 минуту Продолжение задачи: Иначе найти сумму элементов, лежащих ниже и на главной диагонали

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 14.03.2021, 02:43
Помогаю со студенческими работами здесь

Найти количество нулевых элементов матрицы, стоящих: выше главной диагонали; ниже главной диагонали
Дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих: выше главной диагонали; ниже главной...

Найти количество нулевых элементов матрицы, стоящих: выше главной диагонали; ниже главной диагонали
Дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих: выше главной диагонали; ниже главной...

Удалить из матрицы строки с нулевыми элементами выше главной диагонали
Уменьшить размер матрицы A, удалив из неё строки с нулевыми элементами выше главной диагонали. Я написал такой код: begin ...

Дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих: выше главной диагонали; ниже главной диагонали; выше
люди помогите плиз составить программу:Дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих:...

Отсортировать диагонали матрицы,расположенные выше главной, по убыванию элементов, а диагонали матрицы, расположенные ниже главной, по возрастанию
дана матрица размерностью nxn, содержащая целые числа. Отсортировать диагонали матрицы,расположенные выше главной, по убыванию элементов, а...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
 10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru