Yooo berikutnya ada Program Deret Fibonanci,Sebelumnya apa itu deret Fibonanci ? deret fibonanci itu deret dimana deretnya ditambah dengan angka sebelumnya contoh 1 2 3 5 8 dst .. bwat yang mau paham,saya peringatkan jangan langsung dicopi paste.. lebih baik dicoding dulu atau diketik dahulu programnya supaya lebih paham , langsung saja :
program fibbonanci_a_ke_b;
uses wincrt;
var i,a,b:byte;
const Nama='Programer : Argo Rudi Prasetyo ';
const jurusan='Jurusan : Teknik Informatika ';
const garis='==================================================================';
function proses (x:byte):integer;
begin
if(x=1) or (x=2) then
proses:=1
else
proses:=proses(x-2)+proses(x-1);
end;
begin
writeln(garis);writeln(nama);writeln(jurusan);writeln(garis);
writeln(' <--Wellcome in My Program-->');
writeln('<----Mencetak deret fibbonanci ke a sampai ke b---->');
writeln;
write('Masukkan nilai a = ');readln(a);
write('Masukkan nilai b = ');readln(b);
writeln;
writeln(garis);
writeln('Inilah deret ',a,' sampai ',b,' fibbonanci yang anda inputkan :');
writeln;
for i:=a to b do
write(proses(i):5);
writeln;writeln;
writeln('<--Wasalammualaikum Warohmatulohi Wabarokatuh-->');
writeln(garis);
end.
No comments:
Post a Comment
Tinggalkan Pesan :