Program deret fibbonacci dengan Pascal

Posted on Updated on


pada artikel sebelumnya saya pernah membahas tentang program untuk menampilkan deret fibbonacci dengan menggunakan bahasa Python,, nah pada artikel kali ini saya kembali membuat program untuk menampilkan deret fibbonacci dengan menggunakan pascal. langsung aja kita liat listingnya:

uses crt;

var

x,y,z:integer;

fibo:array[1..100]of integer;

begin

clrscr;

write(‘masukan banyak deret: ‘);

readln(x);

clrscr;

writeln(‘deret fibonacci: ‘);

for y:=1 to x do

begin

if y<3 then

begin

fibo[y]:=1;

end

else

begin

fibo[y]:=fibo[y-1]+fibo[y-2];

end;

write(fibo[y],’  ‘);

end;

readln();

end.

output :

untuk perbandingan, anda dapat membandingkan program yang saya buat dengan pascal ini dengan program yang saya buat dengan menggunakan Python..silakan klik disini



Web development jakarta

semoga bermanfaat,terimakasih^_^

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s