-
Lenguaje
Pascal
-
Descripción
El dueño de un estacionamiento requiere un programa que le permita determinar cuánto debe cobrar por el uso del estacionamiento de sus clientes. Las tarifas que se tiene son las siguientes:
Las dos primeras horas a $5. 00 c/u.
Las siguientes tres horas a $4. 00 c/u.
Las cinco siguientes a $3. 00 c/u.
Después de las diez horas el costo por cada una es de $1. 00 c/u.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program CobroPorHorasDeEstacionamiento2;
uses crt;
var cobro, horas : integer;
begin
write ('Ingresa el valor de horas: ');
readln (horas);
cobro := 0;
if horas<=2 then
begin
cobro := horas*5;
end;
if (horas>2) and (horas<=5) then
begin
cobro := 2*5+(horas-2)*4;
end;
if (horas>5) and (horas<=10) then
begin
cobro := 2*5+3*4+(horas-5)*3;
end;
if horas>10 then
begin
cobro := 2*5+3*4+5*3+(horas-10);
end;
writeln ('Valor de cobro: ', cobro);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cobro, horas : integer;
begin
write ('Ingresa el valor de horas: ');
readln (horas);
cobro := 0;
if horas<=2 then
begin
cobro := horas*5;
end;
if (horas>2) and (horas<=5) then
begin
cobro := 2*5+(horas-2)*4;
end;
if (horas>5) and (horas<=10) then
begin
cobro := 2*5+3*4+(horas-5)*3;
end;
if horas>10 then
begin
cobro := 2*5+3*4+5*3+(horas-10);
end;
writeln ('Valor de cobro: ', cobro);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.