SEMANA # 27

EJM: registro centinela

elabore un algoritmo  que obtenga el salario neto de cada uno de los trabajadores de la empresa XY. se debe leer de cada registro el nombre del trabajador,su salario básico por hora, el numero de horas trabajadas y el porcentaje de retención de la fuente
La empresa desea obtener el promedio de los salarios netos de los trabajadores que ganan 1000000 o mas y saber cuantos trabajadores ganan menos de 1000000
El programa debe sacar también un listado donde aparecen el nombre, la retención en la fuente y su salario neto


SALN <- SALARIO NETO
PSALMI1 <- PORCENTAJE SALARIO MAYOR IGUAL A UN MILLON
TRBME1 <- TRABAJADORES MENOS DE UN MILLON
TRBMI1 <- TRABAJADORES MAYOR IGUAL A UN MILLON
SSALNMI1 <- SUMA DE SALARIOS NETOS MAYORES IGUAL A UN MILLON
RF <- RETENCION DE FUENTE
N <- NOMBRE
VHT <- VALOR DE HORAS TRABAJADAS
NHT <- NUMERO DE HORAS TRABAJADAS
PRF <- PORCENTAJE DE RETENCION DE FUENTE

CADENA [50] N
ENTERO TRBME1, TRBMI1, NHT
REAL SALN, PSALNMI1, SSALNMI1, RF, VHT, PRF, SALB

INICIO

SSALNMI1 <- 0
TRBME1 <- 0
TRBMI1 <- 0

ESCRIBA " Diga el nombre del trabajador: "
LEA N
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el numero de horas trabajadas: "
LEA NHT
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el valor de la hora trabajada: "
LEA VHT
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el valor del porcentaje de retencion en la fuente: "
LEA PRF
LLAMAR NUEVA_LINEA

MIENTRAS (NHT <> 0) HAGA

SALB <- NHT*VHT
RF <- SALB*PRF
SALN <- SALB-RF

SI (SALN >= 1000000) ENTONCES

SSALNMI1 <- SSALNMI1+SALN
TRBMI1 <- TRBMI1+1

SINO

TRBME1 <- TRBME1+1

FIN SI

ESCRIBA "El  salario neto de:",N
ESCRIBA " es: ", SALN
ESCRIBA " y la retencion por fuente es: ", RF

LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el nombre del trabajador: "
LEA N
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el numero de horas trabajadas: "
LEA NHT
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el valor de la hora trabajada: "
LEA VHT
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el valor del porcentaje de retencion en la fuente: "
LEA PRF
LLAMAR NUEVA_LINEA

FIN MIENTRAS

PSALNMI1 <- (SSALNMI1)/(TRBMI1)

ESCRIBA " el porcentaje del salario neto de los trabajadores cuyo sueldo es mayor o igual a un millon es: ", PSALNMI1
LLAMAR NUEVA_LINEA
ESCRIBA " el  salario neto de los trabajadores cuyo sueldo es menor a un millon es: ", TRBME1

FIN

EJM: se desea saber la comision de ventas por cada vendedor de la compañia ABC, durante el mes de agosto del 2013 por cada vendedor se lee un registro
que contiene el codigo del vendedor, el nombre y las ventas del mes. Para obtener la comision parta de los siguiente principios para las ventas 
menores de de 10 millones pesos la comision es del 7%, para las ventas entre 10 y 50 millones la comision es del 11% y para las venta mayores 50 
millones la comision es de 19%
El programa debe mostrar el codigo, el nombre y la mision de cada uno de los vendedores 

CV <- COMISION VENTAS
CD <- CODIGO
N <- NOMBRE 
VM <- VENTAS DEL MES
CVT <- COMISION DE VENTAS TRABAJADOR

CADENA [30] N
ENTERO CD
REAL CV, VM, CVT

INICIO



ESCRIBA " Diga el nombre: "
LEA N
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el codigo de trabajador: "
LEA CD
LLAMAR NUEVA_LINEA

ESCRIBA " Diga las ventas del mes: "
LEA VM
LLAMAR NUEVA_LINEA


MIENTRAS (CD <> 0) HAGA

SI (VM < 10000000)ENTONCES
CV <- VM *0.07

SINO

SI (VM > 10000000) Y (VM < 50000000) ENTONCES
CV <- VM * 0.11

SINO 
CV <- VM * 0.19

FIN SI
FIN SI

ESCRIBA "La comision de ventas de: ", N
ESCRIBA " con codigo: ", CD
ESCRIBA " es :", CV

LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el nombre: "
LEA N
LLAMAR NUEVA_LINEA

ESCRIBA " Diga el codigo de trabajador: "
LEA CD
LLAMAR NUEVA_LINEA

ESCRIBA " Diga las ventas del mes: "
LEA VM
LLAMAR NUEVA_LINEA

FIN MIENTRAS 

FIN