Question

How to print the Fibonacci sequence in Pascal

Answer 1

program FibonacciSeries;

uses crt;

function Fibonacci(n: Integer): Integer;
begin
    if n = 0 then
        Fibonacci := 0
    else if n = 1 then
        Fibonacci := 1
    else
        Fibonacci := Fibonacci(n - 2) + Fibonacci(n - 1);
end;

var
    n, i: Integer;

begin
    n := 15;

    for i := 0 to n do
        Write(Fibonacci(i):4);
    Writeln;
end.



(*
run:

   0   1   1   2   3   5   8  13  21  34  55  89 144 233 377 610

*)

 

70+ SQL courses for beginners and professionals