• 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
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.