Download 1. Realiza un programa que utilizando funciones permita calcular el

1. Realiza un programa que utilizando funciones permita calcular el factorial de un número.
Inicio Ej1
Entero a, kk
Real Res
kk=Pedir(a)
Res=Factorial(a)
Escribir “El resultado es “, Res
Fin Ej1
Funcion Entero Pedir(Salida Entero a)
Escribir “Introduzca un número positivo : “
Leer a
Mientras (a<1) hacer
Escribir “Introduzca un número positivo : “
Leer a
Fin Mientras
Devolver 1
Fin Funcion Pedir
Funcion Real Factorial(Entero a)
Si (a=1) Entonces
Devolver 1
Sino
Devolver a*Factorial(a-1)
Fin Si
Fin Funcion Factorial
2. Escriba un programa que utilice una función llamada “multiplicación” que reciba como
argumento cuatro números reales distintos de cero y que regrese el producto de ellos. Utiliza
más funciones en el programa.
Inicio Ej2
Real a, b, c, d, Res
Entero kk
kk=Pedir_Valores(a, b, c, d)
Res=Multiplicar(a)
Escribir “El resultado es “, Res
Fin Ej2
Funcion Entero Pedir_Valores(Salida Real a, Salida Real b, Salida Real c, Salida Real d)
a=-1
b=-1
c=-1
d=-1
Mientras (a<0) Hacer
Escribir “Introduzca el primer número positivo : “
Leer a
Fin Mientras
Mientras (b<0) Hacer
Escribir “Introduzca el segundo número positivo : “
Leer b
Fin Mientras
Mientras (c<0) Hacer
Escribir “Introduzca el tercer número positivo : “
Leer c
Fin Mientras
Mientras (d<0) Hacer
Escribir “Introduzca el cuarto número positivo : “
Leer d
Fin Mientras
Devolver 1
Fin Funcion Pedir_Valores
Funcion Real Multiplicar(Real a, Real b, Real c, Real d)
Devolver a*b*c*d
Fin Funcion Multiplicar
3. Realizar un programa que al ingresar un número, muestre los 3 números anteriores y los 3
números siguientes al numero ingresado. Utiliza funciones donde los parámetros de las
funciones sean de salida.
Inicio Ej3
Entero kk, a
kk=Pedir_Valor(a)
kk=Mostrar(a)
Fin Ej3
Funcion Entero Pedir_Valor(Salida Entero a)
Escribir “Introduce un número : “
Leer a
Devolver 1
Fin Funcion Pedir_Valor
Funcion Entero Mostrar(Entero a)
Entero i
Para i desde a hasta a-3 incremento -1 hacer
Escribir a,”, “
Fin Para
Para i desde a hasta a+3hacer
Escribir a,”, “
Fin Para
Devolver 1
Fin Funcion Mostrar
4. Haz un programa que tenga una función que compruebe si un numero es o no primo y
utilice esa función.
Inicio Ej4
Entero kk, a
kk=Pedir_Valor(a)
kk=Mostrar(a)
Fin Ej3
Funcion Entero Pedir_Valor(Salida Entero a)
Escribir “Introduce un número : “
Leer a
Devolver 1
Fin Funcion Pedir_Valor
Funcion Entero Mostrar(Entero a)
Si (a mod 2=0) o (a mod 3=0) o (a mod 5=0) Entonces
Escribir a,” es primo”
Sino
Escribir a,” no es primo”
Fin Si
Fin Funcion Mostrar