BÀI TẬP 30: DÃY FIBONACI

Dãy Fibonaci theo công thức: F₁ = F₂ = 1; F_n = F_n-1 + F_n-2

Viết chương trình Pascal nhập số nguyên N. Thực hiện các yêu cầu sau:

+ Xuất dãy số Fibonaci ra màn hình.

+ Xuất dãy Fibonaci theo thứ tự ngược lại.

+ Nhập số k từ bàn phím và cho biết số thứ k trong dãy Fibonaci là số mấy?

CODE THAM KHẢO:

program Fibonaci;

uses crt;

var f:array[1..1000] of integer;

    n,i,k:integer;

begin 

    clrscr;

    write('Nhap N = ');readln(n);

    f[1]:=1;f[2]:=f[1];

    for i:=3 to n do f[i]:=f[i-2]+f[i-1];

    write('Day Fibonaci: ');

    for i:=1 to n do write(f[i],' ');writeln;

    write('Day Fibonaci nguoc: ');

    for i:=n downto 1 do write(f[i],' ');writeln;

    write('Nhap K = ');readln(k);

    if k>n then for i:=n+1 to k do f[i]:=f[i-2]+f[i-1];

    write('So thu ',k,' trong day Fibonaci la: ',f[k]);

    readln;

end.