Proceso Salarios
Definir CODEMP1, NOMEMP1,CODEMP2, NOMEMP2 Como Caracter;
Definir SALBH1, RT1, SALN1, SALBH2, RT2, SALN2 Como Real;
Definir AEMP1, NHT1,AEMP2, NHT2 Como Entero;
SALN1<-0;
SALN2<-0;
RT1<-0;
RT2<-0;
Escribir "Digitar el codigo de los dos empleados:";
Leer CODEMP1,CODEMP2;
Escribir "Ingresar los nombres de los dos empleados:";
Leer NOMEMP1,NOMEMP2;
Escribir "El salario basico por horas de los dos empleados es de:";
Leer SALBH1,SALBH2;
Escribir "Los numeros de horas que trabajan los dos empleados:";
Leer NHT1, NHT2;
Escribir "Ingresar los años trabajados de los dos empleados:";
Leer AEMP1, AEMP2;
SALN1<-CALCULOS (SALBH1, RT1, NHT1, AEMP1, NOMEMP1);
SALN2<-CALCULOS (SALBH2, RT2, NHT2, AEMP2, NOMEMP2);
Escribir "El codigo del empleado 1 es: ", CODEMP1;
Escribir "El nombre del empleado 1 es: ", NOMEMP1;
Escribir "El ssalario neto del empleado 1 es de $: ", SALN1;
Escribir "El codigo del empleado 2 es: ", CODEMP2;
Escribir "El nombre del empleado 2 es: ", NOMEMP2;
Escribir "El ssalario neto del empleado 2 es de $: ", SALN2;
FinProceso
SubProceso SN <- CALCULOS ( SALBH, RT, NHT, AEMP, NOMEMP )
Definir SN, SALBR como real;
SALBR<-SALBH*NHT;
SN<-SALBR-RT;
Si AEMP>10 Entonces
SN<-SN+100000;
SiNo
Si AEMP>5 Y AEMP<10 Y SN<60000 Entonces
Escribir "El empleado: ", NOMEMP, " Tendrá un aumento de sueldo";
SiNo
Si AEMP<1 Entonces
Escribir "Bienvenido";
SiNo
FinSi
FinSi
FinSi
FinSubProceso
