home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / XCLAS20D.ZIP / ARBOLDEM.PRG < prev    next >
Encoding:
Text File  |  1993-03-23  |  614 b   |  32 lines
  1. //Demo de la estructura árbol
  2.  
  3.  
  4. FUNCTION Main
  5. LOCAL o, n := 1, resp := "N", block
  6. clear
  7. o := arbol()
  8. @ 0,0 say "¿Quieres leer un árbol ya grabado?" get resp
  9. read
  10. if resp $ "Ss"
  11.    o:Load( "arbol.dat" )
  12. endif
  13. while n != 0
  14.    @ 2,0 say "Ve introduciendo números ( 0 para terminar ) " get n pict "9999"
  15.    read
  16.    o:Insert( n )
  17. end
  18. clear
  19. qout()
  20. block := {| x | qqout( x ) }
  21. qout( "Recorrido en preorden: " )
  22. o:PreEval( block )
  23. qout( "Recorrido en inorden: " )
  24. o:InEval( block )
  25. @ 0,0 say "¿Quieres grabar el árbol?" get resp
  26. read
  27. if resp $ "sS"
  28.    o:Save( "arbol.dat" )
  29. endif
  30. RETURN 0
  31.  
  32.