-
Lenguaje
Pascal
-
Descripción
Un cliente ordena cierta cantidad de hojas de hielo seco, viguetas y armazones; las hojas de hielo seco tienen un 20% de descuento y las viguetas un 15%, sobre el total de cada una. Los datos que se tiene por cada tipo de artículo son: la cantidad pedida y el precio (hojas precio=2.75, viguetas precio=4, armazones precio=6.75). Además si se paga de contado tiene un descuento de 7% sobre el monto total. El algoritmo debe imprimir el costo total de la orden, en caso de ser efectivo de mostrar el costo inicial, el descuento y el monto final. Recuerde los datos ingresados no pueden ser negativos.
La solución debe procesar las ordenes de 10 clientes y mostrar la siguiente información:
a) ¿Cuántos clientes pagaron en efectivo?
b) ¿Cuál es la suma total de todas las ventas?
c) ¿Cuántos productos se vendieron de cada tipo?
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
uses crt;
var armazones_vendidos, clientes_en_efectivo, forma_de_pago, hojas_vendidas, i : integer;
var tipo_de_pago, viguetas_vendidas : integer;
var cantidad_de_armazones, cantidad_de_hojas, cantidad_de_viguetas, costo_inicial, descuento : real;
var monto_final, monto_total, precio_por_armazon, precio_por_hoja, precio_por_vigueta : real;
var suma_total : real;
begin
armazones_vendidos := 0;
clientes_en_efectivo := 0;
hojas_vendidas := 0;
viguetas_vendidas := 0;
suma_total := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de cantidad de armazones: ');
readln (cantidad_de_armazones);
write ('Ingresa el valor de cantidad de hojas: ');
readln (cantidad_de_hojas);
write ('Ingresa el valor de cantidad de viguetas: ');
readln (cantidad_de_viguetas);
writeln ('Selecciona el valor de tipo de pago.');
writeln (' 1.- Al contado');
writeln (' 2.- A cr'#130'dito');
write (' : ');
repeat
readln (tipo_de_pago);
if (tipo_de_pago<1) or (tipo_de_pago>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (tipo_de_pago>=1) and (tipo_de_pago<=2);
writeln ('Selecciona el valor de forma de pago.');
writeln (' 1.- Efectivo');
writeln (' 2.- Tarjeta');
write (' : ');
repeat
readln (forma_de_pago);
if (forma_de_pago<1) or (forma_de_pago>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (forma_de_pago>=1) and (forma_de_pago<=2);
precio_por_hoja := 2.75;
precio_por_vigueta := 4;
precio_por_armazon := 6.75;
costo_inicial := cantidad_de_hojas*precio_por_hoja+cantidad_de_viguetas*precio_por_vigueta+cantidad_de_armazones*precio_por_armazon;
descuento := cantidad_de_hojas*precio_por_hoja*0.2+cantidad_de_viguetas*precio_por_vigueta*0.15;
monto_total := costo_inicial-descuento;
if tipo_de_pago=1 then
begin
descuento := descuento+monto_total*0.07;
end;
monto_final := costo_inicial-descuento;
if forma_de_pago=1 then
begin
clientes_en_efectivo := clientes_en_efectivo+1;
end;
suma_total := suma_total+monto_final;
armazones_vendidos := armazones_vendidos+cantidad_de_armazones;
hojas_vendidas := hojas_vendidas+cantidad_de_hojas;
viguetas_vendidas := viguetas_vendidas+cantidad_de_viguetas;
writeln ('Valor de costo inicial: ', costo_inicial:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de monto final: ', monto_final:0:6);
writeln ('Valor de monto total: ', monto_total:0:6);
writeln ('Valor de precio por armazon: ', precio_por_armazon:0:6);
writeln ('Valor de precio por hoja: ', precio_por_hoja:0:6);
writeln ('Valor de precio por vigueta: ', precio_por_vigueta:0:6);
writeln;
end;
writeln ('Valor de armazones vendidos: ', armazones_vendidos);
writeln ('Valor de clientes en efectivo: ', clientes_en_efectivo);
writeln ('Valor de hojas vendidas: ', hojas_vendidas);
writeln ('Valor de viguetas vendidas: ', viguetas_vendidas);
writeln ('Valor de suma total: ', suma_total:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.