SEMANA # 26

En este ejercicio vamos a utilizar un ciclo mientras contador con un registro identificador

Se tiene un archivo con los datos de los N trabajadores de la empresa XY; cada registro tiene el nombre, el número de horas trabajadas y el valor de la hora trabajada. Calcular el salario neto e imprimirlo con el nombre del trabajador teniendo en cuenta que si el salario es mayor 800000 la retención para impuestos es de 4.5% y para seguridad social el 2.5% si es menor retenerle para seguridad social 2% y darle un auxilio de transporte de 60000 calcule el total de aportes de los trabajadores para impuestos y para seguridad social el total de salarios pagados por la empresa

 N <- NUMERO

NOM <- NOMBRE

CONTT <- CONTADOR TRABAJADORES

TAPTIM <-   TOTAL DE APORTES DE TRABAJADORES POR IMPUESTOS

TAPTSS <-  TOTAL DE APORTES DE TRABAJADORES POR SEGURO SEOCIAL

TSALPEM <-  TOTAL DE SALARIO PAGADO POR LA EMPRESA

NHT <- NUMERO DE HORAS TRABAJADAS

VHT <- VALOR HORA TRABAJADA

SALB <- SALARIO BRUTO

RTIM <-  RETENCION IMPUESTOS

RTSS <- RETENCION SEGURIDAD SOCIAL

SALN <- SALARIO NETO

CADENA [30]NOM

ENTERO N, NHT, CONTT

REAL VHT, SALB, SALN, RTSS, RTIM

REAL TAPTIM, TAPTSS, TSALPEM

INICIO

TAPTIM <- 0

TAPTSS <- 0

TSALPEM <- 0

CONTT <-1

ESCRIBA " diga el numero de trabajadores"

LEA N

LLAMAR NUEVA_LINEA

MIENTRAS (CONTT <= N) HAGA

ESCRIBA "diga el numero de horas trabajadas"

LEA NHT

LLAMAR NUEVA_LINEA

ESCRIBA "diga el valor de hora trabajada"

LEA VHT

LLAMAR NUEVA_LINEA

ESCRIBA "Diga el nombre del tabajador"

LEA NOM

LLAMAR NUEVA_LINEA

SALB <- NHT*VHT

SI (SALB >=800000)ENTONCES

RTIM <- SALB * 0.045

RTSS <- SALB * 0.025

SALN <- SALB-RTIM-RTSS

ESCRIBA "El salarioneto de:",NOM

ESCRIBA "Es:",SALN

LLAMAR NUEVA_LINEA

LLAMAR NUEVA_LINEA

SINO

RTSS <- SALB *0.02

SALN <- SALB+60000-RTSS

ESCRIBA "El salarioneto de:",NOM

ESCRIBA "Es:",SALN

LLAMAR NUEVA_LINEA

LLAMAR NUEVA_LINEA

FIN SI

TAPTIM <- TAPTIM+RTIM

TAPTSS <- TAPTSS+RTSS

TSALPEM <- TSALPEM+SALB

CONTT <- CONTT+1

FIN MIENTRAS

ESCRIBA "El total de aportes de trabajadores por impuestos es:", TAPTIM

LLAMAR NUEVA_LINEA

ESCRIBA "El total de aportes de trabajadores por seguro seocial es:", TAPTSS

LLAMAR NUEVA_LINEA

ESCRIBA "El total de salario pagado por la empresa es:", TSALPEM

FIN