-
Lenguaje
Pascal
-
Descripción
Calcule que el monto a cancelar el descuento aplicado y el total neto (monto a cancelar menos el descuento). En una fábrica de computadoras se planea ofrecer a los clientes un descuento que dependerá del número de computadoras que compre. Si las computadoras son menos de 10, se les dará un 0% de descuento sobre el total de la compra. Si son más de 10 tendrá un descuento en cada computadora del 10% sobre el monto. Si son más de 20 tendrá un descuento del 25%. Y si son más de 30 tendrá un descuento del 40%. El precio de la computadora lo pedirá el programa. Junto con el número de computadoras compradas, el programa sólo podrá terminar cuando el usuario responda a la pregunta no desea continuar.
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
33
34
35
36
37
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
33
34
35
36
37
program DescuentoEnUnaFabricaDeComputadoras3;
uses crt;
var descuento, monto_a_cancelar, numero_de_computadoras, precio_de_la_computadora, total_neto : real;
var tecla_repetir : char;
begin
write ('Ingresa el valor de precio de la computadora: ');
readln (precio_de_la_computadora);
repeat
clrscr;
write ('Ingresa el valor de numero de computadoras: ');
readln (numero_de_computadoras);
descuento := 0;
monto_a_cancelar := precio_de_la_computadora*numero_de_computadoras;
if (numero_de_computadoras>10) and (numero_de_computadoras<=20) then
begin
descuento := monto_a_cancelar*0.1;
end;
if (numero_de_computadoras>20) and (numero_de_computadoras<=30) then
begin
descuento := monto_a_cancelar*0.25;
end;
if numero_de_computadoras>30 then
begin
descuento := monto_a_cancelar*0.4;
end;
total_neto := monto_a_cancelar-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de monto a cancelar: ', monto_a_cancelar:0:6);
writeln ('Valor de total neto: ', total_neto:0:6);
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
end.
uses crt;
var descuento, monto_a_cancelar, numero_de_computadoras, precio_de_la_computadora, total_neto : real;
var tecla_repetir : char;
begin
write ('Ingresa el valor de precio de la computadora: ');
readln (precio_de_la_computadora);
repeat
clrscr;
write ('Ingresa el valor de numero de computadoras: ');
readln (numero_de_computadoras);
descuento := 0;
monto_a_cancelar := precio_de_la_computadora*numero_de_computadoras;
if (numero_de_computadoras>10) and (numero_de_computadoras<=20) then
begin
descuento := monto_a_cancelar*0.1;
end;
if (numero_de_computadoras>20) and (numero_de_computadoras<=30) then
begin
descuento := monto_a_cancelar*0.25;
end;
if numero_de_computadoras>30 then
begin
descuento := monto_a_cancelar*0.4;
end;
total_neto := monto_a_cancelar-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de monto a cancelar: ', monto_a_cancelar:0:6);
writeln ('Valor de total neto: ', total_neto:0:6);
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
end.