Algoritmo Salario Modificado

Proceso AlgoritmoModificado
definir CODEMP, NOMEMP como caracter;
definir SALBH, RT, SALN,NHT Como Real;
definir AEMP, n como entero;
SALBH<-0;
SALN<-0;   
n<-0;
mientras n<3 hacer
Escribir "Por favor ingrese su Código";
Leer CODEMP;
Escribir "Ingrese su Nombre";
Leer NOMEMP;
Escribir "Cual es el valor de su hora trabajada";
Leer SALBH;
Escribir "Cuantas horas trabajo?";
Leer NHT;
Escribir "Cuantos años lleva en la empresa";
Leer AEMP;
Escribir "cual es el valor de su retención en la fuente";
Leer RT;
SALN<-CALCULOS (SALBH, RT, NHT, AEMP);
escribir "El empleado con Código: ", CODEMP, " y Nombre: ", NOMEMP, " Tendra un salario Neto de: $",SALN;
n<-n+1;
FinMientras
FinProceso

Funcion CALCULO <-CALCULOS( SALBH, RT,  NHT, AEMP)
definir SN, SALBR, CALCULO  como real;
SN<-0;
SALBR<-SALBH * NHT;   
SN<-SALBR-RT;     
Si (AEMP > 10) entonces
SN<-SN + 100000; 
Finsi
SI (AEMP > 5) y ( AEMP < 10 ) y (SN < 60000) entonces
Escribir "Tendrá aumento de sueldo";
Finsi
SI AEMP < 1 entonces
Escribir "Bienvenido";
Finsi
CALCULO<-SN;
FinFuncion


Comentarios

Entradas populares de este blog

Búsqueda lineal interrumpida PSeInt

Conceptos básicos de electrónica Cristian Ochoa