Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Posting-Version: version B 2.10.1 6/24/83; site ukma.UUCP Path: utzoo!watmath!clyde!cbosgd!hasmed!qusavx!ukma!brian From: brian@ukma.UUCP (Brian Sturgill) Newsgroups: net.wanted.sources Subject: Re: tree printing algorithm wanted Message-ID: <392@ukma.UUCP> Date: Sat, 15-Dec-84 02:26:27 EST Article-I.D.: ukma.392 Posted: Sat Dec 15 02:26:27 1984 Date-Received: Sun, 16-Dec-84 06:47:18 EST Organization: Univ. of KY Mathematical Sciences Lines: 76 This is Wirth's algorithm for tree printing from Data Strutures + Algorithms = Program's. This version is written in Modula 2. PROCEDURE PrintTree(t : treeptr; h : CARDINAL); (* Print out Expression Tree *) (* h is current height of tree *) (* From main program call as PrintTree(root,0) *) VAR i :CARDINAL; BEGIN IF t # NIL THEN PrintTree(t^.l,h+1); FOR i := 1 TO h DO WriteString(' ') END; WriteChar(outsd,t^.data); WriteLn; PrintTree(t^.r,h+1); END END PrintTree; ----------------------------------------- Brian Sturgill University of Kentucky Graduate School (606) 257-4613 /------- Arpa-Net unmvax----\ / research >---/------------/-------- anlams!ukma!ukgs!brian boulder---/ / decvax!ucbvax -/ (or cbosgd!hasmed!qusavx!ukma!ukgs!brian) For arpa-net, anlams has the name ANL-MCS. (i.e. "ukma!ukgs!brian@ANL-MCS"). We have been having intermittent problems with this address though. Subject: Re: tree printing algorithm wanted Newsgroups: net.wanted.sources This is Wirth's algorithm for tree printing from Data Strutures + Algorithms = Program's. This version is written in Modula 2. PROCEDURE PrintTree(t : treeptr; h : CARDINAL); (* Print out Expression Tree *) (* h is current height of tree *) (* From main program call as PrintTree(root,0) *) VAR i :CARDINAL; BEGIN IF t # NIL THEN PrintTree(t^.l,h+1); FOR i := 1 TO h DO WriteString(' ') END; WriteChar(outsd,t^.data); WriteLn; PrintTree(t^.r,h+1); END END PrintTree; ----------------------------------------- Brian Sturgill University of Kentucky Graduate School (606) 257-4613 /------- Arpa-Net unmvax----\ / research >---/------------/-------- anlams!ukma!ukgs!brian boulder---/ / decvax!ucbvax -/ (or cbosgd!hasmed!qusavx!ukma!ukgs!brian) For arpa-net, anlams has the name ANL-MCS. (i.e. "ukma!ukgs!brian@ANL-MCS"). We have been having intermittent problems with this address though.