Deret Fibonacci

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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: