-
Lenguaje
Pascal
-
Descripción
Un empleado de la tienda "Tiki Taka" realiza N ventas durante el día. Se requiere saber cuántas de ellas fueron mayores a $1000, cuántas fueron mayores a $500 pero menores o iguales a $1000, y cuántas fueron menores o iguales a $500. Además, se requiere saber el monto de lo vendido en cada categoría y de forma global.
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
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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
program TiendaTikiTaka;
uses crt;
var categoria, i, n, ventas_entre_500_y_1000, ventas_mayores_a_1000 : integer;
var ventas_menores_a_500 : integer;
var monto_de_abarrotes, monto_de_blancos, monto_de_caballeros, monto_de_carnes, monto_de_damas : real;
var monto_de_electronicos, monto_de_panaderia, monto_global, venta : real;
begin
ventas_entre_500_y_1000 := 0;
ventas_mayores_a_1000 := 0;
ventas_menores_a_500 := 0;
monto_de_abarrotes := 0;
monto_de_blancos := 0;
monto_de_caballeros := 0;
monto_de_carnes := 0;
monto_de_damas := 0;
monto_de_electronicos := 0;
monto_de_panaderia := 0;
monto_global := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de venta: ');
readln (venta);
writeln ('Selecciona el valor de categoria.');
writeln (' 1.- Abarrotes');
writeln (' 2.- Blancos');
writeln (' 3.- Caballeros');
writeln (' 4.- Damas');
writeln (' 5.- Electr'#162'nicos');
writeln (' 6.- Carnes');
writeln (' 7.- Panader'#161'a');
write (' : ');
repeat
readln (categoria);
if (categoria<1) or (categoria>7) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (categoria>=1) and (categoria<=7);
if venta>1000 then
begin
ventas_mayores_a_1000 := ventas_mayores_a_1000+1;
end;
if (venta>500) and (<=1000) then
begin
ventas_entre_500_y_1000 := ventas_entre_500_y_1000+1;
end;
if venta<=500 then
begin
ventas_menores_a_500 := ventas_menores_a_500+1;
end;
monto_global := monto_global+venta;
if categoria=1 then
begin
monto_de_abarrotes := monto_de_abarrotes+venta;
end;
if categoria=2 then
begin
monto_de_blancos := monto_de_blancos+venta;
end;
if categoria=3 then
begin
monto_de_caballeros := monto_de_caballeros+venta;
end;
if categoria=4 then
begin
monto_de_damas := monto_de_damas+venta;
end;
if categoria=5 then
begin
monto_de_electronicos := monto_de_electronicos+venta;
end;
if categoria=6 then
begin
monto_de_carnes := monto_de_carnes+venta;
end;
if categoria=7 then
begin
monto_de_panaderia := monto_de_panaderia+venta;
end;
writeln;
end;
writeln ('Valor de ventas entre 500 y 1000: ', ventas_entre_500_y_1000);
writeln ('Valor de ventas mayores a 1000: ', ventas_mayores_a_1000);
writeln ('Valor de ventas menores a 500: ', ventas_menores_a_500);
writeln ('Valor de monto de abarrotes: ', monto_de_abarrotes:0:6);
writeln ('Valor de monto de blancos: ', monto_de_blancos:0:6);
writeln ('Valor de monto de caballeros: ', monto_de_caballeros:0:6);
writeln ('Valor de monto de carnes: ', monto_de_carnes:0:6);
writeln ('Valor de monto de damas: ', monto_de_damas:0:6);
writeln ('Valor de monto de electronicos: ', monto_de_electronicos:0:6);
writeln ('Valor de monto de panaderia: ', monto_de_panaderia:0:6);
writeln ('Valor de monto global: ', monto_global:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var categoria, i, n, ventas_entre_500_y_1000, ventas_mayores_a_1000 : integer;
var ventas_menores_a_500 : integer;
var monto_de_abarrotes, monto_de_blancos, monto_de_caballeros, monto_de_carnes, monto_de_damas : real;
var monto_de_electronicos, monto_de_panaderia, monto_global, venta : real;
begin
ventas_entre_500_y_1000 := 0;
ventas_mayores_a_1000 := 0;
ventas_menores_a_500 := 0;
monto_de_abarrotes := 0;
monto_de_blancos := 0;
monto_de_caballeros := 0;
monto_de_carnes := 0;
monto_de_damas := 0;
monto_de_electronicos := 0;
monto_de_panaderia := 0;
monto_global := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de venta: ');
readln (venta);
writeln ('Selecciona el valor de categoria.');
writeln (' 1.- Abarrotes');
writeln (' 2.- Blancos');
writeln (' 3.- Caballeros');
writeln (' 4.- Damas');
writeln (' 5.- Electr'#162'nicos');
writeln (' 6.- Carnes');
writeln (' 7.- Panader'#161'a');
write (' : ');
repeat
readln (categoria);
if (categoria<1) or (categoria>7) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (categoria>=1) and (categoria<=7);
if venta>1000 then
begin
ventas_mayores_a_1000 := ventas_mayores_a_1000+1;
end;
if (venta>500) and (<=1000) then
begin
ventas_entre_500_y_1000 := ventas_entre_500_y_1000+1;
end;
if venta<=500 then
begin
ventas_menores_a_500 := ventas_menores_a_500+1;
end;
monto_global := monto_global+venta;
if categoria=1 then
begin
monto_de_abarrotes := monto_de_abarrotes+venta;
end;
if categoria=2 then
begin
monto_de_blancos := monto_de_blancos+venta;
end;
if categoria=3 then
begin
monto_de_caballeros := monto_de_caballeros+venta;
end;
if categoria=4 then
begin
monto_de_damas := monto_de_damas+venta;
end;
if categoria=5 then
begin
monto_de_electronicos := monto_de_electronicos+venta;
end;
if categoria=6 then
begin
monto_de_carnes := monto_de_carnes+venta;
end;
if categoria=7 then
begin
monto_de_panaderia := monto_de_panaderia+venta;
end;
writeln;
end;
writeln ('Valor de ventas entre 500 y 1000: ', ventas_entre_500_y_1000);
writeln ('Valor de ventas mayores a 1000: ', ventas_mayores_a_1000);
writeln ('Valor de ventas menores a 500: ', ventas_menores_a_500);
writeln ('Valor de monto de abarrotes: ', monto_de_abarrotes:0:6);
writeln ('Valor de monto de blancos: ', monto_de_blancos:0:6);
writeln ('Valor de monto de caballeros: ', monto_de_caballeros:0:6);
writeln ('Valor de monto de carnes: ', monto_de_carnes:0:6);
writeln ('Valor de monto de damas: ', monto_de_damas:0:6);
writeln ('Valor de monto de electronicos: ', monto_de_electronicos:0:6);
writeln ('Valor de monto de panaderia: ', monto_de_panaderia:0:6);
writeln ('Valor de monto global: ', monto_global:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.