[Resolvido] melhorar esse algoritmo

[ulfreitas 6]

Boa tarde, me ajudem a melhorar esse algoritmo

a proposta é a seguinte:

A pessoa pessa em um dos seguintes animais: Leão; Cavalo; Homem; Macaco; Morcego; Baleia; Avestruz; Pinguim; Pato; Águia; Tartaruga; Crocodilo; Cobra;

Atraves de pergutas você chega ao animal q ela pensou.

ex:

- É mamífero? Sim.

- É quadrúpede? Sim.

- É carnívoro? Não.

- É herbívoro? Sim.

- Então o animal escolhido foi o CAVALO

 

meu código

var
r : inteiro
inicio
// Seção de Comandos 
escreval("Escolha um dos animais abaixo: ")
escreval("LEAO, CAVALO, HOMEM, MACACO, MORCEGO, BALEIA")
escreval("AVESTRUZ, PINGUIM, PATO, AGUIA")
escreval("TARTARUGA, CROCODILO, COBRA")
escreval("Responda as perguntas utilizando a marcação numerica correspondente a sua escolha: ")
escreval("")
escreval("O animal que você escolheu é: ")

escreval("(1)MAMÍFERO   (2)AVE   (3)RÉPTIL")
leia(r)
se r = 1 entao
  escreval("(1)QUADRÚPEDE   (2)BÍPEDE   (3)VOADOR   (4)AQUÁTICO")
  leia(r)
  se r = 1 entao
     escreval("(1)CARNÍVORO   (2)HERBÍVORO")
     leia(r)
     se r = 1 entao
        escreval("O animal escolhido foi: LEÃO")
     senao
     se r = 2 entao
        escreval("O animal escolhido foi: CAVALO")
     fimse
     fimse
  senao
  se r = 2 entao
     escreval("(1)ONÍVORO   (2)FRUTIVORO")
     leia(r)
     se r = 1 entao
        escreval("O animal escolhido foi: HOMEM")
     senao
     se r = 2 entao
        escreval("O animal escolhido foi: MACACO")
     fimse
     fimse
  senao
  se r = 3 entao
     escreval("O animal escolhido foi: MORCEGO")
  senao
  se r = 4 entao
     escreval("O animal escolhido foi: BALEIA")
  fimse
  fimse
  fimse
  fimse
senao
se r = 2 entao
  escreval("(1)NÃO VOADORA   (2)NADADORA   (3)DE RAPINA")
  leia(r)
  se r = 1 entao
     escreval("(1)TROPICAL   (2)POLAR")
     leia(r)
     se r = 1 entao
        escreval("O animal escolhido foi: AVESTRUZ")
     senao
     se r = 2 entao
        escreval("O animal escolhido foi: PINGUIM")
     fimse
     fimse
  senao
  se r = 2 entao
     escreval("O animal escolhido foi: PATO")
  senao
  se r = 3 entao
     escreval("O animal escolhido foi: ÁGUIA")
  fimse
  fimse
  fimse
senao
se r = 3 entao
  escreval("(1)COM CASCO   (2)CARNÍVORO   (3)SEM PATAS")
  leia(r)
  se r = 1 entao
     escreval("O animal escolhido foi: TARTARUGA")
  senao
  se r = 2 entao
     escreval("O animal escolhido foi: CROCODILO")
  senao
  se r = 3 entao
     escreval("O animal escolhido foi: COBRA")
  fimse
  fimse
  fimse
fimse
fimse
fimse
fimalgoritmo

 

Dúvidas:

1) tem como fazer usando

escolha(r)
 caso 1 : escreval("(1)QUADRÚPEDE   (2)BÍPEDE   (3)VOADOR   (4)AQUÁTICO")
          leia(r)
          escolha(r) 
             caso 1 : escreval("(1)CARNÍVORO   (2)HERBÍVORO")
             leia(r)
             se r = 1 entao
...

Eu tentei mas nao deu certo, essa estrutura nao aceita um escolha dentro de outra?

Enfim como fazer pra reduzir o código?

[ulfreitas 6]

Aow pessoal consegui fazer de outra forma uzando "escolha" dá uma olhada

var
r : inteiro
inicio
// Seção de Comandos
escreval("Escolha um dos animais abaixo: ")
escreval("LEAO, CAVALO, HOMEM, MACACO, MORCEGO, BALEIA")
escreval("AVESTRUZ, PINGUIM, PATO, AGUIA")
escreval("TARTARUGA, CROCODILO, COBRA")
escreval("Responda as perguntas utilizando a marcação numerica correspondente a sua escolha: ")
escreval("")
escreval("O animal que você escolheu é: ")

escreval("(1)MAMÍFERO   (2)AVE   (3)RÉPTIL")
leia(r)
escolha r
caso 1
    escreval("(1)QUADRÚPEDE   (2)BÍPEDE   (3)VOADOR   (4)AQUÁTICO")
    leia(r)
    escolha r
    caso 1
         escreval("(1)CARNÍVORO   (2)HERBÍVORO")
         leia(r)
         escolha r
         caso 1
              escreval("Leão")
         caso 2
              escreval("Cavalo")
         fimescolha
    caso 2
         escreval("(1)ONÍVORO   (2)FRUGIVORO")
         leia(r)
         escolha r
         caso 1
              escreval("Homem")
         caso 2
              escreval("Macaco")
         fimescolha
    caso 3
         escreval("Morcego")
    caso 4
         escreval("Baleia")
    fimescolha
caso 2
    escreval("(1)NÃO VOADORA   (2)NADADORA   (3)DE RAPINA")
    leia(r)
    escolha r
    caso 1
         escreval("(1)TROPICAL   (2)POLAR")
         leia(r)
         escolha r
         caso 1
              escreval("Avestruz")
         caso 2
              escreval("Pinguim")
         fimescolha
    caso 2
         escreval("Pato")
    caso 3
         escreval("Aguia")
    fimescolha
caso 3
    escreval("(1)COM CASCO   (2)CARNÍVORO   (3)SEM PATAS")
    leia(r)
    escolha r
            caso 1
                 escreval("Tartaruga")
            caso 2
                 escreval("Crocodilo")
            caso 3
                 escreval("Cobra")
    fimescolha
fimescolha
fimalgoritmo

ficou um pouco menor

qual tá melhor?

[ulfreitas 6]

bom dia

moderadores pode fechar o topico ja decidi usar o segundo mesmo :)

obrigado