Programacion

FUNCIONES RECURSIVAS
1.
Algotirmo principal()
Inicio
a,b:enteros
r:caracter
Hacer

escribir "DIVISION DE 2 NUMEROS"
ingreso("Digite el Dividendo: ",a)
ingreso("Digite el Divisor: ",b)
reporte(a,b)
continuar("Desea continuar (s/n): ",r)
Mientras(r='s’v r='S')
Fin

Algoritmo ingreso(z[]:caracter,&x:entero)
Inicio
Hacer
Escribir z
leer x
Mientras(x <= 0)
Fin

Algoritmo division(&a:entero,b:entero):entero
Inicio
si(b>a) entonces
Devolver 0
sino
a=a-b
Devolver division(a,b)+1
finSi
Fin

Algoritmo reporte(a:entero,b:entero)
Inicio
Escribir "RESULTADOS"
Escribri "El cociente es: ",division(a,b)
Escribir "El residuo es: ",a
Fin

Algoritmo continuar(mensaje[]:caracter,&r:caracter)
Inicio
HacerEscribir mensaje
Leer r
Mientras (r!='s' ^ r!='S' ^ r!='n' ^ r!='N')
Fin
2.
Algoritmo principal()
Inicio
n:entero
r:entero
Hacer

Escribir "SUMA DE DIGITOS DE UN NUMERO"
ingreso(n)
reporte(n)
continuar("Desea continuar (s/n): ",r)
Mientras (r='s' v r='S')
Fin

Algoritmo ingreso(&x:entero)
Inicio
Hacer
Escribir "Digite un numero: ”
Leer xMientras (x<0)
Fin

Algoritmo suma(n:entero):entero
Inicio
Si (n<10) entonces
Devolver n
Sino
Devolver n%10+suma(n/10)
finSi
Fin

Algoritmo reporte(x:entero)
Inicio
Escribir "Suma de digitos = ",suma(x)
Fin

Algoritmo continuar(mensaje[]:caracter,&r:caracter)
Inicio
Hacer
Escribir mensaje
Leer r
Mientras (r!='s' ^ r!='S' ^ r!='n' ^ r!='N')Fin
3.
Algoritmo principal()
Inicio
x:real
n:entero
rpta:caracter
Hacer

Escribir “POTENCIA DE UN NUMERO"
base("Digite Base: ",x)
exponente("Digite Exponente: ",n)
reporte(x,n)
continuar("Desea continuar (s/n): ",r)
Mientras (r='s' V r='S')
Fin

Algoritmo base(z[]:caracter,&x:real)
Inicio
Escribrir z
Leer x
Fin

Algoritmoexponente(z[]:caracter,&x:entero)
Inicio
Escribir z
Leer x
Fin

Algoritmo potencia(x:real,n:entero):real
Inicio
Si (n=0) entonces
devolver1
sino
si(n>0) entonces
devolver x*potencia(x,n-1)
sino
devolver potencia(x,n+1)/x
finSi
finSi
Fin

Algoritmo reporte(x:real,n:entero):real
Inicio
Escribir x,"^",n," = ",potencia(x,n)
Fin

Algoritmocontinuar(mensaje[]:caracter,&r:caracter)
Inicio
Hacer
Escribir mensaje
Leer r
Mientras (r!='s' ^ r!='S' ^ r!='n' ^ r!='N')
Fin
4.
Algoritmo principal ()
Inicio
a,b:enteros
r:caracter
Hacer

Escribir "MAXIMO COMUN DIVISOR DE 2 NUMERO”
ingreso(a,"Digite Primer numero: ")
ingreso(b,"Digite Segundo numero: ")
reporte(a,b)
continuar("Desea continuar (s/n): ",r)Mientras (r='s' v r='S')
Fin

Algoritmo ingreso(&x:entero,z[]:caracter)
Inicio
Hacer
Escribir z
Leer x
Mientras (x<=0)

Algoritmo mcd(x:entero,y:entero):entero
Inicio
Si (y<=x && x%y=0) entonces
devolver y
sino
si(x<y) entonces
devolver mcd(y,x)
sino
devolver mcd(x,x%y)
finSi
finSi
Fin

Algoritmoreporte(x:entero,y:entero)
Inicio
Escribir "El MCD de "x" y "y" = ",mcd(x,y)
Fin

Algoritmo continuar(mensaje[]:caracter,&r:caracter)
Inicio
Hacer
Escribir mensaje
Leer r
Mientras (r!='s' ^ r!='S' ^ r!='n' ^ r!='N')
Fin

5.
Algortimo principal ()
Inicio
n,a,b:enteros
r:caracter
Hacer
Escribir "SUCESION DE FIBONACCI"
validar(n,"Digite la Cantidad de terminos: ")ingreso(a,"Digite el Primer numero: ")
ingreso(b,"Digite el Segundo numero: ")
reporte(a,b,n)
continuar("Desea Continuar (s/n): ",r)
Mientras (r='s' v r='S')
Fin

Algortimo validar(&x:entero,z[]:caracter)
Inicio
Hacer
Escribir,z
cin>>x
Mientras(x<=0)
Fin

Algoritmo ingreso(&x:entero,z[]:caracter)
Inicio
Escribir z
Leer x
Fin

Algoritmo...