-
Lenguaje
Pascal
-
Descripción
Pida el ingreso del precio de un artículo y la cantidad que lleva el cliente para calcular su monto. Si el monto es menor a $1,000 aplicar 4.25% de descuento, sino aplicar 6% de descuento. Luego imprimir en pantalla su monto, descuento y total a pagar. Tómese en cuenta que el total a pagar = monto - descuento.
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
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
program DescuentoEnArticulos;
uses crt;
var cantidad, descuento, monto, precio, total_a_pagar : real;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de precio: ');
readln (precio);
monto := precio*cantidad;
if monto<1000 then
begin
descuento := monto*0.0425;
end
else
begin
descuento := monto*0.06;
end;
total_a_pagar := monto-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de monto: ', monto: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 cantidad, descuento, monto, precio, total_a_pagar : real;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de precio: ');
readln (precio);
monto := precio*cantidad;
if monto<1000 then
begin
descuento := monto*0.0425;
end
else
begin
descuento := monto*0.06;
end;
total_a_pagar := monto-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de monto: ', monto:0:6);
writeln ('Valor de total a pagar: ', total_a_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.