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.
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:

Logo WordPress.com

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

Gambar Twitter

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

Foto Facebook

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

Foto Google+

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

Connecting to %s