-
Lenguaje
Pascal
-
Descripción
En un supermercado se hace una promoción, mediante la cual el cliente obtiene un descuento dependiendo de un número que se escoge al azar. Si el numero escogido es menor que 74 el descuento es del 15% sobre el total de la compra, si es mayor o igual a 74 el descuento es del 20%. Obtener cuánto dinero se le descuenta.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program PromocionEnUnSupermercado;
uses crt;
var numero_escogido : integer;
var descuento, total_de_la_compra : real;
begin
randomize;
write ('Ingresa el valor de total de la compra: ');
readln (total_de_la_compra);
numero_escogido := random(100);
if numero_escogido<74 then
begin
descuento := total_de_la_compra*0.15;
end
else
begin
descuento := total_de_la_compra*0.2;
end;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de numero escogido: ', numero_escogido:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var numero_escogido : integer;
var descuento, total_de_la_compra : real;
begin
randomize;
write ('Ingresa el valor de total de la compra: ');
readln (total_de_la_compra);
numero_escogido := random(100);
if numero_escogido<74 then
begin
descuento := total_de_la_compra*0.15;
end
else
begin
descuento := total_de_la_compra*0.2;
end;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de numero escogido: ', numero_escogido:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.