Lektion 5: Rekursion, del 1

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Text_IO; use Ada.Text_IO;

--Uppgift: Skriv ett program som skriver ut det N:te Fibonacci-talet
--Använd rekursion
--Fibonacci är en talföljd som adderar de två förra talen för att skapa nästa
--exempel: 1,1,2,3,5,8,13,21 och så vidare
procedure Fibonacci is

   N: Positive;
   --Positive är alla positiva heltal. Natural är samma sak, men inkluderar också 0.

   function Fib(N: in Positive) return Positive is

   begin

        if N = 1 or N = 2 then
     return 1;
      end if;

      return Fib(N-1)+Fib(N-2);

      end Fib;

begin

   Put("Mata in ett tal N: ");
   Get(N);
   Put("Det ");
   Put(N,0);
   Put(":e fibonacci-talet är: ");
   Put(Fib(N),0);


end Fibonacci;