Programacion Función

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, ": ", Promareas[A]

Fin Para

FinSubProceso

subProceso Promedio_Total[Promareas,noareas]

Escribir "En esta Función usted obtendrá la evaluacion Promedio para cada area, de acuerdo a las evaluaciones de sus empleados"

PromTotal=0

Para A<-1 Hasta noareas Hacer

PromTotal=PromTotal+Promareas[A]

Fin Para

PromTotal=PromTotal/noareas

Escribir "Evaluacion Promedio General Es: ", PromTotal

FinSubProceso

Proceso Principal

Otravez="S"

Escribir "Cuantos empleados por area procesará?"

Leer noemple

Escribir "Cuantas areas distintas"

Leer noareas

Escribir "Cuantas Evaluaciones tendrá?"

Leer noevalu

Dimension Promareas[noareas]

Dimension Empleados[noareas, noemple]

Dimension evaluf[noareas,

...