Найти максимальный по величине элемент в каждом столбце матрицы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д