Program Mencari Deret Fibonanci Ke - N dengan pascal

Deret fibonanci adlah deret angaka yang angaka selanjutnya adalah jumlah dari angka sebelumnya dengan angka sebelumnya lagi. Deret fibonanci : 1,1,2,3,5,8,13,dst.

program ini dibuat bukan untuk menampilkan deret fibonanci melainkan untuk mecari fibonanci ke - n itu adlah berapa sehingga program ini tidak menggunakan perulangan atau looping melainkan mengunakan
funngsion. langsung saja lihat scriptnya di bawah :

Program Fibo_ke_n; uses crt; function fibo(n : integer) : real; begin if n < 2 then fibo : = 1 else fibo := fibo(n-2) + fibo(n -2); end; var x : integer begin clrscr; write('Fbonanci ke = '); readln(x); write('Fibonaci ke - ',x,',=,',fibo(x)); readln; readln; end.