Visual Basic Sayıların Geometrik Ortalamasını Bulma Örneği

"Visual Basic" Programlama dilinde "Sayıların Geometrik Ortalamasını Bulma Örneği" ile ilgili örnek kod aşağıda belirtilmiştir.

Module MainModule
    Sub Main()
        Dim c As Integer = 0
        Dim p As Double = 1.0
        Console.WriteLine("Sayı Adeti Girin: ")
        Dim count As Integer = Integer.Parse(Console.ReadLine())

        While c < count
            Console.WriteLine("Gerçek Sayı Girin: ")
            Dim x As Double = Double.Parse(Console.ReadLine())
            c = c + 1
            p = p * x
        End While

        Dim gm As Double = Math.Pow(p, 1.0 / count)
        Console.WriteLine("Ortalama: " & gm)
    End Sub
End Module



İlginizi Çekebilir

Visual Basic'de İşletim Sistemi Kullanıcı Adını Bulma

Visual Basic Bir Dizi Tam Sayının Ortalamasını Bulma

Visual Basic Tarihe Ay Ekleme Veya Çıkarma

Visual Basic Bir Dizindeki Tüm Dosyaların Silinmesi

Visual Basic String Trim Kullanımı