Dãy Fibonacy có hai phần tử đầu là 1, 1. Các phần tử sau bằng tổng hai phần tử đứng ngay trước nó: 1, 1, 2, 3, 5, 8, 13, 21, … Viết chương trình in

By Aaliyah

Dãy Fibonacy có hai phần tử đầu là 1, 1. Các phần tử sau bằng tổng hai phần tử
đứng ngay trước nó: 1, 1, 2, 3, 5, 8, 13, 21, …
Viết chương trình in ra dãy Fibonacy có phần tử lớn nhất nhỏ hơn n?

0 bình luận về “Dãy Fibonacy có hai phần tử đầu là 1, 1. Các phần tử sau bằng tổng hai phần tử đứng ngay trước nó: 1, 1, 2, 3, 5, 8, 13, 21, … Viết chương trình in”

  1. Hướng dẫn:
    – Cần hai biến F_1 và F có giá trị đầu là 1, 1.
    – Thực hiện lặp cho đến khi F >= n.
    – Do yêu cầu chỉ in các số bé hơn n nên khi in cần thêm một lệnh kiểm tra.
    .Mã chương trình:
    Program Fi_Bo_na_xi;
    Var n, F_2,F_1, F: Longint;
    Begin
     Write(‘Nhap n: ‘);Readln(n);
     F_1:=1; F_2:=1;
     Write(F_2,’;’,F_1,’;’);
     Repeat
     F:=F_2+F_1; if F< n then Write(F,’;’);
     F_2:=F_1; F_1:=F;
     Until F>n;

    chúc bn hc tốt @ nguyễn thanh bảo kha @ love you

    Trả lời
  2. Đáp án:

    Hướng dẫn:
    – Cần hai biến F_1 và F có giá trị đầu là 1, 1.
    – Thực hiện lặp cho đến khi F >= n.
    – Do yêu cầu chỉ in các số bé hơn n nên khi in cần thêm một lệnh kiểm tra.
    .Mã chương trình:
    Program Fi_Bo_na_xi;
    Var n, F_2,F_1, F: Longint;
    Begin
     Write(‘Nhap n: ‘);Readln(n);
     F_1:=1; F_2:=1;
     Write(F_2,’;’,F_1,’;’);
     Repeat
     F:=F_2+F_1; if F< n then Write(F,’;’);
     F_2:=F_1; F_1:=F;
     Until F>n

     

    Chúc bạn có một ngày vui vẻ, sức khỏe dồi dào và luôn được điểm 10.

    Trả lời

Viết một bình luận