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