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

241 Okunma Visual Basic

"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
Sayı Ortalama Geometri Örnek Bulma Visual Basic

İlginizi Çekebilir

Visual Basic Linq Single Kullanımı

Visual Basic Hex Kodunu Stringe Çevirmek

Visual Basic String Remove Metodu

Visual Basic Stringin Son Karakterini Alma

Visual Basic Bir Dizindeki Tüm Dosyaların Silinmesi