Programacion Función
Enviado por johanarojas • 11 de Marzo de 2014 • 393 Palabras (2 Páginas) • 198 Visitas
subProceso Ingreso [Arreglo, Arreglo1, noemple, noareas, noevalu]
Escribir "En esta Función usted ingresará todas las evaluaciones de los empleados "
Para A <-1 Hasta noareas Hacer
Escribir "Ingrese uno por uno los datos de los empleados de area ", A, ":"
Para E <-1 Hasta noemple Hacer
Escribir "Ingrese el Nombre del empleado No. ", E, ":"
Leer Arreglo[A,E]
Para N<-1 Hasta noevalu Hacer
Escribir "Ingrese la evaluacion No. ", N, ":"
Leer arreglo1[A,E,N]
Fin Para
Fin Para
Fin Para
Para A<-1 Hasta noareas Hacer
Escribir "Empleados del area ", A, ":"
Para E<-1 Hasta noemple Hacer
Escribir arreglo[A,E]
Para N<-1 Hasta noevalu Hacer
Escribir Arreglo1[A, E, N]
Fin Para
Fin Para
Fin Para
FinSubProceso
subProceso Evaluacion_Final[Empleados, evalu, evaluf, Pond, noemple, noareas, noevalu]
Escribir "En esta Función usted obtendrá la evaluacion final de los empleados"
Para A<-1 Hasta noareas Hacer
Para E<-1 Hasta noemple Hacer
evalufin=0
Para N <-1 Hasta noevalu Hacer
evalufin=evalufin+(evalu[A, E, N]*(pond[N]/100))
Fin Para
evaluf[A,E]=evalufin
Fin Para
Fin Para
Para A <-1 Hasta noareas Hacer
Escribir "Calificaciones del area ", A, ":"
Para E<-1 Hasta noemple Hacer
Escribir Empleados[A,E]
Para N<-1 Hasta noevalu Hacer
Escribir "Evaluacion ", N, ": " ,evalu[A,E,N]
Fin Para
Si evaluf[A,E]>=80 entonces
EtiquetaAp="Aprobado"
sino
EtiquetaAp="Reprobado"
Fin Si
Escribir "Evaluacion Final: ", evaluf[A,E], " ", EtiquetaAp
Fin Para
Fin Para
FinSubProceso
subProceso Promedio_Area[Promareas, Empleados,evalu,evaluf, Pond, noemple, noareas,noevalu]
Escribir "En esta Función usted obtendrá la Evaluacion Promedio para cada Area, de acuerdo a las evaluaciones de sus empleados"
Para A<-1 Hasta noareas Hacer
evaluarea=0
Para E<-1 Hasta noemple Hacer
Para N<-1 Hasta noevalu Hacer
evaluarea=evaluarea+(evalu[A, E, N]*(pond[N]/100))
Fin Para
Fin Para
Promareas[A]=evaluarea/noemple
Fin Para
Para A<-1 Hasta noareas Hacer
Escribir "Evaluacion Promedio del Area ", A, ": ",
...