Deret Fibonacci dengan Pascal

Posted: Maret 6, 2009 in Pascal

Apa sih deret Fibonacci? dan apa sih kegunaanya?
Deret Fibonacci adalah suatu deret matematika yang berasal dari penjumlahan dua bilangan sebelumnya,
Untuk lebih jelasnya silahkan kunjungi url http://id.answers.yahoo.com/question/index?qid=20071103230736AA1PeL0 atau http://id.wikipedia.org/wiki/Bilangan_Fibonacci

Kalau sudah mengerti apa itu deret Fibonacci dan kegunaanya, sekarang kita lanjutkan ke program yang akan kita buat untuk membuat deret tersebut. Ada beberapa referensi blog yang pernah saya lihat, seperti http://rizalp.blogspot.com/2008/11/algoritma-deret-bilprima-dan-deret.html, tapi disana tidak menggunakan array, jadi menurut saya gregetnya kurang.

Berikut ini source program untuk membuat deret Fibonacci dengan Pascal.

	program fibonacci;
	uses crt;
	var
	   n:integer;
	   i:integer;
	   deret:array[1..100] of longint;

	begin
		{deret fibonacci adalah deret yang merupakan hasil penjumlahan 2 bilangan sebelumnya}
		{7 awal deret fibonacci = 1,1,2,3,5,8,13,...}
		 clrscr;
		 write('Masukan jumlah deret :');
		 readln(n);
		 writeln;
		 for i := 0 to n-1 do
		 begin
			  if (i = 0) or (i = 1) then
				 begin
					  deret[i]:=1;
					  write(deret[i],' ');
				 end
			  else
				  begin
					   deret[i]:=deret[i-1]+deret[i-2];
					   write(deret[i], ' ');
				  end;
		 end;
		 readln;
	end.
About these ads
Komentar
  1. angga raditya mengatakan:

    tolong dong…!!! code deret fibonacci dengan bahasa java

Berikan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s