Задание с матрицей - VB

Формулировка задачи:

Дана матрица: 12 13 14 -22 10 11 21 -17 15 18 16 -20 Переставить строки в порядке возрастания произведений элемента строк. На экран вывести преобразованную матрицу и рассчитанные произведения. Помогите с задачей пожалуйста.

Решение задачи: «Задание с матрицей»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim a(1 To 4, 1 To 3) As Single, temp, i, j
a(1, 1) = 12
a(1, 2) = 13
a(1, 3) = 14
a(2, 1) = -22
a(2, 2) = 10
a(2, 3) = 11
a(3, 1) = 21
a(3, 2) = -17
a(3, 3) = 15
a(4, 1) = 18
a(4, 2) = 16
a(4, 3) = -20
p = p * a(1, 1) * a(1, 2) * a(1, 3)
For n = 1 To 4
For i = 1 To 4 - n
p = 1
p1 = 1
For j = 1 To 3
p = p * a(i, j)
p1 = p1 * a(i + 1, j)
Next j
If p > p1 Then
For l = 1 To 3
temp = a(i, l)
a(i, l) = a(i + 1, l)
a(i + 1, l) = temp
Next l
End If
Next i
Next n
answer = ""
For i = 1 To 4
p = 1
For j = 1 To 3
answer = answer & a(i, j) & "  "
p = p * a(i, j)
Next j
answer = answer & "  P: " & p & Chr(13)
Next i
MsgBox answer
End Sub
                        

Оцени полезность:

11 голосов , оценка 4.364 из 5

Похожие ответы