1. sayfa
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
1-)dizinin elemanlarının ortalamalarını bulup gönderecek fonksiyon
2-)dizi elemanlarının standart sapmasını bulup gönderen ayrı bir fonksiyon
bunları yapamıyorum function olarak yardım eder misiniz