• Lenguaje

    Pascal

  • Descripción

    Calcular el tiempo transcurrido, en minutos, necesario para hacer un viaje. La ecuación es tiempo transcurrido = distancia total / velocidad promedio. Suponga que la distancia está en kilómetros y la velocidad en kilómetros/hora.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program MinutosParaUnViaje;
uses crt;

var distancia_total_en_km, tiempo_transcurrido_en_m, velocidad_promedio_en_kh : real;
begin
    write ('Ingresa el valor de distancia total en km: ');
    readln (distancia_total_en_km);
    write ('Ingresa el valor de velocidad promedio en kh: ');
    readln (velocidad_promedio_en_kh);
    tiempo_transcurrido_en_m := 60.0*distancia_total_en_km/velocidad_promedio_en_kh;
    writeln ('Valor de tiempo transcurrido en m: ', tiempo_transcurrido_en_m:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.