Ayuda menu de mantenimiento
Publicado por mileidy (4 intervenciones) el 08/03/2013 03:14:30
Hola, tengo que realizar el siguiente programa pero estoy confundida con algunas sentencias, y no dispongo del tiempo para culminarlo, estoy bloqueada totalmente..el enunciado es el siguiente
Una empresa ha implementado un procedimiento de incentivo al personal de venta,
el cual tiene las siguientes características:
1. A cada vendedor se le asigna un objetivo de ventas y un factor de
bonificación específico de acuerdo a su antigüedad.
2. Los vendedores obtendrán bonificaciones adicionales a su sueldo básico,
siempre y cuando las ventas realizadas superen a las ventas trazadas
como objetivo.
3. Las comisiones de ventas llamadas “COM” se calculan como un múltiplo
del factor de bonificación “FB” de las ventas reales “VR” que excedan las
cuotas, es decir el objetivo de venta llamado “OV”.
4. Al no cumplir con el objetivo de la venta, no se paga bonificación, es decir
si la venta real es menor que el objetivo de venta, automáticamente la
bonificación a pagar es cero.
5. Si la venta real es mayor que el objetivo de venta, se paga bonificación,
por lo tanto: COM = FB * (VR – OV).
Con base en lo planteado, diseñe un algoritmo en pseudocódigo donde se
muestre el uso correcto de las técnicas de programación estructurada o
subprogramas y realice lo siguiente:
�� Presente un menú de mantenimiento con las opciones siguientes: Incluir,
Consultar, Modificar, Eliminar, Reporte y Salida.
�� Registre, con la opción incluir, los siguientes datos:
• Código del Vendedor
• Números de Cédula
• Nombres y Apellidos
• Número de Teléfono
• Dirección
• Sueldo Básico
• Objetivo de Venta (OV)
• Factor Bonificación (FB)
• Venta Real (VR)
�� Ordene el registro vendedor por el número de la cédula.
�� Muestre por pantalla, cuando realice una búsqueda de un vendedor
(femenino o masculino) con un determinado “código del vendedor”, toda la
información relativa a ella o él.
�� Genere por medio de la opción “Reporte” el siguiente diseño:
NOTA: En las alternativas “Modificar, Eliminar y Consultar” haga uso de los
datos registrados con la opción “Incluir”.
** EDITORIAL LA CIENCIA Y SU UNIVERSO**
CODIGO DEL VENDEDOR NOMBRE Y APELLIDO BONIFICACIÓN
999 X-----------------X 9999999 ¡¡ Felicitaciones!!
999 X-----------------X 9999
999 X-----------------X 999
999 X-----------------X 0 ¡¡No cumplió el objetivo!!
�� Calcular de cada vendedor su bonificación y determinar cuál es la mayor
e imprimir un mensaje especial si no se cumple con el objetivo de venta o
cuando esta es superada.
YO TENGO ESTO HECHO........
Agradezco su ayuda ;)
Una empresa ha implementado un procedimiento de incentivo al personal de venta,
el cual tiene las siguientes características:
1. A cada vendedor se le asigna un objetivo de ventas y un factor de
bonificación específico de acuerdo a su antigüedad.
2. Los vendedores obtendrán bonificaciones adicionales a su sueldo básico,
siempre y cuando las ventas realizadas superen a las ventas trazadas
como objetivo.
3. Las comisiones de ventas llamadas “COM” se calculan como un múltiplo
del factor de bonificación “FB” de las ventas reales “VR” que excedan las
cuotas, es decir el objetivo de venta llamado “OV”.
4. Al no cumplir con el objetivo de la venta, no se paga bonificación, es decir
si la venta real es menor que el objetivo de venta, automáticamente la
bonificación a pagar es cero.
5. Si la venta real es mayor que el objetivo de venta, se paga bonificación,
por lo tanto: COM = FB * (VR – OV).
Con base en lo planteado, diseñe un algoritmo en pseudocódigo donde se
muestre el uso correcto de las técnicas de programación estructurada o
subprogramas y realice lo siguiente:
�� Presente un menú de mantenimiento con las opciones siguientes: Incluir,
Consultar, Modificar, Eliminar, Reporte y Salida.
�� Registre, con la opción incluir, los siguientes datos:
• Código del Vendedor
• Números de Cédula
• Nombres y Apellidos
• Número de Teléfono
• Dirección
• Sueldo Básico
• Objetivo de Venta (OV)
• Factor Bonificación (FB)
• Venta Real (VR)
�� Ordene el registro vendedor por el número de la cédula.
�� Muestre por pantalla, cuando realice una búsqueda de un vendedor
(femenino o masculino) con un determinado “código del vendedor”, toda la
información relativa a ella o él.
�� Genere por medio de la opción “Reporte” el siguiente diseño:
NOTA: En las alternativas “Modificar, Eliminar y Consultar” haga uso de los
datos registrados con la opción “Incluir”.
** EDITORIAL LA CIENCIA Y SU UNIVERSO**
CODIGO DEL VENDEDOR NOMBRE Y APELLIDO BONIFICACIÓN
999 X-----------------X 9999999 ¡¡ Felicitaciones!!
999 X-----------------X 9999
999 X-----------------X 999
999 X-----------------X 0 ¡¡No cumplió el objetivo!!
�� Calcular de cada vendedor su bonificación y determinar cuál es la mayor
e imprimir un mensaje especial si no se cumple con el objetivo de venta o
cuando esta es superada.
YO TENGO ESTO HECHO........
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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
Program Vendedor;
uses
crt;
const
ubicacion='d:\bp\bin\datos.txt';
type
datos_personales = record Codigo_Vendedor:integer;numero_cedula: string[8];
nombre:string; apellido: string; edad:integer; email:string;numero_telefonico: string[11];
numero_celular:string[11];
direccion: string; sueldo_basico:string; objetivo_venta:string; factor_bonificacion:string; venta_real:string; arch:TEXT;end;
var
opcion:char; info: datos_personales; arch: text; nombreABuscar: string; subNombre: string; entro: boolean;Procedure Imprimir;
begin
reset (arch);
clrscr;
while not eof (arch) do
begin
with info do
begin
readln(arch,nombre);
readln(arch,apellido);
readln(arch,edad);
readln(arch,numero_telefonico);
readln(arch,numero_cedula);
readln(arch,direccion);
readln(arch,email);
writeln; writeln;
writeln(nombre,' ',apellido);
writeln('Tiene ',edad,'a¤os');
writeln('Tel‚fono: ',numero_telefonico);
writeln('Celular: ',numero_celular);
writeln('Direcci¢n: ',direccion);
writeln('E-mail: ',email);
writeln;
end;
end;
readkey;
close (arch);
end;
Procedure Ingresar;
begin
assign(arch,'datos.txt');
Append(arch);
begin
writeln; writeln;
writeln(arch,'nombre');
writeln(arch,'apellido');
writeln(arch,'edad');
writeln(arch,'numero_telefonico');
writeln(arch,'numero_celular');
writeln(arch,'direccion');
writeln(arch,'email');
writeln;
end;
close(arch);
end;
Procedure Buscar;
begin
reset (arch);
entro:=false;
writeln; writeln;
write('Digite una letra: ');
nombreABuscar:=readkey;
clrscr;
while not eof (arch) do
begin
with info do
begin
readln(arch,nombre);
readln(arch,apellido);
readln(arch,edad);
readln(arch,numero_telefonico);
readln(arch,numero_celular);
readln(arch,direccion);
readln(arch,email);
subNombre:=Copy(nombre,1,length(nombreABuscar));
if(subNombre=nombreABuscar) then
begin
entro:=true;
writeln; writeln;
writeln(nombre,' ',apellido);
writeln('Tiene ',edad,'a¤os');
writeln('Tel‚fono: ',numero_telefonico);
writeln('Celular: ',numero_celular);
writeln('Direcci¢n: ',direccion);
writeln('E-mail: ',email);
writeln;
end;
end;
end;
if(not entro) then
writeln('No se encontraron resultados para esta busqueda');
readkey;
close (arch);
end;
Procedure Inicializar;
begin
rewrite (arch);
close(arch);
end;
Procedure Seleccion;
begin
case opcion of
'1': Ingresar;
'2': Buscar;
'3': Imprimir;
'4': Inicializar;
end;
end;
Procedure Menu;
begin
clrscr;
writeln;
writeln;
gotoxy(20,4);
writeln('PERSONAL "Editorial Ciencias e Ideas"');
writeln;
writeln;
gotoxy(25,7);
writeln('1. Agregar Empleados ');
gotoxy(25,9);
writeln('2. Buscar Empleados');
gotoxy(25,11);
writeln('3. consultar Empleados');
gotoxy(25,13);
writeln('4. Inicializar Lista de Empleados');
gotoxy(25,15);
writeln('5. Salir');
writeln;
gotoxy(20,19);
write ('Escoja una opci¢n: ');
opcion:=readkey;
end;
Procedure Ciclo;
begin
Repeat
Menu;
Seleccion;
Until (opcion='5');
end;
Begin
clrscr;
assign (arch,ubicacion);
Ciclo;
End.Agradezco su ayuda ;)
Valora esta pregunta
0