Şimdi Ara

visual basic de ortalama bulma fonksiyonu

Bu Konudaki Kullanıcılar:
2 Misafir - 2 Masaüstü
5 sn
6
Cevap
0
Favori
2.722
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • 50 elemanlı dizide
    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



  • yazdığın kodları buraya copy paste yap düzeltmesini yapayım bu arada standart sapma formulu neydi<.<



    < Bu mesaj bu kişi tarafından değiştirildi fuujinsan -- 15 Mart 2008; 18:27:28 >
  • 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
  • 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


    bu program nasil calisiyor ya? vb6 kullanıyorsun demi?



    < Bu mesaj bu kişi tarafından değiştirildi fuujinsan -- 15 Mart 2008; 22:29:29 >
  • yok hayır 2005 kullanıyorum
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.