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