1)
Proceso Suma_Producto
Definir num1, num2, suma, producto Como Real
Escribir "Ingrese el primer número: "
Leer num1
Escribir "Ingrese el segundo número: "
Leer num2
suma <- num1 + num2
producto <- num1 * num2
Escribir "La suma es: ", suma
Escribir "El producto es: ", producto
FinProceso
2)
Proceso veinte_porciento
Definir num Como Real
Escribir "Ingrese un número entero: "
Leer num
Escribir "El 20% de ", num, " es: ", num * 0.20
FinProceso
3)
Proceso convertir_m_a_cm_mm
Definir metros, centimetros, milimetros Como Real
Escribir "Ingrese un valor en metros: "
Leer metros
centimetros <- metros * 100
milimetros <- centimetros * 10
Escribir "El valor en centímetros es: ", centimetros
Escribir "El valor en milímetros es: ", milimetros
FinProceso
4)
Proceso area_de_triangulo
Definir base, altura, area Como Real
Escribir "Ingrese la base del triángulo: "
Leer base
Escribir "Ingrese la altura del triángulo: "
Leer altura
area <- (base * altura) / 2
Escribir "El área del triángulo es: ", area
FinProceso
5)
Proceso tipo_de_cambio
Definir dolares, soles Como Real
Escribir "Ingrese el valor en dólares: "
Leer dolares
soles <- dolares * 3.48
Escribir dolares, " dólares equivalen a ", soles, " soles."
FinProceso
6)
Proceso cambio_pulgada_a_mm
Definir pulgadas, milimetros Como Real
Escribir "Ingrese el valor en pulgadas: "
Leer pulgadas
milimetros <- pulgadas * 25.4
Escribir pulgadas, " pulgadas equivalen a ", milimetros, " milímetros."
FinProceso
7)
Proceso Sumar_cifras_y_cuadrados
Definir numero, suma, digito1, digito2, digito3 Como Entero
Definir valido Como Logico
valido <- Falso
Mientras No valido Hacer
Escribir "Ingrese un número de tres cifras: "
Leer numero
Si numero >= 100 Y numero <= 999 Entonces
valido <- Verdadero
SiNo
Escribir "El número no es de tres dígitos, ingrese un número de tres dígitos."
FinSi
FinMientras
digito1 <- Trunc(numero / 100)
digito2 <- Trunc((numero Mod 100) / 10)
digito3 <- numero Mod 10
suma <- digito1 + digito2 + digito3
Escribir "La suma de las cifras es: ", suma
Escribir "La suma de las cifras al cuadrado es: ", suma * suma
FinProceso
8)
Proceso Repartición_socios
Definir monto, socio1, socio2, socio3 Como Real
Escribir "Ingrese el monto total: "
Leer monto
socio1 <- monto * 0.30
socio2 <- monto * 0.20
socio3 <- monto * 0.50
Escribir "A Socio 1 le corresponde: ", socio1
Escribir "A Socio 2 le corresponde: ", socio2
Escribir "A Socio 3 le corresponde: ", socio3
FinProceso
9)
Proceso valor_de_IGV
Definir precioBase, igv, precioFinal Como Real
Escribir "Ingrese el precio base del producto: "
Leer precioBase
igv <- precioBase * 0.18
precioFinal <- precioBase + igv
Escribir "El IGV es: ", igv
Escribir "El precio final del producto es: ", precioFinal
FinProceso
10)
Proceso Recaudación
Definir general, mayores, menores, totalGeneral, totalMayores, totalMenores,
totalRecaudado Como Real
Escribir "Ingrese la cantidad de entradas generales vendidas: "
Leer general
Escribir "Ingrese la cantidad de entradas para mayores de 65 vendidas: "
Leer mayores
Escribir "Ingrese la cantidad de entradas para menores vendidas: "
Leer menores
totalGeneral <- general * 150
totalMayores <- mayores * 50
totalMenores <- menores * 80
totalRecaudado <- totalGeneral + totalMayores + totalMenores
Escribir "Recaudación de entradas generales: ", totalGeneral
Escribir "Recaudación de entradas para mayores: ", totalMayores
Escribir "Recaudación de entradas para menores: ", totalMenores
Escribir "Recaudación total: ", totalRecaudado
FinProceso
