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

@Mulder Fox · Регистрация: 10.10.2012

Снова обращаюсь к вам Великие программисты, задача очень похожая на которую я до этого писал программу в предыдущем вопросе в темах VBA, но как я понял, та программа не совсем верна, и хотелось бы разобраться с этой задачей:
Определить на сколько сумма элементов матрицы А размера m x n, расположенных выше главной диагонали, отличается от суммы элементов, расположенных ниже главной диагонали. Главная диагональ матрицы содержит элементы с одинаковыми значениями индексов. Аналогично нужна блок-схема((

toiai · 15.11.2013, 23:02

Попробуй так:

Visual Basic

Sub pr1()
    Dim i&, j&, a(), SumUp As Double, SumDown As Double
    Cells.Clear
    i = 10: j = 10 'ðàçìåðíîñòü ìàòðèöû
    With [a1].Resize(i, j)
        .Value = "=RANDBETWEEN(150,350)":  .Value = .Value
        a = .Value
    End With
    For i = 1 To UBound(a, 1)
        For j = 1 To UBound(a, 2)
            Select Case j
                Case Is < i
                    SumDown = SumDown + a(i, j)
                Case Is > i
                    SumUp = SumUp + a(i, j)
            End Select
        Next
    Next
    MsgBox "Ñóììà âûøå ãëàíîé äèàãîíàëè " & IIf(SumUp > SumDown, "áîëüøå", "ìåíüøå") & " íà " & SumUp - SumDown
End Sub

Ну а блок-схему уж сам...

@Mulder Fox 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 44
		1
	Сравнение сумм элементов матрицы выше и ниже главной диагонали 15.11.2013, 20:56. Показов 1356. Ответов 1 Метки нет (Все метки) Снова обращаюсь к вам Великие программисты, задача очень похожая на которую я до этого писал программу в предыдущем вопросе в темах VBA, но как я понял, та программа не совсем верна, и хотелось бы разобраться с этой задачей: Определить на сколько сумма элементов матрицы А размера m x n, расположенных выше главной диагонали, отличается от суммы элементов, расположенных ниже главной диагонали. Главная диагональ матрицы содержит элементы с одинаковыми значениями индексов. Аналогично нужна блок-схема(( 0

Опции темы

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

Решение