Viết chương trình in ra màn hình dãy số 1,1,2,3,5,8,13,21… Các bạn cho mình xin ý tưởng nha !

Đây là dãy số Fibonacci, trong pascal nó công thức:

Cho ban đầu

F1=1;  F2=1;

Begin

       write(f1,’ ‘);

       Fn:=F1+F2;

       F1:=F2;

       F2:=Fn;

end;

Chương trình:

program fobo;

uses crt;

var n,f1,f2,fn:integer;

begin

       clrscr;

       write(‘Nhap n: ‘);  readln(n);

       f1:=1;  f2:=1;  

       while f2<=n do

              begin

                     write(f1,’ ‘);

                     Fn:=F1+F2;

                     F1:=F2;

                     F2:=Fn;

              end;

       write(f1);

       readln;

end.