-
Lenguaje
Pascal
-
Descripción
La empresa Los Portales necesita que se elabore un algoritmo que permita calcular la tarifa que debe pagar un usuario de sus cocheras ingresando la cantidad de horas que ha dejado su automóvil estacionado. Para ello se sabe que las primeras cuatro horas tienen un valor de 6 soles y a partir de la quinta hora se cobrará 3 soles por hora.
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 EstacionamientoLosPortales;
uses crt;
var horas, tarifa : integer;
begin
write ('Ingresa el valor de horas: ');
readln (horas);
if horas<=4 then
begin
tarifa := horas*6;
end
else
begin
tarifa := 4*6+(horas-4)*3;
end;
writeln ('Valor de tarifa: ', tarifa);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var horas, tarifa : integer;
begin
write ('Ingresa el valor de horas: ');
readln (horas);
if horas<=4 then
begin
tarifa := horas*6;
end
else
begin
tarifa := 4*6+(horas-4)*3;
end;
writeln ('Valor de tarifa: ', tarifa);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.