Ввести массив А(N) Найти среднее геометрическое значение - VB

Формулировка задачи:

1. Ввести массив А(N). Найти среднее геометрическое значение массива. Минимальный элемент массива увеличить на среднее геометрическое. Вывести преобразованный массив. предусмотреть вывод на экран монитора исходного и полученных массивов с соответствующими заголовками.

Код к задаче: «Ввести массив А(N) Найти среднее геометрическое значение - VB»

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

15   голосов, оценка 3.733 из 5


СОХРАНИТЬ ССЫЛКУ