-
Lenguaje
Pascal
-
Descripción
Para un número determinado de personas se conoce su estatura, procedencia y edad. La estatura y la procedencia se manejan de acuerdo a las siguientes convenciones:
Estatura = 1 (Alta), 2 (Baja) o 3 (Mediana).
Procedencia = 1 (Americana), 2 (Europea), 3 (Asiática) u 4 (Otra).
Determinar: el número de americanos altos, europeos bajos y asiáticos medianos.
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
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
program EstaturaYProcedencia;
uses crt;
var americanos_altos, asiaticos_medianos, estatura, europeos_bajos, i : integer;
var n, procedencia : integer;
begin
americanos_altos := 0;
asiaticos_medianos := 0;
europeos_bajos := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de estatura: ');
readln (estatura);
write ('Ingresa el valor de procedencia: ');
readln (procedencia);
if (procedencia=1) and (estatura=1) then
begin
americanos_altos := americanos_altos+1;
end;
if (procedencia=2) and (estatura=2) then
begin
europeos_bajos := europeos_bajos+1;
end;
if (procedencia=3) and (estatura=3) then
begin
asiaticos_medianos := asiaticos_medianos+1;
end;
writeln;
end;
writeln ('Valor de americanos altos: ', americanos_altos);
writeln ('Valor de asiaticos medianos: ', asiaticos_medianos);
writeln ('Valor de europeos bajos: ', europeos_bajos);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var americanos_altos, asiaticos_medianos, estatura, europeos_bajos, i : integer;
var n, procedencia : integer;
begin
americanos_altos := 0;
asiaticos_medianos := 0;
europeos_bajos := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de estatura: ');
readln (estatura);
write ('Ingresa el valor de procedencia: ');
readln (procedencia);
if (procedencia=1) and (estatura=1) then
begin
americanos_altos := americanos_altos+1;
end;
if (procedencia=2) and (estatura=2) then
begin
europeos_bajos := europeos_bajos+1;
end;
if (procedencia=3) and (estatura=3) then
begin
asiaticos_medianos := asiaticos_medianos+1;
end;
writeln;
end;
writeln ('Valor de americanos altos: ', americanos_altos);
writeln ('Valor de asiaticos medianos: ', asiaticos_medianos);
writeln ('Valor de europeos bajos: ', europeos_bajos);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.