-
Lenguaje
Pascal
-
Descripción
Un supermercado aplica un descuento sólo para sus clientes cuyo monto de compra es mayor de S/. 2000; en este caso se le hará un descuento del 15%. El algoritmo debe calcular el monto final a pagar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program DescuentoEnUnSupermercado2;
uses crt;
var descuento, monto_de_compra, monto_final : real;
begin
write ('Ingresa el valor de monto de compra: ');
readln (monto_de_compra);
descuento := 0;
if monto_de_compra>2000 then
begin
descuento := monto_de_compra*0.15;
end;
monto_final := monto_de_compra-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de monto final: ', monto_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var descuento, monto_de_compra, monto_final : real;
begin
write ('Ingresa el valor de monto de compra: ');
readln (monto_de_compra);
descuento := 0;
if monto_de_compra>2000 then
begin
descuento := monto_de_compra*0.15;
end;
monto_final := monto_de_compra-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de monto final: ', monto_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.