• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Controlar los asistentes a una fiesta; para esto deberá ingresar la edad, sexo (masculino y femenino) y estado civil del asistente (soltero, casado, viudo o divorciado), luego mostrar las siguientes estadísticas:
    a) Total de asistentes.
    b) Total de personas mayores de edad.
    c) Total de personas menores de edad.
    d) Total de hombres.
    e) Total de mujeres.
    f) Total de solteros.
    g) Total de casados.
    h) Total de viudos.
    i) Total de divorciados.
    j) Porcentaje de hombres.
    k) Porcentaje de mujeres.

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Proceso EstadisticasDeUnaFiesta
    a <- 0;
    b <- 0;
    c <- 0;
    d <- 0;
    e <- 0;
    f <- 0;
    g <- 0;
    h <- 0;
    i <- 0;
    j <- 0;
    k <- 0;
    Repetir
        Escribir Sin Saltar "Ingresa el valor de edad:";
        Leer edad;
        Escribir "Selecciona el valor de sexo.";
        Escribir "    1.- masculino";
        Escribir "    2.- femenino";
        Escribir Sin Saltar "    :";
        Repetir
            Leer sexo;
            Si sexo<1 O sexo>2 Entonces
                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
            FinSi
        Hasta Que sexo>=1 Y sexo<=2;
        Escribir "Selecciona el valor de estado civil.";
        Escribir "    1.- soltero";
        Escribir "    2.- casado";
        Escribir "    3.- viudo";
        Escribir "    4.- divorciado";
        Escribir Sin Saltar "    :";
        Repetir
            Leer estado_civil;
            Si estado_civil<1 O estado_civil>4 Entonces
                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
            FinSi
        Hasta Que estado_civil>=1 Y estado_civil<=4;
        a <- a+1;
        Si edad>=18 Entonces
            b <- b+1;
        SiNo
            c <- c+1;
        FinSi
        Si sexo = 1 Entonces
            d <- d+1;
        SiNo
            e <- e+1;
        FinSi
        Si estado_civil = 1 Entonces
            f <- f+1;
        FinSi
        Si estado_civil = 2 Entonces
            g <- g+1;
        FinSi
        Si estado_civil = 3 Entonces
            h <- h+1;
        FinSi
        Si estado_civil = 4 Entonces
            i <- i+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'
    Si a = 0 Entonces
        j <- 0;
    SiNo
        j <- 100.0*d/a;
    FinSi
    Si a = 0 Entonces
        k <- 0;
    SiNo
        k <- 100.0*e/a;
    FinSi
    Escribir "Valor de a: ", a;
    Escribir "Valor de b: ", b;
    Escribir "Valor de c: ", c;
    Escribir "Valor de d: ", d;
    Escribir "Valor de e: ", e;
    Escribir "Valor de f: ", f;
    Escribir "Valor de g: ", g;
    Escribir "Valor de h: ", h;
    Escribir "Valor de i: ", i;
    Escribir "Valor de j: ", j;
    Escribir "Valor de k: ", k;
FinProceso