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