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 |
aprenda arvore :dist se :dist < 5 [pare] pf :dist pd 30 arvore :dist - 10 pe 60 arvore :dist - 10 pd 30 pt :dist fim |