Entrada para un partido de futbol en lenguaje Pascal

Lenguaje

Pascal
Descripción

Se pone a la ventas las entrada para un partido de futbol internacional cuyo precio depende de la tribuna.
Tribuna norte y sur cuesta 25$.
Tribuna oriental cuesta 45 $.
Tribuna occidente cuesta 65$.
Un programa que controles las ventas de dichas entradas a fin de poder saber la cantidad de personas que asiste a cada tribuna la cantidad total de persona y el monto recaudado por ventas de todas las entradas.

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

program EntradaParaUnPartidoDeFutbol;

uses crt;

var cantidad_de_personas, monto_recaudado, personas_en_tribuna_norte, personas_en_tribuna_occidente, personas_en_tribuna_oriente : integer;

var personas_en_tribuna_sur, precio, tribuna : integer;

var tecla_repetir : char;

begin

    cantidad_de_personas := 0;

    monto_recaudado := 0;

    personas_en_tribuna_norte := 0;

    personas_en_tribuna_occidente := 0;

    personas_en_tribuna_oriente := 0;

    personas_en_tribuna_sur := 0;

    repeat

        clrscr;

        writeln ('Selecciona el valor de tribuna.');

        writeln ('    1.- Norte');

        writeln ('    2.- Occidente');

        writeln ('    3.- Oriente');

        writeln ('    4.- Sur');

        write ('    : ');

        repeat

            readln (tribuna);

            if (tribuna<1) or (tribuna>4) then

                write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');

        until (tribuna>=1) and (tribuna<=4);

        precio := 0;

        if tribuna=1 then

            begin

                precio := 25;

                personas_en_tribuna_norte := personas_en_tribuna_norte+1;

            end;

        if tribuna=2 then

            begin

                precio := 65;

                personas_en_tribuna_occidente := personas_en_tribuna_occidente+1;

            end;

        if tribuna=3 then

            begin

                precio := 45;

                personas_en_tribuna_oriente := personas_en_tribuna_oriente+1;

            end;

        if tribuna=4 then

            begin

                precio := 25;

                personas_en_tribuna_sur := personas_en_tribuna_sur+1;

            end;

        cantidad_de_personas := cantidad_de_personas+1;

        monto_recaudado := monto_recaudado+precio;

        writeln ('Valor de precio: ', precio);

        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 cantidad de personas: ', cantidad_de_personas);

    writeln ('Valor de monto recaudado: ', monto_recaudado);

    writeln ('Valor de personas en tribuna norte: ', personas_en_tribuna_norte);

    writeln ('Valor de personas en tribuna occidente: ', personas_en_tribuna_occidente);

    writeln ('Valor de personas en tribuna oriente: ', personas_en_tribuna_oriente);

    writeln ('Valor de personas en tribuna sur: ', personas_en_tribuna_sur);

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.