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;
Yorum Yaz

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

• 10 yıl önce
Hic bir aciklama yok.
• 10 yıl önce
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
• 10 yıl önce
ö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
• 6 yıl önce
hadi bilen biliyor da fibonacciden bahsetmeden bu programı yapmak sanki biraz laf olsun torba dolsun havası oluşturmuş

Yukarı Git