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

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

04.11.2013, 17:29. Показов 2372. Ответов 3
Метки нет (Все метки)

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

Помогите пожалуйста...
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2013, 17:29
Ответы с готовыми решениями:

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

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

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

Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее
Дана действительная квадратная матрица D(4,4). Заменить нулями все ее элементы, расположенные на...

3
3217 / 966 / 223
Регистрация: 29.05.2010
Сообщений: 2,085
04.11.2013, 17:59 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Судя по всему своих наработок нет....
Ну вот пример, может подойдет
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
1
4377 / 661 / 36
Регистрация: 17.01.2010
Сообщений: 2,134
04.11.2013, 22:42 3
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

У меня машина сегодня была в ремонте. В поле не выехал. Вот и было время думать.
2
3217 / 966 / 223
Регистрация: 29.05.2010
Сообщений: 2,085
05.11.2013, 17:59 4
to Igor_Tr, может и не мой день, но в соответствии с условиями:
Цитата Сообщение от Daniel_8101 Посмотреть сообщение
Дана действительная квадратная матрица порядка 6. заменить нулями все её элементы, расположенные на главной диагонали и выше нее.
Заметьте не создать, а дана... Немного отставил на доработку ТС...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.11.2013, 17:59
Помогаю со студенческими работами здесь

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

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

Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной диагонали и выше неё
Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru