Deret Fibonacci

3 Juni 2009

Berikut ini adalah bentuk dari deret fibonacci
1,3,5,8,13,21,..,N

Misalkan suku ke-1 adalah A, suku ke-2 adalah B

Maka untuk mendapatkan suku ke-3 adalah suku ke-2 + suku ke-1

untuk mendapatkan suku ke-4 adalah suku ke-3 + suku ke-2

untuk mendapatkan suku ke-n adalah suku ke-n-1 + suku ke-n-2

Algoritma
0. Mulai
1. Tentukan suku ke-1 dan ke-2, A=1, B=3
3. Banyak fibonacci, mis : N
4. Bila N=1 cetak A
5. Bila N>=2 cetak A,B
Ulangi dari 3 s.d N
C = A + B
A=B
B=C
cetak C
6. Selesai

Private Sub Form_Activate()
  Dim A,B,C,N As Byte
  A=1 : B=1
  N=MsgBox("Fibonacci Hingga Ke : ")
  IF (N=1) Then
    Print A
  Else
    Print A,B;
    For I=3 To N Step 1
      C = A + B
      Print C
      A=B 'Beri nilai B ke A
      B=C 'Beri nilai C ke B
    Next I
  EndIF
End Sub

Ikuti

Get every new post delivered to your Inbox.