Algoritmo "15.1"

Algoritmo "15.1"

Var
   min, max, aux, i, r, q, qr: inteiro


Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   escreva("Escreva o primeiro número: ")
   leia(min)
   escreva("Escreva o segundo número: ")
   leia(max)
   se min > max entao
      // trocar
      aux <- min
      min <- max
      max <- aux
   fimse
   // n para encontrar o número de tentativas
  q <- max-min +1
   repita
      i <- i+1
      qr <- q
      q <- qr \ 2
      r <- qr % 2
      se r=1 entao
         q <- q +1
      fimse
   ate (r=0) e (q=1)
   escreva("São precisas ", i, " tentativas.")

// alternativa

  i <- -1
   n <- 9
   repita
      i <- i + 1
      q <- n \ 2
      r <- n % 2
      se r=0 entao
         n <- q
      senao
         n <- q + 1
      fimse
   ate r=0 e q=1
Fimalgoritmo