• Lenguaje

    Pascal

  • Descripción

    Un teatro otorga descuentos según la edad del cliente. Determinar la cantidad de dinero que el teatro deja de percibir por cada una de las categorías. Tomar en cuenta que los niños menores de 5 años no pueden entrar al teatro y que existe un precio único en los asientos. Los descuentos se hacen tomando en cuenta el siguiente cuadro:
    Categoría | Edad | Descuento
    1 | 5 - 14 | 35%
    2 | 15 - 19 | 25%
    3 | 20 - 45 | 10%
    4 | 46 - 65 | 25%
    5 | 66 en adelante | 35%

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

var descuento, descuentos_por_categoria_1, descuentos_por_categoria_2, descuentos_por_categoria_3, descuentos_por_categoria_4 : real;
var descuentos_por_categoria_5, edad, precio_unico : real;
var tecla_repetir : char;
begin
    descuentos_por_categoria_1 := 0;
    descuentos_por_categoria_2 := 0;
    descuentos_por_categoria_3 := 0;
    descuentos_por_categoria_4 := 0;
    descuentos_por_categoria_5 := 0;
    write ('Ingresa el valor de precio unico: ');
    readln (precio_unico);
    repeat
        clrscr;
        write ('Ingresa el valor de edad: ');
        readln (edad);
        descuento := 0;
        if edad<5 then
            begin
                writeln ('No puede entrar al teatro');
            end;
        if (edad>=5) and (edad<15) then
            begin
                descuento := precio_unico*0.35;
                descuentos_por_categoria_1 := descuentos_por_categoria_1+descuento;
            end;
        if (edad>=15) and (edad<20) then
            begin
                descuento := precio_unico*0.25;
                descuentos_por_categoria_2 := descuentos_por_categoria_2+descuento;
            end;
        if (edad>=20) and (edad<46) then
            begin
                descuento := precio_unico*0.1;
                descuentos_por_categoria_3 := descuentos_por_categoria_3+descuento;
            end;
        if (edad>=46) and (edad<66) then
            begin
                descuento := precio_unico*0.25;
                descuentos_por_categoria_4 := descuentos_por_categoria_4+descuento;
            end;
        if edad>=66 then
            begin
                descuento := precio_unico*0.35;
                descuentos_por_categoria_5 := descuentos_por_categoria_5+descuento;
            end;
        writeln ('Valor de descuento: ', descuento:0:6);
        writeln;
        write (#168'Deseas repetir el proceso? (S/N): ');
        repeat
            tecla_repetir := readkey;
        until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
    until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
    writeln ('Valor de descuentos por categoria 1: ', descuentos_por_categoria_1:0:6);
    writeln ('Valor de descuentos por categoria 2: ', descuentos_por_categoria_2:0:6);
    writeln ('Valor de descuentos por categoria 3: ', descuentos_por_categoria_3:0:6);
    writeln ('Valor de descuentos por categoria 4: ', descuentos_por_categoria_4:0:6);
    writeln ('Valor de descuentos por categoria 5: ', descuentos_por_categoria_5:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.