-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Lea la edad y la estatura de 15 personas e imprima el promedio de edad y el promedio de estaturas de dichas personas y muestre cuantas personas están entre 1.60 y 1.80.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Proceso EdadYLaEstaturaDe15Personas
entre_160_y_180 <- 0;
promedio_edad <- 0;
promedio_estaturas <- 0;
Para i<-1 Hasta 15 Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingresa el valor de edad:";
Leer edad;
Escribir Sin Saltar "Ingresa el valor de estatura:";
Leer estatura;
promedio_edad <- promedio_edad+edad;
promedio_estaturas <- promedio_estaturas+estatura;
Si estatura>=1.6 Y estatura<=1.8 Entonces
entre_160_y_180 <- entre_160_y_180+1;
FinSi
Escribir "";
FinPara
promedio_edad <- promedio_edad/15;
promedio_estaturas <- promedio_estaturas/15;
Escribir "Valor de entre 160 y 180: ", entre_160_y_180;
Escribir "Valor de promedio edad: ", promedio_edad;
Escribir "Valor de promedio estaturas: ", promedio_estaturas;
FinProceso
entre_160_y_180 <- 0;
promedio_edad <- 0;
promedio_estaturas <- 0;
Para i<-1 Hasta 15 Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingresa el valor de edad:";
Leer edad;
Escribir Sin Saltar "Ingresa el valor de estatura:";
Leer estatura;
promedio_edad <- promedio_edad+edad;
promedio_estaturas <- promedio_estaturas+estatura;
Si estatura>=1.6 Y estatura<=1.8 Entonces
entre_160_y_180 <- entre_160_y_180+1;
FinSi
Escribir "";
FinPara
promedio_edad <- promedio_edad/15;
promedio_estaturas <- promedio_estaturas/15;
Escribir "Valor de entre 160 y 180: ", entre_160_y_180;
Escribir "Valor de promedio edad: ", promedio_edad;
Escribir "Valor de promedio estaturas: ", promedio_estaturas;
FinProceso