Deret Bilangan (1 2 4 7 11 dst) Dengan Pascal

Setelah hampir setahun tidak menulis lagi kangen rasanya membuat karya original walaupun sederhana. Dalam tulisan ini saya akan membuat flowchart dan program pascal untuk deret bilangan. Misalnya jika diinput 20 maka hasil outputnya 1 2 4 7 11 16.

Untuk kasus seperti ini jangan berpikiran yang jauh karena hal ini cukup simple untuk diselesaikan, langsung dilihat saja flowchart dan program berikut.

uses crt;
var bil,i,x : integer;
begin
clrscr;
i := 1; x := 0;
write('Masukkan bilangan : '); readln(bil);
for i := 1 to bil do
begin
   if i <= bil then
   begin
       write(i, ' ');
       i := i + x;
       x := x + 1;
   end;
end;
readkey;
end.

Dari program diatas maka hasil outputnya  1  2  4  7  11  16