-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Se tiene un recipiente cilíndrico de radio r y altura h y una caja de ancho a, largo b y altura c. Se desea saber cuál de ellos tiene mayor capacidad de almacenamiento.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Proceso CapacidadDeUnRecipienteYUnaCaja
Escribir Sin Saltar "Ingresa el valor de a:";
Leer a;
Escribir Sin Saltar "Ingresa el valor de b:";
Leer b;
Escribir Sin Saltar "Ingresa el valor de c:";
Leer c;
Escribir Sin Saltar "Ingresa el valor de h:";
Leer h;
Escribir Sin Saltar "Ingresa el valor de r:";
Leer r;
volumen_recipiente <- PI*r*r*h;
volumen_caja <- a*b*c;
Si volumen_recipiente>volumen_caja Entonces
Escribir "El recipiente cilíndrico tiene mayor capacidad";
FinSi
Si volumen_recipiente = volumen_caja Entonces
Escribir "Tienen la misma capacidad";
FinSi
Si volumen_recipiente<volumen_caja Entonces
Escribir "La caja tiene mayor capacidad";
FinSi
Escribir "Valor de volumen caja: ", volumen_caja;
Escribir "Valor de volumen recipiente: ", volumen_recipiente;
FinProceso
Escribir Sin Saltar "Ingresa el valor de a:";
Leer a;
Escribir Sin Saltar "Ingresa el valor de b:";
Leer b;
Escribir Sin Saltar "Ingresa el valor de c:";
Leer c;
Escribir Sin Saltar "Ingresa el valor de h:";
Leer h;
Escribir Sin Saltar "Ingresa el valor de r:";
Leer r;
volumen_recipiente <- PI*r*r*h;
volumen_caja <- a*b*c;
Si volumen_recipiente>volumen_caja Entonces
Escribir "El recipiente cilíndrico tiene mayor capacidad";
FinSi
Si volumen_recipiente = volumen_caja Entonces
Escribir "Tienen la misma capacidad";
FinSi
Si volumen_recipiente<volumen_caja Entonces
Escribir "La caja tiene mayor capacidad";
FinSi
Escribir "Valor de volumen caja: ", volumen_caja;
Escribir "Valor de volumen recipiente: ", volumen_recipiente;
FinProceso