Program Pascal Deret Fibonacci

Baca Juga

Sekarang saya akan membagikan program deret fibonacci dimana deret fibonacci merupakan deret yang hasilnya adalah dari penjumlahan 2 suku sebelum suku lain. contohnya : 0 1 1 2 3 5 8 dan merupakan salah satu deret yang cukup unik karena metodenya yang unik. ok langsung aja cek script programnya.

program deretfibonacci;
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.

output program :

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 jika nilai yang diinputkan 5 maka perulangan akan menjadi seperti 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 karena pada perulangan yang pertama f =c=0 maka pada perulangan kedua d =f=0 selanjutnya nilai f=c=1 karena hasil c yang baru didapat adalah 1. ini penjelasan sederhananya silahkan pelajari rumus ini dan menlanjutkanya sampai perulangan ke-5. thanks...

Subscribe to receive free email updates: