-
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
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.
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.