Нужно распечатать бинарное дерево без листьев. 1 метод надо рекурсивно, а второй метод стеки или очередь.
У меня получается только создать дерево идеально сбалансированное. Кто может помочь в написании этих двух процедур? Могу выложить код создания дерева, если это нужно.

Что значит "без листьев"? Не печатать узлы, у которых нет потомков? Ну, так возьми любую процедуру обходя дерева, и перед тем, как напечатать значение узла, проверяй, не равны ли оба его потомка (и левый и правый) nil-у, если нет - то печатай...

И рекурсивный и итеративный вывод дерева уже рассматривались на форуме, пользуйся поиском.