Untitled

Algoritmo plantilla_salarios
	Escribir "Ingrese el salario y despues n# de empleados para el cargo #1"
	Leer SalarioRango1
	Leer NumEmpleadosRango1
	Escribir "Ingrese el salario y despues n# de empleados para el cargo #2"
	Leer SalarioRango2
	Leer NumEmpleadosRango2
	Escribir "Ingrese el salario y despues n# de empleados para el cargo #3"
	Leer SalarioRango3
	Leer NumEmpleadosRango3
	
	NumEmpleados <- NumEmpleadosRango1 + NumEmpleadosRango2 + NumEmpleadosRango3
	IncrementoRango1 <- SalarioRango1 * 0.07 + SalarioRango1
	IncrementoRango2 <- SalarioRango2 * 0.07 + SalarioRango2
	IncrementoRango3 <- SalarioRango3 * 0.07 + SalarioRango3
	
	NominaSinIncrementoRango1 <- SalarioRango1 * NumEmpleadosRango1
	NominaConIncrementoRango1 <- IncrementoRango1 * NumEmpleadosRango1
	
	NominaSinIncrementoRango2 <- SalarioRango2 * NumEmpleadosRango2
	NominaConIncrementoRango2 <- IncrementoRango2 * NumEmpleadosRango2
	
	NominaSinIncrementoRango3 <- SalarioRango3 * NumEmpleadosRango3
	NominaConIncrementoRango3 <- IncrementoRango3 * NumEmpleadosRango3
	
	NominaTotalSinIncremento <- NominaSinIncrementoRango1 + NominaSinIncrementoRango2 + NominaSinIncrementoRango3
	NominaTotalConIncremento <- NominaConIncrementoRango1 + NominaConIncrementoRango2 + NominaConIncrementoRango3
	
	//Sumatoria Con Incremento 
	SumatoriaIncremento <- NominaTotalConIncremento
	//Sumatoria Sin Incremento 
	SumatoriaSinIncremento <- NominaTotalSinIncremento
	//Promedio Sin Incremento 
	PromedioSinIncremento <- NominaTotalSinIncremento / NumEmpleados
	PromedioFinal <- REDON(PromedioSinIncremento*100) / 100
	//Valor del Incremento
	ValorIncremento <- NominaTotalConIncremento - NominaTotalSinIncremento
	
	Escribir "Sumatoria Con Incremento: ", SumatoriaIncremento
	Escribir "Sumatoria Sin Incremeneto: ", SumatoriaSinIncremento
	Escribir "Promedio Sin Incremento (Sin Redondear): ", PromedioSinIncremento
	Escribir "Promedio Sin Incremento (Con Redondeo): ", PromedioFinal
	Escribir "Valor del Incremento: ", ValorIncremento
FinAlgoritmo