Program Pascal Deret Fibonacci

Nama : Muhammad Lathif Azmii            NPM :06201740013

Program Studi :Sistem Informasi  Matakuliah :Algoritma

PASCAL IDE

Halo sist/gan Disini gue mau bantu buat yang kesulitan mencari codingan Deret Fibonacci langsung aja cekibrooooottt.....!!!! 

Program 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 const:’);

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 Deret Fibonacci

Masukkan Jumlah Deret:5

Deret Fibonacci const:0 1 1 2 3

Oke sekedar memberi jawaban buat mempermudah  tugas kuliah  kalian yang belom kelar wkwkw

jangan lupa kunjungi terus blog gue, sekian dan terimakasih