Tin học Dãy Fibonacci

[Acquyvohon11]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Dãy Fibonacci là dãy vô hạn các số tự nhiên bắt đầu bằng hai phần tử 0 và 1, các phần tử sau đó được thiết lập theo quy tắc mỗi phần tử luôn bằng tổng 2 phần tử trước nó, dãy được định nghĩa như sau:
[tex]\dpi{150} f_{1}=f{2}=1, f{n}=f{n-1}+f{n-2}[/tex] với mọi n>hoặc=3

1. Nhập vào 1 số nguyên dương n, in ra màn hình f[n]
2. Nhập vào 1 số nguyên dương k cho biết k có phải là 1 phần tử của dãy Fibonacci không

Mọi người làm bằng sơ đồ khối giúp mk nha :>

 

[nguyen tran thanh nha]

var n,i,x,y,k:longint;
a,t:array[1..100000] of longint;
begin
writeln('nhap n:');readln(n);
a[1]:=1;a[2]:=1;
for i:=3 to n do
a:=a[i-1]+a[i-2];
writeln('fn=',a[n]);
writeln('nhap k:');readln(k); x:=1; y:=1;
while y<k do
begin
i:=y;
y:=x+y;
x:=i;
end;
if y=k then write(k,' thuoc mang')
else write(k,'khong thuoc mang');
end.

 

[Trâm Nguyễn Thị Ngọc]

var n,i,x,y,k:longint;
a,t:array[1..100000] of longint;
begin
writeln('nhap n:');readln(n);
a[1]:=1;a[2]:=1;
for i:=3 to n do
a:=a[i-1]+a[i-2];
writeln('fn=',a[n]);
writeln('nhap k:');readln(k); x:=1; y:=1;
while y<k do
begin
i:=y;
y:=x+y;
x:=i;
end;
if y=k then write(k,' thuoc mang')
else write(k,'khong thuoc mang');
end.

Sơ đồ khối bạn ơi

 

[nguyen tran thanh nha]

Sơ đồ khối bạn ơi

bị lộn tí. sơ đồ khối có phải cái này k nhỉ