Ввести массив А(N) Найти среднее геометрическое значение - VB
Формулировка задачи:
1. Ввести массив А(N). Найти среднее геометрическое значение массива. Минимальный элемент массива увеличить на среднее геометрическое. Вывести преобразованный массив.
предусмотреть вывод на экран монитора исходного и полученных массивов с соответствующими заголовками.
Решение задачи: «Ввести массив А(N) Найти среднее геометрическое значение»
textual
Листинг программы
Option Explicit Dim N%, i%, j%, SG!, P!, min! Private Sub cmdD_Click() Randomize Timer N = Val(txtN.Text) ReDim a(N) As Single ReDim b(N) As Single For i = 1 To N a(i) = 80 * Rnd b(i) = a(i) Next P = 1 For i = 1 To N P = P * a(i) Next SG = P ^ (1 / N) min = a(1) For i = 1 To N If min > a(i) Then min = a(i): j = i Next b(j) = a(j) + SG Print "SG ="; SG Print " A()"; Tab(12); "B()" Print For i = 1 To N Print Format(a(i), " 00.000"); Format(b(i), " 0.00000") Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д