-
Lenguaje
Pascal
-
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
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
89
90
91
92
93
94
95
96
97
98
99
100
101
uses crt;
var americanos, asiaticos, europeos, i, n : integer;
var pais : integer;
var dias, pago_total, total_del_pago_realizado : real;
begin
americanos := 0;
asiaticos := 0;
europeos := 0;
total_del_pago_realizado := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de dias: ');
readln (dias);
writeln ('Selecciona el valor de pais.');
writeln (' 1.- Espa'#164'a');
writeln (' 2.- Estados Unidos');
writeln (' 3.- Alemania');
writeln (' 4.- China');
writeln (' 5.- Brasil');
writeln (' 6.- Argentina');
writeln (' 7.- Per'#163);
writeln (' 8.- Chile');
writeln (' 9.- Francia');
write (' : ');
repeat
readln (pais);
if (pais<1) or (pais>9) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (pais>=1) and (pais<=9);
pago_total := 0;
writeln ('Olimpiadas Tokio 2020');
if pais=1 then
begin
pago_total := dias*20.1;
writeln ('Pa'#161's origen: Espa'#164'a');
europeos := europeos+1;
end;
if pais=2 then
begin
pago_total := dias*22.3;
writeln ('Pa'#161's origen: Estados Unidos');
americanos := americanos+1;
end;
if pais=3 then
begin
pago_total := dias*24.7;
writeln ('Pa'#161's origen: Alemania');
europeos := europeos+1;
end;
if pais=4 then
begin
pago_total := dias*15.1;
writeln ('Pa'#161's origen: China');
asiaticos := asiaticos+1;
end;
if pais=5 then
begin
pago_total := dias*17.4;
writeln ('Pa'#161's origen: Brasil');
americanos := americanos+1;
end;
if pais=6 then
begin
pago_total := dias*15.1;
writeln ('Pa'#161's origen: Argentina');
americanos := americanos+1;
end;
if pais=7 then
begin
pago_total := dias*16.1;
writeln ('Pa'#161's origen: Per'#163);
americanos := americanos+1;
end;
if pais=8 then
begin
pago_total := dias*17.4;
writeln ('Pa'#161's origen: Chile');
americanos := americanos+1;
end;
if pais=9 then
begin
pago_total := dias*10.0;
writeln ('Pa'#161's origen: Francia');
europeos := europeos+1;
end;
total_del_pago_realizado := total_del_pago_realizado+pago_total;
writeln ('Valor de pago total: ', pago_total:0:6);
writeln;
end;
writeln ('Valor de americanos: ', americanos);
writeln ('Valor de asiaticos: ', asiaticos);
writeln ('Valor de europeos: ', europeos);
writeln ('Valor de total del pago realizado: ', total_del_pago_realizado:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.