Поиск элемента в дереве, Бинарное дерево Опции

[XBugiman]

Структура:

  PTree=^Tree;
  Tree=record
	info:string[70];
	da,net:PTree;
  end;

Нужна процедура/функция, которая возвратит указатель на элемент current содержащийся в дереве. (current: PTtree); В наличии есть root и currnet.

[volvo]

В Турбо Паскале над указателями не определены никакие операции, кроме сравнения с nil. То есть, тебе надо пройти по дереву, КАЖДЫЙ указатель преобразовать к виду, в котором его можно сравнить с другим указателем (я надеюсь, ты в курсе, что $83DF:$000B и $7FFD:$400B указывают на одну и ту же ячейку памяти, хотя как видишь, сами значения сегментной части и смещений у них совершенно разные), и сравнить с приведенным к тому же виду current... То есть, что-то вроде:

function findptr(root: ttree; curr: ttree): ttree;
var p: ttree;
begin
  if root = nil then findptr := nil
  else
    if (convert(root^.left) = convert(curr)) or (convert(root^.right) = convert(curr)) then findptr := root
    else begin
      p := findptr(root^.left, curr);
      if p = nil then p := findptr(root^.right, curr);
      findptr := p;
    end;
end;

Функцию Convert попробуй написать сам...