Proceso Tarea_Computo
Definir respuesta Como Cadena
respuesta <- "no"
Mientras respuesta <> "no" Hacer
Escribir "1. Es mayor de edad"
Escribir "2. Calcular el índice de masa corporal"
Escribir "3. Determinar si un número es par o impar"
Escribir "4. Convertir la temperatura de grados Celsius a Fahrenheit"
Escribir "5. Calcular la raíz cuadrada de un número"
Escribir "6. Salir"
Escribir "Elija una opción (1,2,3,4,5,6): "
Leer op
Segun op Hacer
1:
Escribir "Digite su edad"
Leer edad
Si edad >= 18 Entonces
Escribir "Usted es mayor de edad"
Sino
Si edad > 0 Entonces
Escribir "Usted es menor de edad"
Sino
Escribir "No se puede tener edad negativa"
FinSi
FinSi
2:
Escribir "Digite su peso"
Leer peso
Escribir "Digite su estatura"
Leer estatura
imc <- peso / (estatura * estatura)
Escribir "Su índice de masa corporal es: ", imc
3:
Escribir "Digite un número entero"
Leer num
Si num % 2 = 0 Entonces
Escribir "Es par"
Sino
Escribir "Es impar"
FinSi
4:
Escribir "Digite la temperatura en grados celsius"
Leer temp
fahrenheit <- (temp * 9/5) + 32
Escribir "Grados Celsius: ", temp, " equivalen a ", fahrenheit, " Fahrenhe
5:
Escribir "Digite un número positivo"
Leer num
Si num >= 0 Entonces
raiz <- num ^ 0.5
Escribir "La raíz cuadrada de ", num, " es: ", raiz
Sino
Escribir "No se puede la raíz cuadrada de un número negativo"
FinSi
6:
Escribir "Gracias por usar el programa"
respuesta <- "no"
De Otro Modo:
Escribir "Opción inválida"
FinSegun
FinMientras
FinProceso