-
Lenguaje
Pascal
-
Descripción
Una tienda vende tres tipos de productos cuyos códigos son 101, 102 y 103 a los precios unitarios dados en la siguiente tabla:
Unidades adquiridas | Descuento
1 a 10 | 5.0%
11 a 20 | 7.5%
Más de 21 | 10.0%
Como oferta la tienda ofrece un porcentaje de descuento sobre el importe de la compra de acuerdo a la siguiente tabla:
código | precio unitario
101 | 17.5
102 | 25.0
103 | 15.5
Diseñe un algoritmo que determine el importe de la compra, el importe del descuento y el importe a pagar por la compra de cierta cantidad de unidades de un mismo tipo de producto.
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program TiendaConTresTiposDeProductos;
uses crt;
var codigo, importe_a_pagar, importe_de_la_compra, importe_del_descuento, precio_unitario : real;
var unidades_adquiridas : real;
begin
write ('Ingresa el valor de codigo: ');
readln (codigo);
write ('Ingresa el valor de unidades adquiridas: ');
readln (unidades_adquiridas);
importe_del_descuento := 0;
precio_unitario := 0;
if codigo=101 then
begin
precio_unitario := 17.5;
end;
if codigo=102 then
begin
precio_unitario := 25.0;
end;
if codigo=103 then
begin
precio_unitario := 15.5;
end;
importe_de_la_compra := precio_unitario*unidades_adquiridas;
if (unidades_adquiridas>=1) and (unidades_adquiridas<=10) then
begin
importe_del_descuento := importe_de_la_compra*0.05;
end;
if (unidades_adquiridas>=11) and (unidades_adquiridas<=20) then
begin
importe_del_descuento := importe_de_la_compra*0.075;
end;
if unidades_adquiridas>=21 then
begin
importe_del_descuento := importe_de_la_compra*0.1;
end;
importe_a_pagar := importe_de_la_compra-importe_del_descuento;
writeln ('Valor de importe a pagar: ', importe_a_pagar:0:6);
writeln ('Valor de importe de la compra: ', importe_de_la_compra:0:6);
writeln ('Valor de importe del descuento: ', importe_del_descuento:0:6);
writeln ('Valor de precio unitario: ', precio_unitario:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var codigo, importe_a_pagar, importe_de_la_compra, importe_del_descuento, precio_unitario : real;
var unidades_adquiridas : real;
begin
write ('Ingresa el valor de codigo: ');
readln (codigo);
write ('Ingresa el valor de unidades adquiridas: ');
readln (unidades_adquiridas);
importe_del_descuento := 0;
precio_unitario := 0;
if codigo=101 then
begin
precio_unitario := 17.5;
end;
if codigo=102 then
begin
precio_unitario := 25.0;
end;
if codigo=103 then
begin
precio_unitario := 15.5;
end;
importe_de_la_compra := precio_unitario*unidades_adquiridas;
if (unidades_adquiridas>=1) and (unidades_adquiridas<=10) then
begin
importe_del_descuento := importe_de_la_compra*0.05;
end;
if (unidades_adquiridas>=11) and (unidades_adquiridas<=20) then
begin
importe_del_descuento := importe_de_la_compra*0.075;
end;
if unidades_adquiridas>=21 then
begin
importe_del_descuento := importe_de_la_compra*0.1;
end;
importe_a_pagar := importe_de_la_compra-importe_del_descuento;
writeln ('Valor de importe a pagar: ', importe_a_pagar:0:6);
writeln ('Valor de importe de la compra: ', importe_de_la_compra:0:6);
writeln ('Valor de importe del descuento: ', importe_del_descuento:0:6);
writeln ('Valor de precio unitario: ', precio_unitario:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.