visual basic de ortalama bulma fonksiyonu

quote:

Orjinalden alıntı: saybek


Module Module1

Sub Main()

Dim rnd As Random




rnd = New Random()

Dim i, toplam As Integer, dizi, frekans As Integer()

Dim ortalama, a, standart, standartsapma As Double

dizi = New Integer(49) {}

frekans = New Integer(10) {}

For i = 0 To 10
frekans(i) = 0

Next



For i = 0 To 49

dizi(i) = 1 + rnd.Next(10)

Console.Write("{0}", dizi(i))
Next
Console.WriteLine()



For i = 0 To 49
frekans(dizi(i)) += 1
Next



For i = 1 To 10
Console.WriteLine("frekans({0})={1}", i, frekans(i))
Next



For i = 0 To 49
toplam = toplam + dizi(i)

Next
Console.WriteLine("")


ortalama = toplam / 50
Console.WriteLine("Otomatik Atanan Sayıların Ortalaması :" & ortalama)

For i = 0 To 49

standart = (standart + (dizi(i) - ortalama) * (dizi(i) - ortalama))
a = standart / 50

Next
standartsapma = Math.Sqrt(a)

Console.WriteLine("Standart Sapmasi :" & standartsapma)
End Sub

End Module




sorumun öncesi vardı onu yaptım frekans dizisi falan oluşturdum yani
ama function olması lazımmış yardım edebilir misin