SEMANA 05 - Operações de Repetição: loop visão geral - Atividade B05

Gustavo Eduardo Marcatti

Versão 1 - utilizando o loop while

func <- function(A, B) {
   ano <- 1
   while (A < B) {
      A <- A * 1.04
      B <- B * 1.015
      ano <- ano + 1
   }
   return(ano)
}

func(8000, 17000)

Versão 2 - utilizando o loop repeat

func <- function(popA, popB) {
   ano <- 1
   repeat {
      if (popA >= popB) break
      popA <- popA * 1.04
      popB <- popB * 1.015
      ano <- ano + 1
   }
   return(ano)
}
func(8000, 17000)