Postingan kali
ini saya akan berbagi bagaimana cara membuat program fibonacci dengan metode
rekursif pada pascal. berikut adalah contoh hasil dari program :
1.
Tampilan
awal program
2.
Memasukan
jumlah deret bilangan
3.
Hasil
akhir
Untuk melihat source codenya bisa dilihat dibawah ini.
Program Fibonacci;
uses crt;
var n,i : integer;
function fibonacci(x:integer):integer;
begin
if(x=1)
then fibonacci:=0 else
if(x=2)
then fibonacci:=1 else
fibonacci:=fibonacci(x-1)+fibonacci(x-2);
end;
begin
clrscr;
gotoxy(15,1);writeln('Program Deret Fibonacci');
writeln;
write('Masukkan Banyak Deret : ');readln(n);
writeln;
write('Hasilnya : ');
for i:=1 to n do
write(fibonacci(i),' ');
readkey;
end.
Mungkin itu saja untuk postingan kali ini, semoga
bermanfaat dan sampai jumpa pada postingan yang lainnya.