Membuat deret Fibonacci menggunakan bahasa pascal

Langsung aja ya ke intinya, silahkan buka software program program pascal kamu dan langsung ketikkan atau copy/paste source code dibawah ini:

program deret_fibonacci;
uses crt;
Var i,j,a,b,c : Integer;
begin
clrscr;
a:=1;
b:=1;
For i := 1 to 5 do
begin
for j := 1 to i do
begin
c:=a+b;
write(c, ' ');
a:=b;
b:=c;
end;
writeln;
end;
readln;
end.

Setelah diketik langsung di compile dan di run ya, maka hasilnya seperti dibawah ini :



Jika ingin membuat deret Fibonacci berbentuk segitiga, berikut source codenya:

program deret_fibonacci;
uses crt;
Var i,j,a,b,c : Integer;
begin
clrscr;
a:=1;
b:=1;
For i := 1 to 5 do
begin
for j := 1 to i do
begin
c:=a+b;
write(c, ' ');
a:=b;
b:=c;
end;
writeln;
end;
readln;
end.

Setelah di compile dan di run, hasilnya sebagai berikut :


Selamat Mencoba ^_^