-
Lenguaje
Pascal
-
Descripción
Una cadena de cines tiene "n" clientes y cada uno tiene un tipo de tarjeta (Blak, Gold, Silver). Cada cliente un boleto que tiene 3 posibles precios (15, 20 o 25 pesos) para una función. Para cada cliente se debe ingresar precio de boleto comprado y su tipo de tarjeta.
1. Ingreso de datos
2. Calcular el total recaudado en la función.
3. Calcular total recaudado por cada de Tarjeta.
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
65
66
67
68
69
70
71
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
65
66
67
68
69
70
71
program RecaudacionEnUnaCadenaDeCines;
uses crt;
var i, n, precio, precio_del_boleto, recaudado_blak : integer;
var recaudado_gold, recaudado_silver, tipo_de_tarjeta, total_recaudado : integer;
begin
recaudado_blak := 0;
recaudado_gold := 0;
recaudado_silver := 0;
total_recaudado := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
writeln ('Selecciona el valor de tipo de tarjeta.');
writeln (' 1.- Blak');
writeln (' 2.- Gold');
writeln (' 3.- Silver');
write (' : ');
repeat
readln (tipo_de_tarjeta);
if (tipo_de_tarjeta<1) or (tipo_de_tarjeta>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (tipo_de_tarjeta>=1) and (tipo_de_tarjeta<=3);
writeln ('Selecciona el valor de precio del boleto.');
writeln (' 1.- 15');
writeln (' 2.- 20');
writeln (' 3.- 25');
write (' : ');
repeat
readln (precio_del_boleto);
if (precio_del_boleto<1) or (precio_del_boleto>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (precio_del_boleto>=1) and (precio_del_boleto<=3);
precio := 0;
if precio_del_boleto=1 then
begin
precio := 15;
end;
if precio_del_boleto=2 then
begin
precio := 20;
end;
if precio_del_boleto=3 then
begin
precio := 25;
end;
if tipo_de_tarjeta=1 then
begin
recaudado_blak := recaudado_blak+precio;
end;
if tipo_de_tarjeta=2 then
begin
recaudado_gold := recaudado_gold+precio;
end;
if tipo_de_tarjeta=3 then
begin
recaudado_silver := recaudado_silver+precio;
end;
total_recaudado := total_recaudado+precio;
writeln ('Valor de precio: ', precio);
writeln;
end;
writeln ('Valor de recaudado blak: ', recaudado_blak);
writeln ('Valor de recaudado gold: ', recaudado_gold);
writeln ('Valor de recaudado silver: ', recaudado_silver);
writeln ('Valor de total recaudado: ', total_recaudado);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, n, precio, precio_del_boleto, recaudado_blak : integer;
var recaudado_gold, recaudado_silver, tipo_de_tarjeta, total_recaudado : integer;
begin
recaudado_blak := 0;
recaudado_gold := 0;
recaudado_silver := 0;
total_recaudado := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
writeln ('Selecciona el valor de tipo de tarjeta.');
writeln (' 1.- Blak');
writeln (' 2.- Gold');
writeln (' 3.- Silver');
write (' : ');
repeat
readln (tipo_de_tarjeta);
if (tipo_de_tarjeta<1) or (tipo_de_tarjeta>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (tipo_de_tarjeta>=1) and (tipo_de_tarjeta<=3);
writeln ('Selecciona el valor de precio del boleto.');
writeln (' 1.- 15');
writeln (' 2.- 20');
writeln (' 3.- 25');
write (' : ');
repeat
readln (precio_del_boleto);
if (precio_del_boleto<1) or (precio_del_boleto>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (precio_del_boleto>=1) and (precio_del_boleto<=3);
precio := 0;
if precio_del_boleto=1 then
begin
precio := 15;
end;
if precio_del_boleto=2 then
begin
precio := 20;
end;
if precio_del_boleto=3 then
begin
precio := 25;
end;
if tipo_de_tarjeta=1 then
begin
recaudado_blak := recaudado_blak+precio;
end;
if tipo_de_tarjeta=2 then
begin
recaudado_gold := recaudado_gold+precio;
end;
if tipo_de_tarjeta=3 then
begin
recaudado_silver := recaudado_silver+precio;
end;
total_recaudado := total_recaudado+precio;
writeln ('Valor de precio: ', precio);
writeln;
end;
writeln ('Valor de recaudado blak: ', recaudado_blak);
writeln ('Valor de recaudado gold: ', recaudado_gold);
writeln ('Valor de recaudado silver: ', recaudado_silver);
writeln ('Valor de total recaudado: ', total_recaudado);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.