-
Lenguaje
Pascal
-
Descripción
Un estudio de abogados cobra $500 la primera hora de sus servicios y $300 a partir de la segunda hora en adelante. Diseñe un algoritmo que determine cuanto debe pagar un cliente por sus servicios de asesoramiento conociendo el tiempo que trabajo en horas, teniendo en cuenta estos items.
Si el costo del servicio se encuentra entre $1000 y $1500, entonces le corresponde un descuento del %15.
Si el costo del servicio se encuentra entre $600 y $900, entonces obtendra un descuento del 5%.
Mostrar el costo total a pagar y el descuento correspondiente.
Variables a utilizar: hs, desc, costo_t.
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
30
31
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
30
31
program EstudioDeAbogados;
uses crt;
var costo_t, desc, hs : integer;
begin
write ('Ingresa el valor de hs: ');
readln (hs);
if hs<2 then
begin
costo_t := 500*hs;
end
else
begin
costo_t := 500+(hs-1)*300;
end;
desc := 0;
if (costo_t>=1000) and (costo_t<=1500) then
begin
desc := 15*costo_t div 100;
end;
if (costo_t>=600) and (costo_t<=900) then
begin
desc := 5*costo_t div 100;
end;
costo_t := costo_t-desc;
writeln ('Valor de costo t: ', costo_t);
writeln ('Valor de desc: ', desc);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_t, desc, hs : integer;
begin
write ('Ingresa el valor de hs: ');
readln (hs);
if hs<2 then
begin
costo_t := 500*hs;
end
else
begin
costo_t := 500+(hs-1)*300;
end;
desc := 0;
if (costo_t>=1000) and (costo_t<=1500) then
begin
desc := 15*costo_t div 100;
end;
if (costo_t>=600) and (costo_t<=900) then
begin
desc := 5*costo_t div 100;
end;
costo_t := costo_t-desc;
writeln ('Valor de costo t: ', costo_t);
writeln ('Valor de desc: ', desc);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.