-
Lenguaje
Pascal
-
Descripción
Una empresa alquila trajes formales y el costo del alquiler por los primeros 2 días es de $60,000 por día. Los días por encima de 2 hasta 5 se cobran a $50,000. Los días adicionales por encima de 5 tienen un costo de $40,000.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program AlquilerDeTrajes;
uses crt;
var costo, dias : real;
begin
write ('Ingresa el valor de dias: ');
readln (dias);
costo := 0;
if (dias>0) and (dias<=2) then
begin
costo := dias*60000;
end;
if (dias>2) and (dias<=5) then
begin
costo := 2*60000+(dias-2)*50000;
end;
if dias>5 then
begin
costo := 2*60000+3*50000+(dias-5)*40000;
end;
writeln ('Valor de costo: ', costo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo, dias : real;
begin
write ('Ingresa el valor de dias: ');
readln (dias);
costo := 0;
if (dias>0) and (dias<=2) then
begin
costo := dias*60000;
end;
if (dias>2) and (dias<=5) then
begin
costo := 2*60000+(dias-2)*50000;
end;
if dias>5 then
begin
costo := 2*60000+3*50000+(dias-5)*40000;
end;
writeln ('Valor de costo: ', costo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.