home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / GAMES / SCO_EAR.ZIP / TREE.PAS < prev   
Pascal/Delphi Source File  |  1992-02-20  |  351b  |  26 lines
  1. program TREES;
  2. uses crt;
  3.  
  4. type
  5.  branch=^tree;
  6.  tree=record
  7.   letter:char;
  8.   left,right:branch;
  9.  end;
  10.  
  11. var
  12.  root:branch;
  13.  ltr:char;
  14.  
  15. procedure input(var root:branch);
  16. var
  17.  parent:branch;
  18.  x:integer;
  19.  
  20.   procedure put_in(var ltr
  21.   begin
  22.    writeln('Letter');
  23.    readln(ltr);
  24.   end;
  25.  
  26. procedure attach(ltr:char; var parent:branch);