• Lenguaje

    Pascal

  • Descripción

    Una asociación desea realizar una excursión a una playa del sur, por lo que debe determinar el costo de la excursión y cuanto le cuesta el viaje a cada asociado.
    La forma de cobro es la siguiente:
    - Si son más de 100 pasajeros el costo es de $650
    - De 50 a 100 personas, el costo es de $400
    - De 30 a 49, de $300
    - Si son menos de 30, el costo de renta del autobús es de $250
    Determinar el pago que se debe hacer a la compañía y cuál es el costo por persona.

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
program CostoDeUnaExcursion;
uses crt;

var costo_por_persona, pago, pasajeros : integer;
begin
    write ('Ingresa el valor de pasajeros: ');
    readln (pasajeros);
    costo_por_persona := 0;
    if pasajeros>100 then
        begin
            costo_por_persona := 650;
        end;
    if (pasajeros>=50) and (pasajeros<=100) then
        begin
            costo_por_persona := 400;
        end;
    if (pasajeros>=30) and (pasajeros<=49) then
        begin
            costo_por_persona := 300;
        end;
    if pasajeros<30 then
        begin
            costo_por_persona := 250;
        end;
    pago := costo_por_persona*pasajeros;
    writeln ('Valor de costo por persona: ', costo_por_persona);
    writeln ('Valor de pago: ', pago);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.