Viết chương trình nhập vào một số nguyên n n lớn hơn 1 rồi kiểm tra xem n có phải số Fibonacci hay không

0 bình luận về “Viết chương trình nhập vào một số nguyên n n lớn hơn 1 rồi kiểm tra xem n có phải số Fibonacci hay không”

1. program FIBONACI;

   uses crt;

   var  n,i,f1,f2:integer;

   begin

         clrscr;

      write(‘nhap so n’);readln(n);

   f1:=1;

   f2:=1;

          for i:=1 to n do

              begin

                    write(f1,”);

                                f2:=f2+f1;

                                 f1:=f2-f1;

         end;

              writeln;

             readln

   end.

              nhớ cho mình 1 tim 1 vote

   Bình luận

2. Mình làm bằng đệ quy nhé.

   Ta có: $F(n)=\begin{cases}1\Leftrightarrow n=1\\
   1\Leftrightarrow n=2\\
   F(n-1)+F(n-2)\Leftrightarrow n>2\end{cases}$

   Chương trình:

   uses crt;
   var n:longint;
   function f(n:longint):longint;
   begin
      if n<=2 then f:=1
      else f:=f(n-1)+f(n-2);
   end;
   begin
   clrscr;
      readln(n);
      writeln(f(n));
   readln
   end.

   Bình luận