Chào mừng quý vị đến với website của Phạm Văn Phúc - Tuy Hòa- Phú Yên
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành
viên, vì vậy chưa thể tải được các tài liệu của
Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
fibonaxi
- 0 / 0
-
Nguồn:
Người gửi: Phạm Văn Phúc (trang riêng)
Ngày gửi: 06h:32' 06-02-2015
Dung lượng: 21.5 KB
Số lượt tải: 29
Người gửi: Phạm Văn Phúc (trang riêng)
Ngày gửi: 06h:32' 06-02-2015
Dung lượng: 21.5 KB
Số lượt tải: 29
Số lượt thích:
0 người
Giải bài toán FIBONACI
uses crt;
var a:array [1..100] of integer;
n,i,m,d,s:integer;
procedure fibonaci;
begin
if n=1 then a[1]:=1
else begin
i:=2;s:=1;a[1]:=1;
repeat
a[i]:=s;
i:=i+1;
s:=a[i-1]+a[i-2];
until i>n;
end;
write(` Day so fibonaci la:`);
for i:=1 to n do
write(` `,a[i]);
writeln;
end;
begin
clrscr;
write(` Nhap so de tinh day fibonaci:`);readln(n);
write(` Nhap so de kiem tra xem co trong day fibonaci khong:`);readln(m);
fibonaci;
d:=0;
for i:=1 to n do
if a[i]=m then d:=d+1;
if d=1 then writeln(` So de kiem tra co mat trong day fibonaci`)
else writeln(` So kiem tra khong co mat trong day fibonaci`);
readln;
end.
uses crt;
var a:array [1..100] of integer;
n,i,m,d,s:integer;
procedure fibonaci;
begin
if n=1 then a[1]:=1
else begin
i:=2;s:=1;a[1]:=1;
repeat
a[i]:=s;
i:=i+1;
s:=a[i-1]+a[i-2];
until i>n;
end;
write(` Day so fibonaci la:`);
for i:=1 to n do
write(` `,a[i]);
writeln;
end;
begin
clrscr;
write(` Nhap so de tinh day fibonaci:`);readln(n);
write(` Nhap so de kiem tra xem co trong day fibonaci khong:`);readln(m);
fibonaci;
d:=0;
for i:=1 to n do
if a[i]=m then d:=d+1;
if d=1 then writeln(` So de kiem tra co mat trong day fibonaci`)
else writeln(` So kiem tra khong co mat trong day fibonaci`);
readln;
end.