Fibonacci Serisi Bulma Programı

Bu dersimizde mantık yönünden zorlanılabilinir bir program yapalım.

Bu dersimizde mantık yönünden zorlanılabilinir bir program yapalım.


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim f(1000) As Double

        Dim i As Double

        ListBox1.Items.Clear()







        f(0) = 0

        f(1) = 1



        ListBox1.Items.Add(Convert.ToString(f(0)))



        ListBox1.Items.Add(Convert.ToString(f(1)))



        For i = 2 To Convert.ToDouble(TextBox1.Text)



            f(i) = f(i - 1) + f(i - 2)



            ListBox1.Items.Add(Convert.ToString(f(i)))

        Next





    End Sub

End Class

  • Etiketler;
Burak Kızıltaş
Bilgisayar Mühendis Adayı
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Hic bir aciklama yok.
yahu hangi nesneler var onlarıda yazsana bu tam olarak ne ıse yarar fıbonacı dedıgın bır matematıkcı cıktı bu necı ne ıs yapar nasıl ıs arkadasım bunlar boyler yaw
özür dilerim 1 ader text box 1 adet list box 1 adet de buton bulunmaktadır... bu programda mesela textboxa 10 yazdığın başlayarak 0 dan başlayarak kendinden önceki 10 sayıyı toplayıp listboxa yazar.. bu hatam için özür dilerim
hadi bilen biliyor da fibonacciden bahsetmeden bu programı yapmak sanki biraz laf olsun torba dolsun havası oluşturmuş

Yukarı Git