Число вхождений элемента E в дерево T, Описать процедуру или функцию, которая его определяет Опции

[AlexSun]

Задача:

type TED = <любой тип>;
дерево =^ верхушка;
верхушка = record
элемент: TED;
левая, правая: дерево;
end;
Описать процедуру или функцию, которая определяет число вхождений элемента E в дерево T.

Все что пока есть:

uses	crt;
type	TED = integer;
	t =^ top;
	top = record
		e: TED;
		l, r: t;
	end;
begin
	clrscr;

	readkey;
end.

Не понимаю как делать.
Нужно создать дерево (как?), заполнить его чем-то (чем? рандом или от пользователя... и как?), далее получить от пользователя элемент и посчитать сколько его есть в дереве.

Нашел в книге такой исходник:

function count(T: дерево; E: ТЭД): integer;
var	S: стек;
	k: integer;
begin
	очистек(S);
	k := 0; {число вершин с E}
	while T <> nil do begin {T-ссылка на очередную вершину}
		if T^.элем = E then k := k+l;
		{переход к следующей вершине:}
		if T^.лев <> nil then  begin {есть ветвь влево}
			if T^.прав <> nil then встек(S,T^.прав); {правую ветвь, если есть, - в стек}
			T:=T^.лев {идти влево}
		end
		else if T^.прав<>nil then T:=T^.прав {идти вправо}
		else {нет обоих ветвей} begin {взять ветвь из стека и идти по ней}
		if пустек(S) then T := nil {конец просмотра}
		else изстека(S,T)
		end
	end;
	count := k
end;

Это то что мне нужно, не?
Стек - список?

Сообщение отредактировано: AlexSun - 26.11.2011 18:33

[IUnknown]

Или как ее написать, чтоб корень дерева был в центре строки, а ветки и листья ниже его?

Написать-то можно, только вот разберешься ли ты потом, какой узел - чей потомок, или нет?

Вот так, скажем:

procedure show(var t : tree);

   procedure InnerShow(t : tree; X, Y : integer);
   begin
      if t <> nil then
      begin
         InnerShow(t^.r, X+((80 div succ(Y)) div 2), Succ(Y));
         gotoxy(X, 2*Y); write(t^.e);
         InnerShow(t^.l, X-((80 div succ(Y)) div 2), Succ(Y));
      end;
   end;

begin
   InnerShow(t, 40, 2); // Координаты корня - центр второй строки экрана
   gotoxy(1, 24); // Чтобы выводимый ПОТОМ текст не накладывался на дерево
end;

, и что? Попробуй напечатать дерево из 10 элементов, и разобраться, кто чей левый потомок, а кто - правый...