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
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
By Gianna
By Gianna
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
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
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.