Ejercicio 7(Recursividad)

 Plantee e implemente una función recursiva en PASCAL para determinar el
término N de la sucesión de Fibonacci. Además de la función, implemente un
programa principal apropiado para probar su funcionamiento.


PROGRAM recursiva36(input,output);
(*Programa que contenga una funcion recursiva que determine el termino N de la sucecion de Fibonacci*)
VAR
termino,a:integer;
(****************************************************)
FUNCTION fib(termino:integer):integer;
BEGIN
 IF termino<=2 THEN fib:=1 ELSE
 fib:=fib(termino-1)+fib(termino-2);
 END;
(*****************************************************)
BEGIN
        write('Escriba el termino de la sucesion de fibonacci:');
        read(termino);
        a:=fib(termino);
        writeln('El termino es:',a:2);
END.

Ejemplo de ejecución

Anterior                                                                                                                                       Siguiente