Cara Menentukan Bilangan Fibonacci dalam Algoritma

Cara Menentukan Bilangan Fibonacci dalam Algoritma

selamat malam semuanya,,,

  Dalam postingan kali ini akan saya sampaikan tentang Cara Menentukan Bilangan Fibonacci dalam Algoritma,, okey akan saya jelaskan,,

   Bilangan FIBONACCI adalah suatu deret bilangan bulat positif (integer) tak

berhingga  yang secara berurutan adalah didefinisikan sebagai berikut ini :

1   1   2   3   5   8   13   21   34   58   89  . . . dst

     Jika diamati deret bilangan FIBONACCI di atas, maka dapat dipahami bahwa

nilai bilangan FIBONACCI suku ke-n dalam deret tersebut dapat dihitung dengan

menjumlahkan dua bilangan terdekat pada urutan sebelumnya.

    Secara umum nilai bilangan FIBONACCI suku-n dapat dihitung dengan menjumlahkan nilai-nilai bilangan FIBONACCI suku-(n-1) dan ke-(n-2). 

Flowchart : 

mencari dengan tekik rekursi adalah dituliskan sebagai berikut ini :

Masukan suku bilangan FIBONACCI yang akan dicari (=n).

1. Mulai

2. Baca n

3. Proses berulang langkah-2

    Cek harga n

    IF (n=1) OR (n=2)

   Jika ya, FIBONACCI(n) = 1, lanjutkan ke langkah-4

   Jika tidak, FIBONACCI(N) = FIBONACCI(n - 1) +FIBONACCI(n - 2)

4. Cetak hasil

    FIBONACCI(n)

5. Selesai

mencari dengan tekik iterasi adalah dituliskan sebagai berikut ini :

Masukkan harga suku bilangan FIBONACCI yang akan akan dicari (n).

1. Mulai

2. Tentukan harga-harga awal I, FIBONACCI, dan TERAKHIR

    I = 1

    FIBONACCI = 1

    TERAKHIR = 0

3. Cek harga n

    IF n = 1

    Jika ya, maka FIBONACCI = 1, lanjutkan ke langkah-6

4. Proses berulang langkah-4 hingga langkah-5 untuk menghitung FIBONACCI

Hitung

   BANTU = FIBONACCI

I = I + 1

5. Hitung

   FIBONACCI = FIBONACCI + TERAKHIR

   TERAKHIR = BANTU

6. Cetak Hasil

   FIBONACCI

7. Selesai

****FIBONACCI merupakan variabel untuk menyimpan harga bilangan fibonacci

yang dicari.

BANTU merupakan variabel bantuan untuk menampung hasil perhitungan

sementara.****

Naah, bagaimana jika bilangan Fibonacci ini diterapkan pada pemrograman Pascal?
Berikut adalah koding dari bahasa pemrograman Pascal :
 

uses crt;

var

n,i : integer;

a : array [0..100] of integer;

begin

clrscr;

gotoxy (25,05); write ('____________________________');

gotoxy (25,06); write ('                            ');

gotoxy (25,07); write ('  DERET BILANGAN FIBONACCI  ');

gotoxy (25,08); write ('____________________________');

gotoxy (25,12); write ('Masukkan angka pembatas :  '); readln (n);

gotoxy (25,15);
for i := 0 to n-1 do
   begin  
      if (i=0) or (i=1) then
         begin
            a [i] := 1;
            write (a [i],' ');
         end
      else
         begin
            a [i] := a [i-1] + a [i-2];
            write (a [i],' ');
         end;
    end;
readkey;
end.



Jika kita Masukkan angka pembatasnya adalah 12,  output yang dihasilkan sebagai berikut.


 

 mungkin cukup sekian dari saya,,kalau ada kesalahan mohon di koreksi,,,trimakasih telah membaca.....