Valor do Gerente

augustofilho — Dec 22, 2013, 5:43 PM

e23p68=function(sal_min,turno,cat,num_h){
  if(turno=="M")
    coef=0.10*sal_min
  else
    if(turno=="V")
      coef=0.15*sal_min
  else
    coef=0.12*sal_min
  cat("O valor do coeficiente eh de R$",coef,"reais.")
  sal_bruto=num_h*coef
  cat("\nO valor do salario bruto eh R$",sal_bruto,"reais.")

  if(cat=="O"){
    if(sal_bruto>=300)
      imposto=0.05*sal_bruto
    else
      imposto=0.03*sal_bruto
  }
  else
  {
    if(sal_bruto>=400)
      imposto=0.06*sal_bruto
    else
      imposto=0.04*sal_bruto
  }
  cat("\nO imposto sera de R$",imposto,"reais.")

  if((turno=="N") && (num_h>80))
    gratificacao=50
  else
    gratificacao=30
  cat("\nO valor da gratificacao eh de R$",gratificacao,"reais.")

  if((cat=="O")||(coef<=25))
    auxilio_alimentacao=sal_bruto/3
  else
    auxilio_alimentacao=sal_bruto/2
  cat("\nO valor do auxilio alimentacao eh de R$",auxilio_alimentacao,"reais.")

  sal_liquido=sal_bruto-imposto+gratificacao+auxilio_alimentacao
  cat("\nO valor do salario liquido eh de R$",sal_liquido,"reais.")

  if(sal_liquido<350)
    cat("\nMal remunerado")
  else
    if((sal_liquido>=350 && sal_liquido<600))
      cat("\nNormal.")
  else
    if(sal_liquido>600)
    cat("\nBem remunerado.")
}

e23p68(500,"N","G",40)

O valor do coeficiente eh de R$ 60 reais.
O valor do salario bruto eh R$ 2400 reais.
O imposto sera de R$ 144 reais.
O valor da gratificacao eh de R$ 30 reais.
O valor do auxilio alimentacao eh de R$ 1200 reais.
O valor do salario liquido eh de R$ 3486 reais.
Bem remunerado.