-
Lenguaje
Pascal
-
Descripción
En un estacionamiento cobran $1.50 por hora o fracción. Determine cuanto debe pagar un cliente por el estacionamiento de su vehículo, conociendo el tiempo de estacionamiento en horas y minutos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program PagoEnUnEstacionamiento;
uses crt;
var horas, minutos, pago : real;
begin
write ('Ingresa el valor de horas: ');
readln (horas);
write ('Ingresa el valor de minutos: ');
readln (minutos);
pago := horas*1.5;
if minutos>0 then
begin
pago := pago+1.5;
end;
writeln ('Valor de pago: ', pago:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas, minutos, pago : real;
begin
write ('Ingresa el valor de horas: ');
readln (horas);
write ('Ingresa el valor de minutos: ');
readln (minutos);
pago := horas*1.5;
if minutos>0 then
begin
pago := pago+1.5;
end;
writeln ('Valor de pago: ', pago:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.