3 cách viết chương trình in ra dãy số Fibonacci Pascal

Bạn đang tìm hiểu về chương trình in ra dãy số Fibonacci Pascal và muốn biết về 3 cách để làm điều này. Trong bài viết này, chúng tôi sẽ giới thiệu cho bạn các cách viết chương trình khác nhau để hiển thị dãy số Fibonacci Pascal. Hãy cùng khám phá nhé!

Cách 1: In dãy số Fibonacci trong khoảng n

Đầu tiên, chúng ta sẽ tạo một chương trình để nhập một số n từ bàn phím và in ra dãy số Fibonacci trong khoảng n. Dãy số Fibonacci được định nghĩa như sau: U0 = U1 = 1 và Un+2 = Un+1 + Un (với n > 0).

Program Day_Fibo;

uses crt;

var i, n, f1, f2, f3: longint;

procedure fibo(k: longint);
begin
  f1:= 1;
  f2:= 1;
  for i:= 1 to k do
  begin
    f3:= f1 + f2;
    write(f1:3, ' ');
    f1:= f2;
    f2:= f3;
  end;
end;

begin
  clrscr;
  write('Nhập n: '); readln(n);
  fibo(n);
  readln;
end.

Ví dụ: Khi nhập n = 8, chương trình sẽ xuất ra dãy số Fibonacci trong khoảng từ 1 đến 8: 1 1 2 3 5 8 13 21.

Cách 2: In tất cả các số Fibonacci trong khoảng n

Tiếp theo, chúng ta sẽ viết một chương trình để nhập số N và hiển thị tất cả các số Fibonacci trong khoảng N.

Program Bai9;

uses crt;

var a, b, c, d, i, n: integer;

begin
  clrscr;
  write('Nhập vào N = '); readln(n);
  a:= 1;
  b:= 1;
  c:= a + b;
  write(n, ' số Fibonacci đầu tiên là: ');
  write(1:4, 1:4);
  for i:= 3 to n do
  begin
    write(c:4);
    a:= b;
    b:= c;
    c:= a + b;
  end;
  writeln;
  writeln('Đã xử lý xong');
  readln;
end.

Ví dụ: Khi nhập N = 5, chương trình sẽ xuất ra tất cả các số Fibonacci trong khoảng từ 1 đến 5: 1 1 2 3 5.

Cách 3: In số Fibonacci thứ N

Cuối cùng, chúng ta sẽ viết một chương trình để nhập số N và hiển thị số Fibonacci thứ N.

Program xuat_so_fibonanci;

uses crt;

var i, n, s, a, b: integer;

begin
  clrscr;
  write('Nhập vào N: '); readln(n);
  b:= 1;
  i:= 2;
  a:= 1;
  while i < n do
  begin
    i:= i + 1;
    if i mod 2 = 1 then
      a:= a + b
    else
      b:= b + a;
  end;
  if i mod 2 = 1 then
    write('Số Fibonacci thứ ', n, ' là: ', a)
  else
    writeln('Số Fibonacci thứ ', n, ' là: ', b);
  readln;
end.

Ví dụ: Khi nhập N = 10, chương trình sẽ hiển thị số Fibonacci thứ 10 là: 55.

Kết luận

Trong bài viết này, chúng tôi đã giới thiệu cho bạn 3 cách viết chương trình để in ra dãy số Fibonacci Pascal. Hy vọng rằng những thông tin này sẽ giúp bạn hiểu rõ hơn về chủ đề này. Nếu bạn có bất kỳ câu hỏi nào, hãy để lại comment bên dưới. Chúc bạn thành công và hãy tiếp tục học tập!