Program Pascal Deret Fibonacci
uses crt;
var a, b, c, d, f : integer;
begin
clrscr;
writeln(‘Program Deret Fibonacci ‘);
writeln;
write(‘Masukkan Jumlah Deret : ‘);
readln(a);
write(‘Deret Fibonacci ‘,a,’ Deret : ‘);
d := 0;
f := 1;
c := 0;
for b := 1 to a do
begin
c := d + c;
d :=f;
f :=c;
write(c);
write(‘ ‘);
end;
readln;
end.
Program Pascal Deret Fibonacci |
Bagi yang mau donwload silahkan download dari link di bawah.
Download Program Deret Fibonacci Pascal via Ziddu
Penjelasan Script : rumus utama untuk membuat deret fibonacci terletak pada c = d + c , d = f , f = c dimana nilai dari masing-masing variabel sebelumnya telah dideklarasikan yaitu : d = 0 , f = 1 , dan c = 0 selanjutnya masuk dalam perulangan kalau nilai yang diinputkan 5 maka perulangan akan menjadi ibarat ini c = d + c = 0 +0 = 0 maka deret pertama sudah didapatkan yaitu 0 lanjut lagi ke dalam scriptnya d = f = 1 dan f =c = 0. ini nilai nilai pada perulangan pertama selanjutnya dalam perulangan kedua maka masukkan nilai-nilai dari perulangan pertama ini kedalam rumus yaitu c = d+c = 1 +0 = 1 maka sudah kita dapatkan bahwa deret kedua itu 1 selanjutnya nilai dari d dan f tentu akan berubah pada perulangan kedua ini dimana d =f=0 disni d menjadi 0 alasannya pada perulangan yang pertama f =c=0 maka pada perulangan kedua d =f=0 selanjutnya nilai f=c=1 alasannya hasil c yang gres didapat ialah 1. ini klarifikasi sederhananya silahkan pelajari rumus ini dan menlanjutkanya hingga perulangan ke-5. thanks…