Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Бинарные деревья

Автор: Катерина 4.04.2006 21:23

Вот эта прога: (Показать/Скрыть)

ПОМОГИТЕ!!!!!!!!!!!! Я не знаю,как исправить мою ошибку... mega_chok.gif blink.gif wacko.gif

Автор: volvo 4.04.2006 21:33

Цитата
Компилятор находит ошибку, не знаю как её исправить
Все правильно находит... Ты здесь:
 while Root<>Nil do
if Root^.data=Node then ...

пытаешься сравнивать переменные типа Rabotnik, а компилятор этого делать не умеет. Придется тебе писать свою функцию сравнения:
Function isEqual(first, second: Rabotnik): Boolean;
Begin
...
{
Здесь - сравнивай записи по какому-то нужному тебе критерию,

если запись first по этому критерию равна записи second,
то вернуть True, иначе False
}
End;

И вместо
If Root^.data = Node Then

делать
If isEqual(Root^.Data, Node) Then


Кстати, у тебя там ниже по тексту есть еще ошибки...

Автор: Катерина 4.04.2006 22:05

Цитата(volvo @ 4.04.2006 17:33)
Кстати, у тебя там ниже по тексту есть еще ошибки...

Это где такие?

Автор: volvo 4.04.2006 22:12

Скомпилируешь - увидишь... Вот тут, например:

{ ОСНОВНАЯ ПРОГРАММА }
...
key:=readKey; {Считывание кода нажатой клавиши}
...
А где этот самый Key определен?

Ну, и лишний апостроф в строке вывода на печать...

Автор: Катерина 4.04.2006 22:17

А... у если такие, то это не проблема... Был у меня где-то этот key...
smile.gif Спасибо большое!!!!!

Автор: Гость 5.04.2006 1:53

Я тут кой-чего наделала:

{========ФУНКЦИЯ ДЛЯ СРАВНЕНИЯ ЭЛЕМЕНТОВ ДЕРЕВА=================}
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;

Хотелось бы верить, что правильно,но это не так... Программа стопорится! Что опять не так?