Turbo pascal : Menampilkan Deret N Fibonacci

hyy teman , sebelumnya saya pernah memposting tentang bilangan faktorial, nahh pada artikel kali ini saya akan membagikan tentang bilangan juga di turbo pascal yaitu bilangan fibonacci, sebenarnya ini adalah artikel yang ketinggalan saya update ^_^ ,keburu kehapus tapi tidak apalah. mumpung belum jauh saya mengupdate. mari berbagi .

berikut langsung saja . ini adalah contoh coddingnya .anda bisa mengcopynya (di sini saya memakai fungsi) PEMAHAN tentang fungsi bisa kalian lihat di artikel sebelumnya

program fibonacci1;

uses crt;

var

x,i:integer;

function fib (n:integer):integer;

begin

   if(n=1) then

   fib:=0

   else

   if (n=2) then

   fib:=1

   else

   fib:=fib(n-1)+fib(n-2);

end;

begin

   clrscr;

   writeln('deret fibonacci dengan fungsi rekursif');

   write('masukkan banyak deret :  ');

   readln(x);

   writeln;

   for i:=1 to x do

   write(fib(i), ' ');

   readln;

   end.

sihlakan Anda Run / tekan CTRL+F9 . Setelah itu masukkan Angka yang anda inginkan"pada contoh kasus disini ^_^" saya memasukkan/mengetikkan angka '5', Maka Penampakannya akan menjadi Seperti Berikut ini :

Berdasarkan buku The Art of Computer Programming karya Donald E. Knuth, barisan ini pertama kali dijelaskan oleh matematikawan India, Gopala dan Hemachandra pada tahun 1150, ketika menyelidiki berbagai kemungkinan untuk memasukkan barang-barang ke dalam kantong. Di dunia barat, barisan ini pertama kali dipelajari oleh Leonardo da Pisa, yang juga dikenal sebagai Fibonacci (sekitar 1200), ketika membahas pertumbuhan ideal dari populasi kelinci.

Mudah bukan mempelajari pascal. yang penting anda jangan asal copas tapi pahami juga deklarasinya dan fungsi-fungsi pada setiap perintah di bahasa pascal, mungkin bagi sebagian orang lebih susah praktik dari pada membaca tapi tidak demikian jika anda membaca dan langsung mempraktikkannya mungkin akan jauh lebih mudah dan dimengerti, saya rasa tidak ada yang jauh lebih susah dari pada malas belajar. apa yang akan dipelajari itu yang akan kita dapatkan.

Demikian posting kali ini, semoga bermanfaat ^_^