Berikut code program untuk menampilkan deret fibonaci dengan menggunakan bahasa Pascal.
program fibonaci;
uses wincrt;
var n,i:integer;
fibo:array[1..50]of longint;
procedure fibon;
begin
write('berapa jumlah suku fibonaci ? ');readln(n);
writeln;
writeln('deret fibonaci : ');
begin
fibo[1]:=0;
fibo[2]:=1;
for i:=3 to n do
fibo[i]:=fibo[i-1]+fibo[i-2];
for i:=1 to n do
write(fibo[i],' ');
end;
end;
begin
writeln;
fibon;
readln;
donewincrt
end.
Dan hasil output nya(file.exe) sudah ditunjukan pada gambar diatas.
Selamat mencoba.
