Матрица, не могу разобраться с главной дагональю - VB
Формулировка задачи:
Вычислить среднее геометрическое элементов матрицы R, размер CxC, расположенной на главной диагонали
Решение задачи: «Матрица, не могу разобраться с главной дагональю»
textual
Листинг программы
R = 1 For i = 1 To C If A(i, i) > 0 Then R = R * A(i, i) Else Print "Среднее геометрическое не определено" Goto 1000 End If Next R = R ^ (1/C) Print R 1000
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д