• Lenguaje

    Pascal

  • Descripción

    Determinar el precio de un pasaje ida y vuelta en colectivo, conociendo la distancia a recorrer y sabiendo que si el número de días de estadía es superior a los 7 dias y la distancia superior a 800 km el pasaje tiene una reducción del 15%. El precio por km es de $1.20
    - Calcular el precio del pasaje.
    - Mostrar un mensaje de advertencia en caso de que la distancia a recorrer no sea mayor a 800 km o la estadía no sea menor a 7 días.

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

var dias_de_estadia, distancia_en_km, precio_del_pasaje, reduccion : real;
begin
    write ('Ingresa el valor de dias de estadia: ');
    readln (dias_de_estadia);
    write ('Ingresa el valor de distancia en km: ');
    readln (distancia_en_km);
    precio_del_pasaje := distancia_en_km*1.2;
    if (dias_de_estadia>7) and (distancia_en_km>800) then
        begin
            reduccion := precio_del_pasaje*0.15;
        end
    else
        begin
            reduccion := 0;
        end;
    precio_del_pasaje := precio_del_pasaje-reduccion;
    if distancia_en_km>800 then
        begin
            writeln ('La distancia a recorrer no es mayor a 800 km.');
        end;
    if dias_de_estadia<=7 then
        begin
            writeln ('La estad'#161'a no es menor a 7 d'#161'as.');
        end;
    writeln ('Valor de precio del pasaje: ', precio_del_pasaje:0:6);
    writeln ('Valor de reduccion: ', reduccion:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.