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 !

0 bình luận về “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 !”

1. Đâ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.

   Bình luận

2. var fi: array[1..100] of longword;

          i, n: byte;

   Begin

        fi[1]:=1; f[2]:=1;

        Write(‘n = ‘); readln(n);

        If n<3 then write(fi[1], ‘, ‘, fi[2])

        Else for i:=3 to n do

             Begin

                 fi[i]:=fi[i-1] + fi[i-2];

                 write(fi[i], ‘, ‘);

             End;

         Readln

   End.

   Bình luận