Membuat Deret Fibbonaci dengan Pascal

Hi sobat APC1526 :)
Kali ini saya akan berbagi tentang program pascal. Saat ini yang akan saya bahas yaitu tentang deret fibbonaci. anda pasti tau apa itu deret fibbonaci. dengan menggunakan pascal, kita juga dapat membuat deretan fibbonaci dengan menggunakan function.

Langkah-langkahnya yaitu :

1. Anda boleh membuat program utamanya dahulu atau program fungsinya dahulu. Untuk postingan ini saya akan memulai dari program fungsi.
Kita buat program fungsinya terlebih dahulu. Bilangan fibbonaci ke n daoat di cari dengan ((bilangan ke n-1) + (bilangan ke n-2))

"Function Fibbonaci(x : integer) : integer;
Begin
     If x = 1 then Fibbonaci := 1
     Else if x = 2 then Fibbonaci := 1
     Else Fibbonaci := Fibbonaci(x - 1) + Fibbonaci(x - 2);
End; "

itulah fungsi fibbonacinya. Jika bilangan tersebut ke 1 maka hasilnya akan 1.
Jika bilangan tersebut ke 2 maka hasilnya akan 1 juga.
Tetapi jika bilangan ke 3 maka akan menjadi
((bilangan ke 2) + (bilangan ke 1)) = 2

2. Maka Selanjutnya kita buatlah program utamanya lagi.

"Var
n,i : integer;
Begin
       Readln(n);
       For i := 1 to n do Fibbonaci(i);
       For i := 1 to n do write(Fibbonaci(i),' ');
       Readln;
End."

Begitulah bentuk program fungsi pascal untuk membuat deretan fibbonaci

Untuk lengkapnya begini lah pascalnya :

Function Fibbonaci(x : integer) : integer;
Begin
     If x = 1 then Fibbonaci := 1
     Else if x = 2 then Fibbonaci := 1
     Else Fibbonaci := Fibbonaci(x - 1) + Fibbonaci(x - 2);
End;

Var
n,i : integer;
Begin
       Readln(n);
       For i := 1 to n do Fibbonaci(i);
       For i := 1 to n do write(Fibbonaci(i),' ');
       Readln;
End.

Hasilnya nanti akan seperti ini

Categories: Education, Komputer