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

@Daniel_8101 · Регистрация: 31.10.2013

Author24 — интернет-сервис помощи студентам

Дана действительная квадратная матрица порядка 6. заменить нулями все её элементы, расположенные на главной диагонали и выше нее.

Помогите пожалуйста...

toiai · 04.11.2013, 17:59

Судя по всему своих наработок нет....
Ну вот пример, может подойдет

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub matriza1()
    Dim n As Integer, a() As Integer
    Cells.Clear
    n = InputBox("Введите кол-во строк матрицы N")
    ReDim a(1 To n, 1 To n)
    Randomize
    ' заполнить массив
    For i = LBound(a, 1) To UBound(a, 1)
        For j = LBound(a, 2) To UBound(a, 2)
            a(i, j) = Int(Rnd * 100)
        Next
    Next
    For i = LBound(a, 1) To UBound(a, 1)
        For j = LBound(a, 2) To UBound(a, 2)
            If j < i Then a(j, i) = 0 ' очистить выше главной диагонали
        Next
    Next
 
    [A1].Resize(UBound(a, 1), UBound(a, 1)) = a
End Sub

@Igor_Tr · 04.11.2013, 22:42

to toiai. Или я что-то не понял, или сегодня "не Ваш день". Что-то случилось?
Так не будет проще?:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub matriza1()
    Dim n As Integer, a() As Integer, i&, j&
    Cells.Clear
    n = InputBox("Введите кол-во строк матрицы N")
    ReDim a(1 To n, 1 To n)
    Randomize
    ' заполнить массив
    For i = LBound(a, 1) To UBound(a, 1)
        For j = LBound(a, 2) To UBound(a, 2)
         a(i, j) = IIf(j > i, 0, Int(Rnd * 100))
        Next
    Next
    [A1].Resize(UBound(a, 1), UBound(a, 1)) = a
End Sub

У меня машина сегодня была в ремонте. В поле не выехал. Вот и было время думать.

toiai · 05.11.2013, 17:59

to Igor_Tr, может и не мой день, но в соответствии с условиями:

Сообщение от Daniel_8101

Дана действительная квадратная матрица порядка 6. заменить нулями все её элементы, расположенные на главной диагонали и выше нее.

Заметьте не создать, а дана... Немного отставил на доработку ТС...

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

@Daniel_8101 0 / 0 / 0 Регистрация: 31.10.2013 Сообщений: 22

	Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее 04.11.2013, 17:29. Показов 2630. Ответов 3 Метки нет (Все метки) Дана действительная квадратная матрица порядка 6. заменить нулями все её элементы, расположенные на главной диагонали и выше нее. Помогите пожалуйста... 0

Опции темы

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

Решение