Numeros+serie+Fibonacci

=__**Cálculo de los números de Fibonacci**__=

Escribir un programa que muestre los N primeros números de Fibonacci: 1, 1, 2, 3, 5, 8, ...

El primer número de Fibonacci es el 1, el segundo es el 1 y cada uno de los números restantes se obtiene como suma de los dos números de Fibonacci precedentes

**Utilizando una sentencia CASE y dentro un bucle FOR** code format="pascal" PROGRAM Fibonacci_Repetitivas_5 ; VAR i, iCant, iNuevo, iPenult, iUlt : Integer ; BEGIN Write  ('Cuantos numeros de la serie Fibonacci quieres que escriba: ') ; Readln (iCant)

Writeln ; Writeln ('Los numeros de la serie de Fibonacci son: ') ;

iPenult := 1 ; iUlt   := 1 ;

CASE iCant  OF          1 :  WriteLn  (1) ; 2 : WriteLn  (1 : 8, 1 : 8)  ; ELSE iPenult := 1 ; iUlt       := 1  ; Write  (iPenult : 8, iUlt : 8) ;

FOR i := 3   TO  iCant  DO                  BEGIN iNuevo := iUlt + iPenult ; Write (iNuevo : 8) ;

iPenult := iUlt ; iUlt      := iNuevo END END ; { Case }

WriteLn ;

ReadLn ; END. code

**Utilizando un bucle FOR y dentro una sentencia CASE** code format="pascal" PROGRAM Fibonacci_Repetitivas_5 ; VAR i, iCant, iNuevo, iPenult, iUlt : Integer ; BEGIN Write  ('Cuantos numeros de la serie Fibonacci quieres que escriba: ') ; Readln (iCant)

iPenult := 1 ; iUlt   := 1 ;

Writeln ('Los numeros de la serie de Fibonacci son: ') ;

FOR i := 1   TO  iCant  DO        CASE i OF             1 :  Write  (1 : 8) ; 2 : Write  (1 : 8)  ; ELSE iNuevo := iUlt + iPenult ;

Write (iNuevo : 8) ;

iPenult := iUlt ; iUlt   := iNuevo END ; WriteLn ;

ReadLn ; END. code

**Utilizando solamente un bucle FOR** code format="pascal" PROGRAM Fibonacci_Repetitivas_5 ; VAR i, iCant, iNuevo, iPenult, iUlt : Integer ; BEGIN Write  ('Cuantos numeros de la serie Fibonacci quieres que escriba: ') ; Readln (iCant)

Writeln ; Writeln ('Los numeros de la serie de Fibonacci son: ') ;

iPenult := 1 ; iUlt   := 0 ;

FOR i := 1 TO iCant DO       BEGIN iNuevo := iUlt + iPenult ;

Write (iNuevo : 8) ;

iPenult := iUlt ; iUlt      := iNuevo END ;

WriteLn ; ReadLn ; END. code