Taller De Subprogramas

1. Hacer un algoritmo que lea 5 datos enteros dados por el usuario y muestre la suma de los datos impares.
Proceso SUMA_DATOS_IMPARES
Definir a,f como entero
Escribir "Digite 5 NumerosEntero a procesar"
f=0
Para i=1 Hasta 5 Hacer
leer a
si a%2==0 entonces
f=f+0
Sino
f=f+a
FinSi
FinPara
Escribir "La suma de los numeros impares ingresados es ",f
//No seve la necesidad de usar un subproceso.
FinProceso

2. Hacer un algoritmo que lea 5 datos dados por el usuario y muestre el porcentaje de la cantidad de los datos pares. (por ejemplo si son 3 datosentre los 5 el porcentaje es el 60%, si son 4 es el 80%).
SubProceso porcen <- Porcentaje_par ( )
p=0
imp=0
Para i=1 Hasta 5 Hacer
leer a
si a%2==0 entonces
p=p+1
Sino
imp=imp+1
FinSiFinPara
f=(p*100)/5
porcen=f
Fin SubProceso

Proceso PORCENTAJE_PARES_IMPARES
Definir b,res como entero
Escribir "Digite 5 Numeros Entero a procesar"
res=Porcentaje_par()
Escribir "La cantidad denumeros pares escritos corresponde al ", res, "%"
FinProceso

3. Hacer un algoritmo que lea un dato entero N, y muestre la sumatoria de 1 hasta N.
SubProceso suma <- suma_num ( n )
f=0
Para i=1Hasta n Hacer
f=f+i
FinPara
suma=f
Fin SubProceso

Proceso Sumatoria
Definir x,res como entero
Escribir "Digite el Numero limite para la Sumatoria"
Leer x
res=suma_num(x)
escribir"El resultado de la Sumatoria hasta ",x " es ", res
FinProceso

4. Hacer un algoritmo que lea un número entero N si el número es par muestre la sumatoria de 1 hasta N y si el número es imparmuestre el factorial de N.

SubProceso suma <- suma_num ( n )
f=0
Para i=1 Hasta n Hacer
f=f+i
FinPara
suma=f
Fin SubProceso

SubProceso fact <- factorial( n )
f=1
Para i=1 Hasta nHacer
f=f*i
FinPara
fact=f
Fin SubProceso

Proceso Sumatoria_Factorial
Definir x,res,factor como entero
Escribir "Digite el Numero limite a procesar"
Leer x
Si x%2==0 Entonces...