Aufgabe 4

Gegeben sei ein nach inorder-sortierter Binärbaum:

TYPE	Tree = POINTER TO Node;
	Node = RECORD
		   content: CARDINAL;
		   left, right: Tree;
	       END;

Schreiben Sie eine Prozedur, die die Knotencontente absteigend sortiert ausgibt.

PROCEDURE printDesc(wurzel: Tree);

Lösung

PROCEDURE printDesc(wurzel: Tree);
BEGIN
	IF wurzel = NIL THEN
	    RETURN
	END;

	IF wurzel^.right <> NIL THEN
	    printDesc(wurzel^.right)
	END;
	WriteCard(wurzel^.content,6);
	IF wurzel^.left <> NIL THEN
	    printDesc(wurzel^.left)
	END;
END printDesc;