• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Pida el total de kilómetros recorridos, el precio de la gasolina (por litro), el dinero de gasolina gastado en el viaje y el tiempo que se ha tardado (en horas y minutos) y que calcule:
    - Consumo de gasolina (en litros y pesos) por cada 100 km.
    - Consumo de gasolina (en litros y pesos) por cada km.
    - Velocidad media (en km/h y m/s).

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Proceso ConsumoDeGasolinaDeUnViaje
    Escribir Sin Saltar "Ingresa el valor de dinero de gasolina gastado:";
    Leer dinero_de_gasolina_gastado;
    Escribir Sin Saltar "Ingresa el valor de km recorridos:";
    Leer km_recorridos;
    Escribir Sin Saltar "Ingresa el valor de precio de la gasolina:";
    Leer precio_de_la_gasolina;
    Escribir Sin Saltar "Ingresa el valor de tiempo en horas:";
    Leer tiempo_en horas;
    Escribir Sin Saltar "Ingresa el valor de tiempo en minutos:";
    Leer tiempo_en minutos;
    consumo_de_gasolina_por_km_en_pesos <- dinero_de_gasolina_gastado/km_recorridos;
    consumo_de_gasolina_por_km_en_litros <- consumo_de_gasolina_por_km_en_pesos*precio_de_la_gasolina;
    consumo_de_gasolina_por_cada_100_km_en_pesos <- consumo_de_gasolina_por_km_en_pesos*100;
    consumo_de_gasolina_por_cada_100_km_en_litros <- consumo_de_gasolina_por_km_en_litros*100;
    velocidad_media_en_km_h <- km_recorridos/(tiempo_en horas+tiempo_en minutos/60);
    velocidad_media_en_m_s <- km_recorridos*1000/(tiempo_en horas*60*60+tiempo_en minutos*60);
    Escribir "Valor de consumo de gasolina por cada 100 km en litros: ", consumo_de_gasolina_por_cada_100_km_en_litros;
    Escribir "Valor de consumo de gasolina por cada 100 km en pesos: ", consumo_de_gasolina_por_cada_100_km_en_pesos;
    Escribir "Valor de consumo de gasolina por km en litros: ", consumo_de_gasolina_por_km_en_litros;
    Escribir "Valor de consumo de gasolina por km en pesos: ", consumo_de_gasolina_por_km_en_pesos;
    Escribir "Valor de velocidad media en km h: ", velocidad_media_en_km_h;
    Escribir "Valor de velocidad media en m s: ", velocidad_media_en_m_s;
FinProceso