EJERCICIOS PROPUESTOS
1. Una empresa de telecomunicaciones canadiense ofrece servicio de callback a un
precio atractivo. El costo de las llamadas telefónicas depende tanto del lugar de origen
de la llamada como de la zona geográfica en la que se encuentre el país destino. En la
siguiente tabla se presenta el costo por 60 segundos para las llamadas originadas en
Perú.
Clave Zona Precio por minuto
1 Estados Unidos 0.13
2 Canadá 0.11
5 América del Sur 0.22
6 América Central 0.19
7 México 0.17
9 Europa 0.17
10 Asia 0.20
15 África 0.39
20 Oceanía 0.28
Realice un programa que le permita calcular e imprimir el costo total de una llamada
telefónica, considerando tanto la zona como la duración de la llamada.
Proceso Empresa
//dc
Definir ZG Como Entero
Definir CT,DT Como Real
//en
Escribir "Ingrese la zona geográfica"
Escribir "1. Estados Unidos"
Escribir "2. Canadá"
Escribir "5. América del Sur"
Escribir "6. América Central"
Escribir "7. México"
Escribir "9. Europa"
Escribir "10. Asia"
Escribir "15. África"
Escribir "20. Oceanía"
Leer ZG
Escribir "Ingrese el tiempo de duración de su llamada"
Leer DT
//pr
Segun ZG hacer
1 :CT <- 0.13* DT
2 :CT <- 0.11* DT
5 :CT <- 0.22* DT
6 :CT <- 0.19* DT
7 :CT <- 0.17* DT
9 :CT <- 0.17* DT
10:CT <- 0.20* DT
15:CT <- 0.39* DT
20:CT <- 0.28* DT
De otro modo: Escribir "Error"
Escribir "Coloque una de las zonas geográficas permitidas"
FinSegun
//Salida
Escribir "El costo total de su llamada es: ",CT, " soles"
FinProceso
2. Realizar un algoritmo que nos permita determinar si un alumno tiene una nota de 0,
1 y 2 necesita reforzamiento 3, 4, Desaprobado, 5,6, 7 Aprobado, 8, 9 Excelente y 10
es Becado. Emplear una estructura condicional múltiple.
Proceso Nota_Del_Alumno
//dc
Definir NA Como Entero
Definir Situación Como Caracter
//ec
Escribir "Ingrese la nota del alumno"
Leer NA
//pr
Segun NA hacer
0,1,2: Situación <- "Necesita reforzamiento"
3,4: Situación <- "Desaprobado"
5,6,7: Situación <- "Aprobado"
8,9: Situación <- "Excelente"
10: Situación <- "Becado"
De otro modo: Escribir "Error"
FinSegun
//sa
Escribir "Su situación es: ", Situación
FinProceso
3. Realizar un algoritmo que permita representar los días de la semana
correspondiente a los cuerpos celestes del Sistema solar, de tal forma que ingrese el
nombre del día y el programa retorne el cuerpo celeste correspondiente según la
siguiente tabla.
Día Cuerpo Celeste
Lunes Luna
Martes Marte
Miércoles Mercurio
Jueves Júpiter
Viernes Venus
Sábado Saturno
Domingo Sol
Proceso Cuerpo_Celeste
//dc
Definir ND Como Entero
Definir CC Como Caracter
//en
Escribir "Ingrese el número del día"
Escribir "1. Lunes"
Escribir "2. Martes"
Escribir "3. Miércoles"
Escribir "4. Jueves"
Escribir "5. Viernes"
Escribir "6. Sábado"
Escribir "7. Domingo"
Leer ND
//pr
Segun ND hacer
Caso 1: CC <- "Luna"
Caso 2: CC <- "Marte"
Caso 3: CC <- "Mercuro"
Caso 4: CC <- "Júpiter"
Caso 5: CC <- "Venus"
Caso 6: CC <- "Saturno"
Caso 7: CC <- "Sol"
De otro modo: Escribir "Error"
Escribir "Elija uno de los números permitidos"
FinSegun
//sa
Escribir "El cuerpo celeste es: ", CC
FinProceso
