Вычислить среднее геометрическое элементов матрицы - VB
Формулировка задачи:
Вычислить среднее геометрическое элементов матрицы R, размер CxC, расположенной на главной диагонали
Решение задачи: «Вычислить среднее геометрическое элементов матрицы»
textual
Листинг программы
Option Explicit
Private Sub Form_Activate()
Dim x1 As Long, x2 As Long, x3 As Long, x4 As Long, GS As Single
x1 = 6: x2 = 7: x3 = 12: x4 = 5
GS = (x1 * x2 * x3 * x4) ^ (1 / 4)
Print " GS ="; GS 'GS сокращение: геометрическое среднее
MsgBox (" GS =" & GS)
End Sub