-
Lenguaje
Pascal
-
Descripción
En un estacionamiento, se cobra $2.50 por hora o fracción de hora (la fracción se considera cuando se pasa de un minuto). Dado el tiempo de estacionamiento de un vehículo expresado en total de minutos, determine el importe a pagar por concepto de estacionamiento.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program CobroPorEstacionamiento;
uses crt;
var cobro, tiempo_en_minutos : real;
begin
write ('Ingresa el valor de tiempo en minutos: ');
readln (tiempo_en_minutos);
cobro := 2.5*(tiempo_en_minutos-tiempo_en_minutos mod 60)/60;
if tiempo_en_minutos mod 60<>0 then
begin
cobro := cobro+2.5;
end;
writeln ('Valor de cobro: ', cobro:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cobro, tiempo_en_minutos : real;
begin
write ('Ingresa el valor de tiempo en minutos: ');
readln (tiempo_en_minutos);
cobro := 2.5*(tiempo_en_minutos-tiempo_en_minutos mod 60)/60;
if tiempo_en_minutos mod 60<>0 then
begin
cobro := cobro+2.5;
end;
writeln ('Valor de cobro: ', cobro:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.