Dãy F là dãy Phi-bo-na-xi nếu:
F0=0, F1 = 1, Fn = Fn-1 + Fn-2 với N ≥ 2
Viết chương trình nhập từ bàn phím số nguyên dương N và đưa ra màn hình số hạng thứ N của dãy Phi-bo-na-xi. Chương trình của bạn thực hiện với giá trị lớn nhất của N là bao nhiêu?
Quảng cáo
2 câu trả lời 2435
Sử dụng 2 biến để lưu giá trị hiện tại của 2 số fibonaci. Mỗi lần sinh ra số fibonaci mới ta sẽ gán lại giá trị mới cho 2 biến này bằng đoạn code;
F1:=F0+F1;
F0:=F1-F0;
program csc;
uses crt;
var n,i:integer;
f0,f1:integer;
begin
clrscr;
write('nhap so n:');
readln(n);
f0:=0;
f1:=1;
for i:=2 to n do
begin
f1:=f0+f1;
f0:=f1-f0;
end;
write('so fibonaci thu n la :',f1);
readkey;
end.
Chương trình chạy tối đa đến N=23 với số fibonaci là 28657 . Nếu lên đến số 24 sẽ vượt quá phạm vi của biến kiểu integer.
program csc;
uses crt;
var n,i:longint;
f0,f1:longint;
begin
clrscr;
write('nhap so n:');
readln(n);
f0:=0;
f1:=1;
for i:=2 to n do
begin
f1:=f0+f1;
f0:=f1-f0;
end;
write('so fibonaci thu n la :',f1);
readkey;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86064
