Вычислить среднее геометрическое элементов матрицы - 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

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


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

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

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