• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Una persona debe realizar un muestreo con n personas para determinar el promedio de peso de los niños, jóvenes, adultos y viejos que existen en su zona habitacional. Se determinan las categorías con base en la siguiente tabla:
    CATEGORÍA | EDAD
    Niños | 0 - 12
    Jóvenes | 13 - 29
    Adultos | 30 - 59
    Viejos | 60 en adelante

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Proceso MuestreoDePeso
    adultos <- 0;
    jovenes <- 0;
    ninos <- 0;
    viejos <- 0;
    promedio_de_adultos <- 0;
    promedio_de_jovenes <- 0;
    promedio_de_ninos <- 0;
    promedio_de_viejos <- 0;
    Escribir Sin Saltar "Ingresa el valor de n:";
    Leer n;
    Para i<-1 Hasta n Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Escribir Sin Saltar "Ingresa el valor de edad:";
        Leer edad;
        Escribir Sin Saltar "Ingresa el valor de peso:";
        Leer peso;
        Si edad>=0 Y edad<=12 Entonces
            ninos <- ninos+1;
            promedio_de_ninos <- promedio_de_ninos+peso;
        FinSi
        Si edad>=13 Y edad<=29 Entonces
            jovenes <- jovenes+1;
            promedio_de_jovenes <- promedio_de_jovenes+peso;
        FinSi
        Si edad>=30 Y edad<=59 Entonces
            adultos <- adultos+1;
            promedio_de_adultos <- promedio_de_adultos+peso;
        FinSi
        Si edad>=60 Entonces
            viejos <- viejos+1;
            promedio_de_viejos <- promedio_de_viejos+peso;
        FinSi
        Escribir "";
    FinPara
    Si adultos = 0 Entonces
        promedio_de_adultos <- 0;
    SiNo
        promedio_de_adultos <- promedio_de_adultos/adultos;
    FinSi
    Si jovenes = 0 Entonces
        promedio_de_jovenes <- 0;
    SiNo
        promedio_de_jovenes <- promedio_de_jovenes/jovenes;
    FinSi
    Si ninos = 0 Entonces
        promedio_de_ninos <- 0;
    SiNo
        promedio_de_ninos <- promedio_de_ninos/ninos;
    FinSi
    Si viejos = 0 Entonces
        promedio_de_viejos <- 0;
    SiNo
        promedio_de_viejos <- promedio_de_viejos/viejos;
    FinSi
    Escribir "Valor de adultos: ", adultos;
    Escribir "Valor de jovenes: ", jovenes;
    Escribir "Valor de ninos: ", ninos;
    Escribir "Valor de viejos: ", viejos;
    Escribir "Valor de promedio de adultos: ", promedio_de_adultos;
    Escribir "Valor de promedio de jovenes: ", promedio_de_jovenes;
    Escribir "Valor de promedio de ninos: ", promedio_de_ninos;
    Escribir "Valor de promedio de viejos: ", promedio_de_viejos;
FinProceso