TUGAS PRAKTIKUM
ALGORITMA DAN PEMROGRAMAN II
"REKURSIF"

Nama     : Muhammad Denny Ersyadi Rahman
NIM     : J1F114082                                              .
KEMENTERIAN RISET TEKNOLOGI  DAN PENDIDIKAN TINGGI
UNIVERSITAS LAMBUNG MANGKURAT
FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
PROGRAM STUDI S1 ILMU KOMPUTER
BANJARBARU
2015

Program Bilangan Fibonacci


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.