N Adet Sayının Varyansını ve Standart Standart Sapmasını Bulan Programı Vbnet Windows Console İle Kodlayınız

İstatistik konusunun temelini oluşturan varyans ve standart sapma işlemlerini neredeyse tüm ortamlarda kullanabiliriz. Bu uygulamada tüm işlemleri vbnet dili ile console uygulaması olarak yapacağız.

Imports System

Module Program
    Sub Main()
        Console.Write("Kaç adet sayı üretilecek (N): ")
        Dim input As String = Console.ReadLine()
        Dim N As Integer

        If Not Integer.TryParse(input, N) OrElse N < 2 Then
            Console.WriteLine("Lütfen 2 veya daha büyük bir tamsayı giriniz.")
            Return
        End If

        Dim numbers(N - 1) As Integer
        Dim rnd As New Random()

        Console.WriteLine(vbCrLf & "Üretilen Sayılar:")
        For i As Integer = 0 To N - 1
            numbers(i) = rnd.Next(1, 101)
            Console.Write(numbers(i) & " ")
        Next

        ' Ortalama
        Dim total As Double = numbers.Sum()
        Dim mean As Double = total / N

        ' Varyans
        Dim sumSquares As Double = 0
        For Each num In numbers
            sumSquares += (num - mean) ^ 2
        Next
        Dim variance As Double = sumSquares / (N - 1)

        ' Standart sapma
        Dim stdDev As Double = Math.Sqrt(variance)

        ' Sonuçlar
        Console.WriteLine(vbCrLf & vbCrLf & "İstatistiksel Sonuçlar:")
        Console.WriteLine("Aritmetik Ortalama: " & mean.ToString("F2"))
        Console.WriteLine("Varyans: " & variance.ToString("F2"))
        Console.WriteLine("Standart Sapma: " & stdDev.ToString("F2"))

        Console.WriteLine(vbCrLf & "Çıkmak için bir tuşa basınız...")
        Console.ReadKey()
    End Sub
End Module