-
Lenguaje
Pascal
-
Descripción
Bonafont una empresa dedicada a la venta de agua embotellada necesita hacer un cálculo del tiempo que tardara un empleado en cubrir una ruta y cuantos litros de gasolina consume: el usuario ingresa el total de KM por recorrer, mostrar el tiempo que tarda en cubrir la ruta y el número de litros a consumir de gasolina tomando en cuenta que el chofer recorre 70 KM por hora y un litro de gasolina le rinde 14.5 KM.
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 RutaDeUnEmpleadoDeBonafont;
uses crt;
var horas_en_cubrir_ruta, km_por_recorrer, litros_de_gasolina_consumidos : real;
begin
write ('Ingresa el valor de km por recorrer: ');
readln (km_por_recorrer);
horas_en_cubrir_ruta := 70.0/km_por_recorrer;
litros_de_gasolina_consumidos := km_por_recorrer/14.5;
writeln ('Valor de horas en cubrir ruta: ', horas_en_cubrir_ruta:0:6);
writeln ('Valor de litros de gasolina consumidos: ', litros_de_gasolina_consumidos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas_en_cubrir_ruta, km_por_recorrer, litros_de_gasolina_consumidos : real;
begin
write ('Ingresa el valor de km por recorrer: ');
readln (km_por_recorrer);
horas_en_cubrir_ruta := 70.0/km_por_recorrer;
litros_de_gasolina_consumidos := km_por_recorrer/14.5;
writeln ('Valor de horas en cubrir ruta: ', horas_en_cubrir_ruta:0:6);
writeln ('Valor de litros de gasolina consumidos: ', litros_de_gasolina_consumidos:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.