Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Giải bài toán về dãy Fibonacci

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Giải bài toán về dãy Fibonacci   13/11/2014, 12:00

a) Nhập n. In ra n số Fibonaxi đầu tiên.
b) Nhập n. In ra các số Fibonaxi nhỏ hơn n.
c) Nhập m. Kiểm tra xem m có phải là số Fibonaxi không?
Bài giải:
uses crt;
var i,n,d,a,b,c,m:integer;
begin
clrscr;
      a:=0;
      b:=1;
      write('nhap n:');readln(n);
      writeln('Day Fibonaxi la:');
      for i:=1 to n do
      begin
           c:=a+b;
           b:=a;
           a:=c;
           write(c:5);
      end;
      writeln;
      writeln('Cac so Fibonaxi nho hon bang ',n,' :');
      a:=0;
      b:=1;
      c:=0;
      while c<=n do
      begin
           c:=a+b;
           b:=a;
           a:=c;
           if c<=n then write(c:5);
      end;
      writeln;
      write('Nhap m:');readln(m);
      a:=0;
      b:=1;
      c:=0;
      d:=0;
      while c<=m do
      begin
           c:=a+b;
           b:=a;
           a:=c;
           if c=m then inc(d);
      end;
      if d=0 then writeln(m,' ko la so Fibonaxi')
      else write(m,' la so Fibonaxi');
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
Nhọn Sky M-tp(Anh Vũ)

avatar

Posts : 11
Danh tiếng : 0
Join date : 16/11/2014
Age : 16

Bài gửiTiêu đề: Re: Giải bài toán về dãy Fibonacci   16/11/2014, 15:26

inc là gì ý nhỉ
Về Đầu Trang Go down
Xem lý lịch thành viên
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Re: Giải bài toán về dãy Fibonacci   16/11/2014, 15:30

inc(x) là tăng giá trị biến nguyên x lên một đơn vị, tức là tương đương với câu lệnh x:=x+1
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
Nhọn Sky M-tp(Anh Vũ)

avatar

Posts : 11
Danh tiếng : 0
Join date : 16/11/2014
Age : 16

Bài gửiTiêu đề: Re: Giải bài toán về dãy Fibonacci   16/11/2014, 15:50

bài kt số fibonacci ý mình có cách giải này nek
var a,b,c,n,i:integer;
kt:boolean;
begin
write('nhap so n=');readln(n);
a:=0;b:=1;c:=0;
kt:=false;
while c<=n do
begin
c:=a+b;
b:=a;
a:=c;
if c=n then kt:=true;
end;
if kt then write(n,' la so fibonacci')
else write(n,' ko la so fibonacci');
readln;
end.
xem thử đúng ko nhé
Về Đầu Trang Go down
Xem lý lịch thành viên
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Re: Giải bài toán về dãy Fibonacci   16/11/2014, 15:56

cách giải của bạn đúng, nhưng ở đây có sử dụng thêm biến kt để kiểm tra nên bài giải dài hơn và không tiết kiệm bộ nhớ
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
Nhọn Sky M-tp(Anh Vũ)

avatar

Posts : 11
Danh tiếng : 0
Join date : 16/11/2014
Age : 16

Bài gửiTiêu đề: Re: Giải bài toán về dãy Fibonacci   23/11/2014, 15:05

Thanks ad
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Giải bài toán về dãy Fibonacci   

Về Đầu Trang Go down
 
Giải bài toán về dãy Fibonacci
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Bài tập :: Các vòng lặp-
Chuyển đến