Português   Árvore Binária

Descrição

 Esse projeto desenha uma árvore binária.

Comentários:

Escreva arvore (seguida de um número) na caixa de comandos para o xLogo desenhar uma árvore com a altura dada pelo número.

aprenda arvore :altura
#
# exemplo : arvore 150
#
mudeel (quociente :altura 10)
atr "alea sorteie 3
se :alea = 0 [mudecl 2][se :alea = 1 [mudecl 1][mudecl  3]]
pf :altura
se :altura > 5 [
  pd 30 arvore (quociente :
altura 2)
  pd 30 arvore (quociente :
altura 2)
  pe 90 arvore (quociente :
altura 2)
  pe 30 arvore (quociente :
altura 2)
  pd 60
  ]
un
pt :
altura
ul
mudeel 1 mudecl 0
fim

Um exemplo mais simples:
aprenda arvore :dist
  se :dist < 5 [pare]
  pf :dist pd 30
  arvore :dist - 10
  pe 60
  arvore :dist - 10
  pd 30 pt :dist
fim

última atualização: 21/mar/2008