Tin học [Tin học 8] Viết chương trình

[kool_boy_98]

[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.

Giúp mình bài này:

Dãy số Fibonaci định nghĩa như sau: Fn=F(n-1)+F(n-2). Em hãy viết chương trình nhập vào 1 số n và đưa ra n số Fibonaci đầu tiên

Thks nhiều vô cùng!

P/s: Mod ơi, cho em nhờ việc này: Để cho bài này em xác nhân đúng ạ! Cảm ơn!

 

[kool_boy_98]

f2=F1=1

Chúng ta dùng mảng và vòng while thôi

i:=3;
while i<=n do 
   begin 
      f[i]:=f[i-1]+f[i-2]; 
      i:=i+1;
   end;

Chỉ đơn giản thế này thôi ạ?

Thks anh nhiều ạ!!!!

 

[quanghero100]

uses crt;
var n,a,b,c,d:longint;
 begin
    clrscr;
     write('n='); readln(n);
      a:=1; b:=1; d:=3;
      if n=1 then writeln(1)
  else if n=2 then writeln(1,' ',1)
  else
     begin
        write(a,' ',b,' ');
        repeat
            c:=a+b;
            a:=b;
            b:=c;
            inc(d);
            write(c,' ');
        until d>n;
     end;
  readln;
 end.

Bài này có thể làm đệ quy tuy nhiên đệ quy sẽ không tối ưu bằng cách thông thường như thế này, khi đệ quy sẽ lặp lại rất nhiều bước