Tipo de refrigeracao

augustofilho — Jan 6, 2014, 12:33 PM

e24p70=function(preco,tipo,refrig){
  if((refrig=="N"))
  {
    if((tipo=="A"))
    { 
    if(preco< 15)
      valor_adicional=2
    else
      valor_adicional=5
    }
    if((tipo=="L"))
    {
      if(preco<10)
        valor_adicional=1.50
      else
        valo_adicional=2.50
    }
    if((tipo=="V"))
    {
      if(preco<30)
        valor_adicional=3
      else
        valor_adicional=2.5
    }
  }
  else
  {
    if((tipo=="A"))
      valor_adicional=8
    if((tipo=="L"))
      valor_adicional=0
    if((tipo=="V"))
      valor_adicional=0
  }
  cat("\nO valor adicional é de R$",valor_adicional,"reais.")
  if(preco<25)
    imposto=0.05*preco
  else
    imposto=0.08*preco
  cat("\nO valor do imposto é de R$",imposto,"reais.")
  pre_custo=preco+imposto
  cat("\nO valor do preco de custo é de R$",pre_custo,"reais.")
  if((tipo != "A") && (refrig != "S"))
    desconto=0.03*pre_custo
  else
    desconto=0
  cat("\nO valor do desconto é de R$",desconto,"reais.")
  novo_pre=preco+valor_adicional-desconto
  cat("\nO novo preço é de R$",novo_pre,"reais.")
  if(novo_pre<=50)
    cat("\nBarato")
  else
     if(novo_pre<100)
       cat("\nNormal")
  else
    cat("\nCaro")
}