-
Lenguaje
Pascal
-
Descripción
Calcular el costo del servicio de mudanza, de acuerdo a la distancia entre el punto de partida y de llegada. Para calcular el costo se debe tener en cuenta: Si la distancia por cada viaje es mayor o igual a 5 km, se cobrará S/. 7.00 por kilómetro, de lo contrario se cobrará el monto básico que es de S/. 25.00.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program CostoDelServicioDeMudanza;
uses crt;
var costo_del_servicio, distancia_en_km : real;
begin
write ('Ingresa el valor de distancia en km: ');
readln (distancia_en_km);
if distancia_en_km>=5 then
begin
costo_del_servicio := 7.0*distancia_en_km;
end
else
begin
costo_del_servicio := 25.0*distancia_en_km;
end;
writeln ('Valor de costo del servicio: ', costo_del_servicio:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_del_servicio, distancia_en_km : real;
begin
write ('Ingresa el valor de distancia en km: ');
readln (distancia_en_km);
if distancia_en_km>=5 then
begin
costo_del_servicio := 7.0*distancia_en_km;
end
else
begin
costo_del_servicio := 25.0*distancia_en_km;
end;
writeln ('Valor de costo del servicio: ', costo_del_servicio:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.