-
Lenguaje
Pascal
-
Descripción
En una sala de cine muy conocida, desean hacer uso de la tecnología para el manejo de la boletería. Para esto, le cuentan a usted los siguientes datos al respecto del costo de las boletas:
- Primera clase, costo igual a $5,500 si es de Lunes a Jueves.
- Segunda clase, costo igual a $2,500 si es de Lunes a Jueves.
- Si es un viernes, sábado o domingo, el costo es de $1,500 sin importar la clase.
- Si es un estudiante y el día es un miércoles o un jueves le hacen un descuento de $500.
Con todo esto, hay que decirle a una persona en cuánto le sale el costo de su boleta.
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
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
program ManejoDeBoleteria;
uses crt;
var clase, costo, descuento, dia, estudiante : integer;
begin
costo := 1500;
descuento := 0;
writeln ('Selecciona el valor de clase.');
writeln (' 1.- Primera');
writeln (' 2.- Segunda');
write (' : ');
repeat
readln (clase);
if (clase<1) or (clase>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (clase>=1) and (clase<=2);
writeln ('Selecciona el valor de dia.');
writeln (' 1.- Domingo');
writeln (' 2.- Lunes');
writeln (' 3.- Martes');
writeln (' 4.- Mi'#130'rcoles');
writeln (' 5.- Jueves');
writeln (' 6.- Viernes');
writeln (' 7.- S'#160'bado');
write (' : ');
repeat
readln (dia);
if (dia<1) or (dia>7) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (dia>=1) and (dia<=7);
writeln ('Selecciona el valor de estudiante.');
writeln (' 1.- Si');
writeln (' 2.- No');
write (' : ');
repeat
readln (estudiante);
if (estudiante<1) or (estudiante>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (estudiante>=1) and (estudiante<=2);
if (clase=1) and ((dia=2) or (dia=3) or (dia=4) or (dia=5)) then
begin
costo := 5500;
end;
if (clase=2) and ((dia=2) or (dia=3) or (dia=4) or (dia=5)) then
begin
costo := 2500;
end;
if (estudiante=1) and ((dia=4) or (dia=5)) then
begin
descuento := 500;
end;
costo := costo-descuento;
writeln ('Valor de costo: ', costo);
writeln ('Valor de descuento: ', descuento);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var clase, costo, descuento, dia, estudiante : integer;
begin
costo := 1500;
descuento := 0;
writeln ('Selecciona el valor de clase.');
writeln (' 1.- Primera');
writeln (' 2.- Segunda');
write (' : ');
repeat
readln (clase);
if (clase<1) or (clase>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (clase>=1) and (clase<=2);
writeln ('Selecciona el valor de dia.');
writeln (' 1.- Domingo');
writeln (' 2.- Lunes');
writeln (' 3.- Martes');
writeln (' 4.- Mi'#130'rcoles');
writeln (' 5.- Jueves');
writeln (' 6.- Viernes');
writeln (' 7.- S'#160'bado');
write (' : ');
repeat
readln (dia);
if (dia<1) or (dia>7) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (dia>=1) and (dia<=7);
writeln ('Selecciona el valor de estudiante.');
writeln (' 1.- Si');
writeln (' 2.- No');
write (' : ');
repeat
readln (estudiante);
if (estudiante<1) or (estudiante>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (estudiante>=1) and (estudiante<=2);
if (clase=1) and ((dia=2) or (dia=3) or (dia=4) or (dia=5)) then
begin
costo := 5500;
end;
if (clase=2) and ((dia=2) or (dia=3) or (dia=4) or (dia=5)) then
begin
costo := 2500;
end;
if (estudiante=1) and ((dia=4) or (dia=5)) then
begin
descuento := 500;
end;
costo := costo-descuento;
writeln ('Valor de costo: ', costo);
writeln ('Valor de descuento: ', descuento);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.