while Root<>Nil do
if Root^.data=Node then ...
Function isEqual(first, second: Rabotnik): Boolean;
Begin
...
{
Здесь - сравнивай записи по какому-то нужному тебе критерию,
если запись first по этому критерию равна записи second,
то вернуть True, иначе False
}
End;
If Root^.data = Node Then
If isEqual(Root^.Data, Node) Then
Скомпилируешь - увидишь... Вот тут, например:
{ ОСНОВНАЯ ПРОГРАММА }А где этот самый Key определен?
...
key:=readKey; {Считывание кода нажатой клавиши}
...
А... у если такие, то это не проблема... Был у меня где-то этот key...
Спасибо большое!!!!!
Я тут кой-чего наделала:
{========ФУНКЦИЯ ДЛЯ СРАВНЕНИЯ ЭЛЕМЕНТОВ ДЕРЕВА=================}
Function Sravn(first,second:rabotnik):Boolean;
Var j:Integer;
Begin
Reset(f);
while not eof(f) do
For i:=filesize(f)-1 downto 1 do
For j:=0 to i-1 do
Begin
Seek(f,j);
Read(f,first,second);
if first.number=second.number then
Sravn:=True
else Sravn:=False;
end;
End;
{====ПРОЦЕДУРА ОПРЕДЕЛЯЮЩАЯ ЧИСЛО ВХОЖДЕНИЙ ЭЛ-ТА В ДЕРЕВО======}
Procedure KolE(Root:TreePtr;n:Integer;Node:rabotnik);
Begin
Reset(f);
writeln('Введите элемент');
Read(f,r);
Node:=r;
n:=0;
while Root<>Nil do
if Sravn(Root^.data,Node) then
n:=n+1;
KolE(Root^.left,n,Node);
KolE(Root^.right,n,Node);
writeln('количество элементов равно',n);
Close(f);
End;