• Lenguaje

    Pascal

  • Descripción

    Se ingresan el nombre, el sexo (Masculino o Femenino), la edad y el tipo de película que prefiere ver (Comedias, Documentales, y Acción) de 500 personas para conocer gustos sobre películas.
    Informar:
    a) El porcentaje de personas que prefieren peliculas de acción.
    b) La cantidad de mujeres que prefieren ver documentales.
    c) El promedio de edad de las mujeres que prefieren ver comedias.

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
program TiposDePelicula;
uses crt;

var cantidad_mujeres_comedia, cantidad_mujeres_documentales, cantidad_personas_accion, edad, i : integer;
var sexo, tipo_de_pelicula : integer;
var porcentaje_personas_accion, promedio_mujeres_comedia : real;
begin
    cantidad_mujeres_comedia := 0;
    cantidad_mujeres_documentales := 0;
    cantidad_personas_accion := 0;
    porcentaje_personas_accion := 0;
    promedio_mujeres_comedia := 0;
    for i:=1 to 500 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de edad: ');
        readln (edad);
        writeln ('Selecciona el valor de sexo.');
        writeln ('    1.- Masculino');
        writeln ('    2.- Femenino');
        write ('    : ');
        repeat
            readln (sexo);
            if (sexo<1) or (sexo>2) then
                write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
        until (sexo>=1) and (sexo<=2);
        writeln ('Selecciona el valor de tipo de pelicula.');
        writeln ('    1.- Comedias');
        writeln ('    2.- Documentales');
        writeln ('    3.- Acci'#162'n');
        write ('    : ');
        repeat
            readln (tipo_de_pelicula);
            if (tipo_de_pelicula<1) or (tipo_de_pelicula>3) then
                write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
        until (tipo_de_pelicula>=1) and (tipo_de_pelicula<=3);
        if tipo_de_pelicula=3 then
            begin
                cantidad_personas_accion := cantidad_personas_accion+1;
            end;
        if (sexo=2) and (tipo_de_pelicula=2) then
            begin
                cantidad_mujeres_documentales := cantidad_mujeres_documentales+1;
            end;
        if (sexo=2) and (tipo_de_pelicula=1) then
            begin
                cantidad_mujeres_comedia := cantidad_mujeres_comedia+1;
                promedio_mujeres_comedia := promedio_mujeres_comedia+edad;
            end;
        writeln;
    end;
    porcentaje_personas_accion := 100.0*cantidad_personas_accion/500;
    if cantidad_mujeres_comedia = 0 then
        promedio_mujeres_comedia := 0
    else
        promedio_mujeres_comedia := promedio_mujeres_comedia/cantidad_mujeres_comedia;
    writeln ('Valor de cantidad mujeres comedia: ', cantidad_mujeres_comedia);
    writeln ('Valor de cantidad mujeres documentales: ', cantidad_mujeres_documentales);
    writeln ('Valor de cantidad personas accion: ', cantidad_personas_accion);
    writeln ('Valor de porcentaje personas accion: ', porcentaje_personas_accion:0:6);
    writeln ('Valor de promedio mujeres comedia: ', promedio_mujeres_comedia:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.