-
Lenguaje
Pascal
-
Descripción
Permita ingresar el valor de una compra y si el valor es mayor o igual a $500, se hace un descuento del 30%. Por un monto menor de $500 pero mayor o igual a $200, si se hace un descuento del 20%. Por un monto menor de $200 pero mayor o igual a $100, se hace un descuento del 10%.
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
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
program DescuentoEnUnaCompra;
uses crt;
var descuento, total, una_compra : real;
begin
write ('Ingresa el valor de una compra: ');
readln (una_compra);
descuento := 0;
if una_compra>=500 then
begin
descuento := una_compra*0.3;
end;
if (una_compra<500) and (una_compra>=200) then
begin
descuento := una_compra*0.2;
end;
if (una_compra<200) and (una_compra>=100) then
begin
descuento := una_compra*0.1;
end;
total := una_compra-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var descuento, total, una_compra : real;
begin
write ('Ingresa el valor de una compra: ');
readln (una_compra);
descuento := 0;
if una_compra>=500 then
begin
descuento := una_compra*0.3;
end;
if (una_compra<500) and (una_compra>=200) then
begin
descuento := una_compra*0.2;
end;
if (una_compra<200) and (una_compra>=100) then
begin
descuento := una_compra*0.1;
end;
total := una_compra-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.