-
Lenguaje
Pascal
-
Descripción
Colsubsidio ofrece un descuento a sus afiliados del 5% sobres sus compras. Hacer un planteamiento lógico que calcule el descuento y el valor final a pagar tanto para afliliados como no afiliados y que al final incluya un mensaje que diga "Gracias por su compra"
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
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
program DescuentoASusAfiliados;
uses crt;
var compras, descuento, es_afiliado, pago : integer;
begin
write ('Ingresa el valor de compras: ');
readln (compras);
writeln ('Selecciona el valor de es afiliado.');
writeln (' 1.- Si');
writeln (' 2.- No');
write (' : ');
repeat
readln (es_afiliado);
if (es_afiliado<1) or (es_afiliado>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (es_afiliado>=1) and (es_afiliado<=2);
if es_afiliado=1 then
begin
descuento := compras*0.05;
end
else
begin
descuento := 0;
end;
pago := compras-descuento;
writeln ('Gracias por su compra');
writeln ('Valor de descuento: ', descuento);
writeln ('Valor de pago: ', pago);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var compras, descuento, es_afiliado, pago : integer;
begin
write ('Ingresa el valor de compras: ');
readln (compras);
writeln ('Selecciona el valor de es afiliado.');
writeln (' 1.- Si');
writeln (' 2.- No');
write (' : ');
repeat
readln (es_afiliado);
if (es_afiliado<1) or (es_afiliado>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (es_afiliado>=1) and (es_afiliado<=2);
if es_afiliado=1 then
begin
descuento := compras*0.05;
end
else
begin
descuento := 0;
end;
pago := compras-descuento;
writeln ('Gracias por su compra');
writeln ('Valor de descuento: ', descuento);
writeln ('Valor de pago: ', pago);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.