Novo Salario com For e while

augustofilho — Jan 8, 2014, 2:33 AM

e1p83=function(ano_atual){
  salario=1000
  percentual=1.5/100
  novo_salario=(percentual*salario)+salario
  for(i in 1997:ano_atual)
    {
    percentual=2*percentual
    novo_salario=novo_salario+(percentual*novo_salario)
    }
    cat("O novo salario eh de R$",novo_salario,"reais.")

  #Usando o while
  #i=1997
  #while(i<=ano_atual){
  #  percentual=2*percentual
  #  novo_salario=novo_salario+(percentual*novo_salario)
  #  i=i+1
  #}
  #cat("O valor do salario é de R$",novo_salario,"reais.")
}

e1p83(1998)

O novo salario eh de R$ 1108 reais.