Получите целочисленную квадратную матрицу того же порядка, в которой элемент равен единице

[Makavelli]

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

[vova_]

Private Sub CommandButton1_Click()
Dim i, j As Integer
Dim a(1 To 3, 1 To 3), b(1 To 3, 1 To 3) As Double
a(1, 1) = 21
a(1, 2) = 32
a(1, 3) = 53
a(2, 1) = 50
a(2, 2) = 54
a(2, 3) = 84
a(3, 1) = 65
a(3, 2) = 42
a(3, 3) = 44
For i = 1 To 3
For j = 1 To 3
If a(i, j) > a(i, i) Then b(i, j) = 1
Next j
Next i
End Sub
общая идея такова
думаю для матрицы nxn модифицируеш самостоятельно

[Казанский]

> Задача решается в ворде
... но кто же запретит нам вызвать Excel?
Результат - в окне Immediate

Option Explicit
Dim v(), n

Sub bb()
n = Val(InputBox("Введите n:"))
If n <= 0 Then Exit Sub
With CreateObject("excel.sheet").sheets(1).Cells(1, 1).Resize(n, n)
.Application.Visible = True         'только для отладки
    .Formula = "=ROUND(RAND(),3)"
    v = .Value
    .Value = v
    Debug.Print "Исходный массив"
    PrintArray
    .Offset(n + 1).formulaarray = Replace("=--(~>INDEX(~,ROW(~),ROW(~)))", "~", .Address)
    v = .Offset(n + 1).Value
    Debug.Print "Результат"
    PrintArray
    .Application.Quit
End With
End Sub

Private Sub PrintArray()
Dim i, j
For i = 1 To n
    For j = 1 To n
        Debug.Print v(i, j),
    Next
    Debug.Print
Next
End Sub

[Makavelli]

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

Private Sub CommandButton1_Click()
Dim i, j As Integer
Dim a(1 To 3, 1 To 3), b(1 To 3, 1 To 3) As Double
a(1, 1) = 21
a(1, 2) = 32
a(1, 3) = 53
a(2, 1) = 50
a(2, 2) = 54
a(2, 3) = 84
a(3, 1) = 65
a(3, 2) = 42
a(3, 3) = 44
For i = 1 To 3
For j = 1 To 3
If a(i, j) > a(i, i) Then b(i, j) = 1
Next j
Next i
End Sub
общая идея такова
думаю для матрицы nxn модифицируеш самостоятельно

Если честно не получается , нужно ещё прописать что-то для ListBox'a, у меня не получается...

[Makavelli]

vova_, Как связаться с вами, нужна помощь в решении, при благоприятном исходе не обижу.

[vova_]

а зачем именно через ListBox?

[Makavelli]

А как по другому вывести решение?

[vova_]

я всегда матрицы вивожу в TextBox в виде:
TextBox1.Text = TextBox1.Text +STR$(a(1,1))+Chr(9)+STR$(a(1,2))+C hr(13)+STR$(a(2,1))+Chr(9)+STR$(a(2 ,2))
после вывода в таком формате его можно в Excel переносить через Ctrl+C Ctrl+V

[Makavelli]

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

[vova_]

как нужно вводить исходную матрицу
сразу в текст прози вбиваем элементы или с клави во время роботы проги