-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Permita registrar de los empleados de una fábrica (no se sabe cuántos) su peso y saber cuántos pesan hasta 80 kg. inclusive y cuantos pesan más de 80 kg.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Proceso PesoDeLosEmpleadosDeUnaFabrica
hasta_80 <- 0;
mayores_a_80 <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de peso:";
Leer peso;
Si peso>80 Entonces
mayores_a_80 <- mayores_a_80+1;
SiNo
hasta_80 <- hasta_80+1;
FinSi
Escribir "";
Repetir
Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
Escribir "Valor de hasta 80: ", hasta_80;
Escribir "Valor de mayores a 80: ", mayores_a_80;
FinProceso
hasta_80 <- 0;
mayores_a_80 <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de peso:";
Leer peso;
Si peso>80 Entonces
mayores_a_80 <- mayores_a_80+1;
SiNo
hasta_80 <- hasta_80+1;
FinSi
Escribir "";
Repetir
Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
Escribir "Valor de hasta 80: ", hasta_80;
Escribir "Valor de mayores a 80: ", mayores_a_80;
FinProceso