Dãy số FIBONACCI là một dãy số có dạng: 1,1,2,3,5,8,13,21,34,…
Số hạng thứ nhất và thứ hai của dãy bằng 1. Giá trị các số hạng từ 3 trở đi được tinh bằng tổng 2 số liền trước nó.
Lập chương trình tìm các số FIBONACCI trong khoảng m,n nhập từ bàn phím.
uses crt;
var n,m,i:integer;
a:array[1..500] of integer;
BEGIN
clrscr;
write(‘Nhap M:’); readln(m);
write(‘Nhap N:’); readln(n);
a[1]:=1; a[2]:=2; i:=2;
while a[i]<n do
begin
inc(i);
a[i]:=a[i-1]+a[i-2];
end;
write(‘Cac so fibonacci trong khoang tu ‘,m,’ den ‘,n,’ la:’);
while a[i]>=m do
begin
write(a[i],’ ‘);
dec(i);
end;
readln
END.
Chúc bạn học tốt!
program fibonacci;
uses crt;
var m,n,f1,f2,fn:integer;
begin
clrscr;
write(‘Nhap m: ‘); readln(m);
write(‘Nhap n: ‘); readln(n);
f1:=1; f2:=1;
while f2<n do
begin
fn:=f2;
f2:=f2+f1;
f1:=fn;
if (f2>=m) and (f2<=n) then write(f2,’ ‘);
end;
readln;
end.