-
Lenguaje
Pascal
-
Descripción
Realice un menú para ir a ver un partido de fútbol donde elija la localidad:
- Sol norte precio de la entrada será de $350 y pedirá cuántas entradas comprará.
- Sol sur precio de entrada será de $350 y pedirá cuántas entradas comprará.
- Si es preferente el precio de la entrada será $700 y pedirá cuántas entradas compra.
- Si es silla el precio de la entrada será de $900 y pedirá cuántas entrada comprará.
- Si es palco el precio será de $1,500 y pedirá cuántas entradas comprará
Para todas las localidades si la persona es de la tercera edad se le aplicará un descuento de 35% de igual forma si compra más de cinco entradas descuento de 5%.
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
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
program LocalidadDeUnPartido;
uses crt;
var localidad : integer;
var descuento, edad, entradas, precio, subtotal : real;
var total : real;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de entradas: ');
readln (entradas);
precio := 0;
descuento := 0;
writeln ('Selecciona el valor de localidad.');
writeln (' 1.- Sol norte');
writeln (' 2.- Sol sur');
writeln (' 3.- Preferente');
writeln (' 4.- Silla');
writeln (' 5.- Palco');
write (' : ');
repeat
readln (localidad);
if (localidad<1) or (localidad>5) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (localidad>=1) and (localidad<=5);
if (localidad=1) or (localidad=2) then
begin
precio := 350;
end;
if localidad=3 then
begin
precio := 700;
end;
if localidad=4 then
begin
precio := 900;
end;
if localidad=5 then
begin
precio := 1500;
end;
subtotal := precio*entradas;
if edad>=65 then
begin
descuento := subtotal*0.35;
end;
if entradas>5 then
begin
descuento := descuento+subtotal*0.05;
end;
total := subtotal-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de precio: ', precio:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var localidad : integer;
var descuento, edad, entradas, precio, subtotal : real;
var total : real;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de entradas: ');
readln (entradas);
precio := 0;
descuento := 0;
writeln ('Selecciona el valor de localidad.');
writeln (' 1.- Sol norte');
writeln (' 2.- Sol sur');
writeln (' 3.- Preferente');
writeln (' 4.- Silla');
writeln (' 5.- Palco');
write (' : ');
repeat
readln (localidad);
if (localidad<1) or (localidad>5) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (localidad>=1) and (localidad<=5);
if (localidad=1) or (localidad=2) then
begin
precio := 350;
end;
if localidad=3 then
begin
precio := 700;
end;
if localidad=4 then
begin
precio := 900;
end;
if localidad=5 then
begin
precio := 1500;
end;
subtotal := precio*entradas;
if edad>=65 then
begin
descuento := subtotal*0.35;
end;
if entradas>5 then
begin
descuento := descuento+subtotal*0.05;
end;
total := subtotal-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de precio: ', precio:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.