Ejercicio 3(Recursividad)

Plantee e implemente una función recursiva en PASCAL que sume los números
enteros hasta un entero dado. Además de la función, implemente un programa
principal apropiado para probar su funcionamiento.


PROGRAM suma(input,output);
(*Programa que contenga una funcion que haga la suma de numeros enteros hasta un numero dado*)
VAR
        numero,a:integer;
(*******************************************************************)
FUNCTION sumaenteros(numero:integer):integer;
        BEGIN
        IF numero=0 THEN sumaenteros:=0 ELSE
        sumaenteros:=numero+sumaenteros(numero-1);
END;
(********************************************************************)

BEGIN
write('Escribe un numero:');
REPEAT
read(numero);
UNTIL numero>=0;
a:=sumaenteros(numero);
write('La suma de los numeros enteros hasta ',numero:2,' es ',a:2);
END.


Ejemplo de ejecución

Anterior                                                                                                                                       Siguiente