Aula 15 - 11.06.2011

Continuação da lista de exercícios
----------------------------------------------------

Exemplos de funções vista em aula:
----------------------------------------------------

algoritmo "Gerar Números da Mega-sena"
var
i,j,x: inteiro
valores: vetor[1..6] de inteiro
funcao gerarNumeroAleatorio(intervalo: inteiro; consideraNegativos: logico; comecaDoUm: logico): inteiro
var r: inteiro
inicio
   r <- int(rand*intervalo)
  
   se (comecaDoUm) entao
      r <- r + 1
   fimse
   se (consideraNegativos) entao
      r <- (r - int(intervalo/2))
   fimse
  
   retorne r
fimfuncao
inicio
para j de 1 ate 10 faca
   escreva("Palpite ", j, " [")
   para i de 1 ate 6 faca
      valores[i] <- gerarNumeroAleatorio(60, falso, verdadeiro), ",")
      x <- i-1
      enquanto (x > 0) faca
         se (valores[i] = valores[x]) entao
           escreva("(Repitiu: ", valores[x], " na posição ", x, ")")
           valores[i] <- gerarNumeroAleatorio(60, falso, verdadeiro), ",")
           x <- i
         fimse
         x <- x-1
      fimenquanto
      escreva(valores[i], ",")
   fimpara
   escreval("]")
fimpara  
fimalgoritmo

----------------------------------------------------

algoritmo "GerarNumeroAleatorio"
var
 i: inteiro
funcao gerarNumeroAleatorio(intervalo: inteiro; consideraNegativos: logico; comecaDoUm: logico): inteiro
var r: inteiro
inicio
 r <- int(rand*intervalo)
 se (comecaDoUm) entao
    r <- r + 1
 fimse

 se (consideraNegativos) entao
   r <- r - int(intervalo/2)
 fimse
 retorne r
fimfuncao
inicio
para i de 1 ate 20 faca
     escreval(gerarNumeroAleatorio(10, falso, falso))
fimpara
fimalgoritmo