EJERCICIOS
Escriba Las fórmulas que usará para resolver las siguientes preguntas,
identifique los datos
necesarios y escriba el algoritmo correspondiente.
1. Hallar la suma de tres números.
Proceso: Suma
Definir: a,b,c,R Como Real
Escribir: "ingrese a"
Leer: a
Escribir: "ingrese b"
leer :b
escribir: "ingrese c"
leer: c
R<-a+b+c
Escribir: "la respuesta es:", R
Fin Proceso
2. Hallar el promedio de tres números.
Proceso: Promedio
Definir: a,b,c,R como real
Escribir: “Ingrese valor de a”
Leer: a
Escribir: “Ingrese valor de b”
Leer: b
Escribir: “Ingrese valor de c”
Leer: c
R<-(a+b+c)/3
Escribir: “El promedio es :”,R
Fin Proceso
3. Hallar el área de un triángulo.
Proceso: Area de un triangulo
Definir: b,h,A como real
Escribir: “Ingrese valor de b”
Leer: b
Escribir: “Ingrese valor de h”
Leer: h
A<-(b*h)/2
Escribir: “El area del triangulo es:”, A
Fin Proceso
4. Calcular el 25% de descuento del precio de un artefacto.
Proceso: Descuento
Definir: P, D como real
Escribir: “Ingrese el precio del artefacto”
Leer: P
D<-P*0.25
Escribir: “El 25% de descuento del precio del artefacto es:”, D
Fin Proceso
5. Calcular el promedio del curso de Principios de Algoritmos.
PF = 0.2*PC1 + 0.2*PC2 + 0.2*PC3 + 0.4*EF
Proceso: Promedio del curso de Principios de Algoritmos
Definir: PC1, PC2, PC3, EF, PF como real
Escribir: “Ingrese nota de PC1”
Leer: PC1
Escribir: “Ingrese nota de PC2”
Leer: PC2
Escribir: “Ingrese nota de PC3”
Leer: PC3
Escribir: “Ingrese nota de EF”
Leer: EF
PF<-0.2*PC1 + 0.2*PC2 + 0.2*PC3 + 0.4*EF
Escribir: “El promedio es:”, PF
Fin Proceso
6. Cuántos meses debe ahorrar para comprar un celular de precio S/. 500 si
recibe mensualmente p soles.
Proceso: Celular
Escribir: "Ingrese el valor de p “
Leer: p
meses <- 500/p_soles;
Si meses <> TRUNC(meses) Entonces
meses <- TRUNC(meses)+1;
FinSi
Escribir "Valor de meses es: ", meses;
FinProceso
7. Hallar las raíces de la ecuación cuadrática.
Proceso: Ecuacion Cuadratica
Definir: a,b,c, disc como real
Escribir "Ingrese el coeficiente A:"
Leer a
Escribir "Ingrese el coeficiente B:"
Leer b
Escribir "Ingrese el coeficiente C:"
Leer c
disc <- b^2-4*a*c
Si disc<0 Entonces
preal<- (-b)/(2*a)
pimag<- rc(-disc)/(2*a)
Escribir "Raiz 1: ",preal,"+",pimag,"i"
Escribir "Raiz 2: ",preal,"-",pimag,"i"
Sino
r <- (-b)/(2*a)
Escribir "Raiz 1 = Raiz 2: ",r
Sino
r1 <- ((-b)+rc(disc))/(2*a)
r2 <- ((-b)-rc(disc))/(2*a)
Escribir "Raiz 1: ",r1
Escribir "Raiz 2: ",r2
FinSi
FinSi
FinProceso
8. Suponga que un individuo desea invertir su capital en un banco y desea
saber cuánto dinero ganara después de un mes si el banco paga a razón de
2% mensual.
Proceso: Inversión
Definir: Capital, Total como real
Escribir: “Ingrese la cantidad de la capital”
Leer: C
Total<-(C*0.2)+C
Escribir: “El total de dinero ganado es:”, Total
Fin Proceso
9. Un maestro desea saber qué porcentaje de hombres y que porcentaje de
mujeres hay en un grupo de estudiantes.
Proceso: Estudiantes
Definir: N° de hombres; N° de mujeres, PH, PM, TA como real
Escribir: “Ingrese la cantidad de hombres”
Leer: h
Escribir: “Ingrese la cantidad de mujeres”
Leer: m
TA<-h+m
PH<-(h*100)/TA
PM<-(m*100)/TA
Escribir: “El porcentaje de hombres es:”, PH
Escribir: “El porcentaje de mujeres es:”, PM
Fin Proceso
10. Hallar el área de un triángulo equilátero, si sólo se ingresa el valor de un
lado.
Proceso: Area de un triangulo equilatero
Definir: h,a como real
Escribir: “Ingrese valor del lado a”
Leer: a
h<-((3^1/3)*a)/2
Escribir: “El area del triangulo equilatero es:”, h
Fin Proceso
