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

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

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

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

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

toiai · 04.11.2013, 17:59

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

Visual Basic

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

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. заменить нулями все её элементы, расположенные на главной диагонали и выше нее.

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

@Daniel_8101 0 / 0 / 0 Регистрация: 31.10.2013 Сообщений: 22
		1
	Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее 04.11.2013, 17:29. Показов 2372. Ответов 3 Метки нет (Все метки) Дана действительная квадратная матрица порядка 6. заменить нулями все её элементы, расположенные на главной диагонали и выше нее. Помогите пожалуйста... 0

toiai 3217 / 966 / 223 Регистрация: 29.05.2010 Сообщений: 2,085
	05.11.2013, 17:59	4
	to Igor_Tr, может и не мой день, но в соответствии с условиями: Сообщение от Daniel_8101 Дана действительная квадратная матрица порядка 6. заменить нулями все её элементы, расположенные на главной диагонали и выше нее. Заметьте не создать, а дана... Немного отставил на доработку ТС... 0

Опции темы

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

Решение