Найти максимальный по величине элемент в каждом столбце матрицы - VB

Узнай цену своей работы

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

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

Решение задачи: «Найти максимальный по величине элемент в каждом столбце матрицы»

textual
Листинг программы
Option Base 1
Private Sub Command1_Click()
Dim X(6) As Single, Y(6) As Single, z(6, 6) As Single
Dim MaxEl(6) As Single
Dim i As Byte, j As Byte
  
Print "значения массива x"
For i = 1 To 6
    X(i) = Val(InputBox("Введите x(i)", "Массив X"))
    Print "x("; i; ")="; X(i)
Next i
Print "Значения массива Y"
For j = 1 To 6
    Y(j) = Val(InputBox("Введите y(j)", "Массив Y"))
    Print "y("; j; ")="; Y(j)
Next j
 
Print
Print "Элементы матрицы"
For i = 1 To 6
    For j = 1 To 6
        z(i, j) = (Sin(X(i)) ^ 2 - (Log(Abs(Y(j) + X(i)) ^ (1 / 3))) / (X(i) * Y(j) + X(i) * Cos(Y(j) ^ 2)))
        Print Format(z(i, j), "#.#######"),
        If i = 1 Then
            MaxEl(j) = z(i, j)
            Else
            If z(i, j) > MaxEl(j) Then
                MaxEl(j) = z(i, j)
            End If
        End If
    Next j
    Print
Next i
Print
Print "Максимальные элементы в столбцах"
For j = 1 To 6
    Print Format(MaxEl(j), "#.#######"),
Next j
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 3.8 из 5
Похожие ответы