Algoritmo trabalhado na aula de hoje (1 de abril, dia da mentira :D) ~ Produvasf

inicio
// Seção de Comandos
escreval
escreva("Digite um numero qualquer acima de 100: ")
leia(n1)
escreval
escreval("criando o numero da sorte a partir do numero escolhido...")
n2 <- 2*n1 - (n1 + 2) // esta formula foi criada na tentativa de
                      // criar um falso numero aleatório, ela po
                      // ser modificada, ou colocada uma instruç
                      // ão de números aleatórios
escreval

enquanto esc<>n2 faca
      contador <- contador + 1
      escreval
      escreva("Digite o numero: ")
      leia(esc)
      se ((esc>(n2-n2*0.1)) e (esc<(n2+n2*0.1))) entao
         escreval("     muito perto...")
      senao
           se ((esc>(n2-n2*0.25)) e (esc<(n2+n2*0.25))) entao
              escreval("     perto...")
           senao
                se ((esc>(n2-n2*0.5)) e (esc<(n2+n2*0.5))) entao
                   escreval("     não está perto...")
                senao
                     se ((esc>(n2-n2*0.75)) e (esc<(n2+n2*0.75))) entao
                        escreval("     longe...")
                     senao
                          se ((esc>(n2-n2*1)) e (esc<(n2+n2*1))) entao
                             escreval("     muito longe...")
                          senao
                               escreval("     muito, muito longe!")
                          fimse
                     fimse
                fimse
           fimse
      fimse
fimenquanto

escreval
escreva("Você acertou com ", contador," tentativas!")
escreval
fimalgoritmo

Contribuição (Matheus Moreira): Algoritmos com estruturas, se, enquanto, repita ...

Algoritmo nº1, estrutura utilizando o "enquanto":

algoritmo "semnome"
// Função :
// Autor :
// Data : 1/4/2011
// Seção de Declarações
var
mist,number,tentativa:inteiro
inicio
// Seção de Comandos
mist<-720
escreval ("Você é capaz de descobrir qual é o Nº inteiro misterioso?")
escreval ("Se for digite um número que você acha corresponder ao Nº misterioso:")
leia (number)
enquanto (number<>mist) faca
         se (number < mist) entao
            escreval("Você errou, o Nº misterioso é maior que ",number)
            escreval("TENTE NOVAMENTE")
         senao
              se (number > mist) entao
                 escreval ("Você errou, o Nº misterioso é menor que ",number)
                 escreval ("TENTE NOVAMENTE")
              fimse
         fimse
         escreval ("Digite o Nº novamente: ")
         leia (number)
         tentativa <- tentativa+1
         escreval ("Tentativa nº: ",tentativa)
fimenquanto
escreval ("PARABÉNS VOCÊ VENCEU")
escreval ("O Nº misterioso é: ",mist)
fimalgoritmo

Algoritmo nº2, estrutura utilizando o "repita":

algoritmo "semnome"
// Função :
// Autor :
// Data : 1/4/2011
// Seção de Declarações
var
mist,number,tentativa:inteiro
inicio
// Seção de Comandos
mist<-720
escreval ("Você é capaz de descobrir qual é o Nº inteiro misterioso?")
escreval ("Se for digite um número que você acha corresponder ao Nº misterioso:")
leia (number)
repita
         se (number < mist) entao
            escreval("Você errou, o Nº misterioso é maior que ",number)
            escreval("TENTE NOVAMENTE")
         senao
              se (number > mist) entao
                 escreval ("Você errou, o Nº misterioso é menor que ",number)
                 escreval ("TENTE NOVAMENTE")
              fimse
         fimse
         escreval ("Digite o Nº novamente: ")
         leia (number)
         tentativa <- tentativa+1
         escreval ("Tentativa nº: ",tentativa)
ate (number = mist)
escreval ("PARABÉNS VOCÊ VENCEU")
escreval ("O Nº misterioso é: ",mist)
fimalgoritmo