• 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
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