Ejercicio 4(Recursividad)

 Plantee e implemente una función recursiva en PASCAL que calcule y muestre
la tabla de multiplicar de un número entero a partir de dicho número y el
máximo multiplicador.  Además de la función, implemente un programa
principal apropiado para probar su funcionamiento


PROGRAM tablaR(input,output);
(*Prograa que haga la tabla de multiplicar de un numero entero pedido y hasta un maximo multiplicador pedido*)
VAR
numero,multiplicador:integer;
(******************************************)
PROCEDURE datos;
BEGIN
write('Introduzca un numero entero:');
read(numero);
write('Introduzca el maximo multiplicador:');
read(multiplicador);
END;
(*******************************************)
PROCEDURE TablaM(numero,multiplicador:integer);
BEGIN
IF multiplicador>1 THEN TablaM(numero,multiplicador-1);
writeln(numero:2,'*',multiplicador:2,'=',numero*multiplicador);
END;
(*******************************************)
BEGIN
datos;
TablaM(numero,multiplicador);
END.

Ejemplo de ejecución

Anterior                                                                                                                                       Siguiente