• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    1) Determine el total del pago realizado a N personas (cantidad ingresada por teclado). A cada persona se le pregunta de qué país es y cuantos días de las olimpiadas trabajará.
    2) Determine la cantidad de personas que corresponden a americanos.
    3) Determine la cantidad total de personas que corresponden a europeos y asiáticos.
    4) Imprima un ticket, según el país del trabajador, con la siguiente información:
    - EJ: Olimpiadas Tokio 2020
    - País origen: Chile
    - Pago total por 17 días: $295,8
    5) Valide que la cantidad de personas que trabajarán es mayor a 0. Esta es la tabla de pago según país:
    # | País | Pago diario
    1 | España | 20,1 USD
    2 | Estados Unidos | 22,3 USD
    3 | Alemania | 24,7 USD
    4 | China | 15,1 USD
    5 | Brasil | 17,4 USD
    6 | Argentina | 15,1 USD
    7 | Perú | 16,1 USD
    8 | Chile | 17,4 USD
    9 | Francia | 10 USD

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
Proceso OlimpiadasTokio2020
    americanos <- 0;
    asiaticos <- 0;
    europeos <- 0;
    total_del_pago_realizado <- 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 dias:";
        Leer dias;
        Escribir "Selecciona el valor de pais.";
        Escribir "    1.- España";
        Escribir "    2.- Estados Unidos";
        Escribir "    3.- Alemania";
        Escribir "    4.- China";
        Escribir "    5.- Brasil";
        Escribir "    6.- Argentina";
        Escribir "    7.- Perú";
        Escribir "    8.- Chile";
        Escribir "    9.- Francia";
        Escribir Sin Saltar "    :";
        Repetir
            Leer pais;
            Si pais<1 O pais>9 Entonces
                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
            FinSi
        Hasta Que pais>=1 Y pais<=9;
        pago_total <- 0;
        Escribir "Olimpiadas Tokio 2020";
        Si pais = 1 Entonces
            pago_total <- dias*20.1;
            Escribir "País origen: España";
            europeos <- europeos+1;
        FinSi
        Si pais = 2 Entonces
            pago_total <- dias*22.3;
            Escribir "País origen: Estados Unidos";
            americanos <- americanos+1;
        FinSi
        Si pais = 3 Entonces
            pago_total <- dias*24.7;
            Escribir "País origen: Alemania";
            europeos <- europeos+1;
        FinSi
        Si pais = 4 Entonces
            pago_total <- dias*15.1;
            Escribir "País origen: China";
            asiaticos <- asiaticos+1;
        FinSi
        Si pais = 5 Entonces
            pago_total <- dias*17.4;
            Escribir "País origen: Brasil";
            americanos <- americanos+1;
        FinSi
        Si pais = 6 Entonces
            pago_total <- dias*15.1;
            Escribir "País origen: Argentina";
            americanos <- americanos+1;
        FinSi
        Si pais = 7 Entonces
            pago_total <- dias*16.1;
            Escribir "País origen: Perú";
            americanos <- americanos+1;
        FinSi
        Si pais = 8 Entonces
            pago_total <- dias*17.4;
            Escribir "País origen: Chile";
            americanos <- americanos+1;
        FinSi
        Si pais = 9 Entonces
            pago_total <- dias*10.0;
            Escribir "País origen: Francia";
            europeos <- europeos+1;
        FinSi
        total_del_pago_realizado <- total_del_pago_realizado+pago_total;
        Escribir "Valor de pago total: ", pago_total;
        Escribir "";
    FinPara
    Escribir "Valor de americanos: ", americanos;
    Escribir "Valor de asiaticos: ", asiaticos;
    Escribir "Valor de europeos: ", europeos;
    Escribir "Valor de total del pago realizado: ", total_del_pago_realizado;
FinProceso