-
Lenguaje
Pascal
-
Descripción
Diunsa tiene en oferta los productos de sus tiendas con 40% de descuento por compras mayores a 20000 y pagando con su tarjeta Diunsa obtiene un 20% adicional.
Elabore un algoritmo que solicite el valor de compra, el tipo de pago (Tarjeta crédito, Tarjeta crédito Diunsa ó Efectivo) y calcule:
El descuento aplicado.
El impuesto sobre ventas (15%).
El total a pagar.
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
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
program Diunsa;
uses crt;
var tipo_de_pago : integer;
var compra, descuento, impuesto, total_a_pagar : real;
begin
write ('Ingresa el valor de compra: ');
readln (compra);
writeln ('Selecciona el valor de tipo de pago.');
writeln (' 1.- Tarjeta cr'#130'dito');
writeln (' 2.- Tarjeta cr'#130'dito Diunsa');
writeln (' 3.- Efectivo');
write (' : ');
repeat
readln (tipo_de_pago);
if (tipo_de_pago<1) or (tipo_de_pago>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (tipo_de_pago>=1) and (tipo_de_pago<=3);
descuento := 0;
if compra>20000 then
begin
descuento := compra*0.4;
end;
if tipo_de_pago=2 then
begin
descuento := descuento+compra*0.2;
end;
impuesto := (compra-descuento)*0.15;
total_a_pagar := compra-descuento+impuesto;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de impuesto: ', impuesto:0:6);
writeln ('Valor de total a pagar: ', total_a_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var tipo_de_pago : integer;
var compra, descuento, impuesto, total_a_pagar : real;
begin
write ('Ingresa el valor de compra: ');
readln (compra);
writeln ('Selecciona el valor de tipo de pago.');
writeln (' 1.- Tarjeta cr'#130'dito');
writeln (' 2.- Tarjeta cr'#130'dito Diunsa');
writeln (' 3.- Efectivo');
write (' : ');
repeat
readln (tipo_de_pago);
if (tipo_de_pago<1) or (tipo_de_pago>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (tipo_de_pago>=1) and (tipo_de_pago<=3);
descuento := 0;
if compra>20000 then
begin
descuento := compra*0.4;
end;
if tipo_de_pago=2 then
begin
descuento := descuento+compra*0.2;
end;
impuesto := (compra-descuento)*0.15;
total_a_pagar := compra-descuento+impuesto;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de impuesto: ', impuesto:0:6);
writeln ('Valor de total a pagar: ', total_a_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.