Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
ВнизПмогите нарисовать двоичное дерево!!!! Найти похожие ветки
← →
daos (2003-05-25 16:56) [0]Есть
Type Ptr=^Node;
Node=record
Info=Char;
Llink,Rlink=Ptr;
End;
Выполняетс яобратный обход
procedure PR(t:ptr); {рекурсивный обход дерева}
begin if t<>nil then
begin
PR(t^.Llink); {обойти левое поддерево}
writeln(t^.info); {попасть в корень}
PR(t^.Rlink); {обойти правое поддерево}
end;
end;
Как нарисовать дерево через Canvas????
Пытаюсь так но работает через раз
Procedure Obhod(t:TPTree;st:byte);
var
po:TPoint;
begin if t<>nil then
begin
Obhod(t^.Left,1); {обойти левое поддерево}
SL.Add(IntToStr(t^.ident)+" = "+t^.discript); {попасть в корень}
if st=1
then begin
Po.X:=FMain.Canvas.PenPos.X;
Po.y:=FMain.Canvas.PenPos.y;
FMain.Canvas.MoveTo(FMain.Canvas.PenPos.X-40,FMain.Canvas.PenPos.y+50);
FMain.Canvas.TextOut(FMain.Canvas.PenPos.X,FMain.Canvas.PenPos.y," "+IntToStr(t^.Ident)+" ");
FMain.Canvas.LineTo(FMain.Canvas.PenPos.X+10,FMain.Canvas.PenPos.y-50);
end
else if st=0 then FMain.Canvas.TextOut(FMain.Canvas.PenPos.X,FMain.Canvas.PenPos.y," "+IntToStr(t^.Ident)+" ")
else if st=2 then begin
FMain.Canvas.LineTo(FMain.Canvas.PenPos.X+10,FMain.Canvas.PenPos.y+50);
FMain.Canvas.TextOut(FMain.Canvas.PenPos.X,FMain.Canvas.PenPos.y," "+IntToStr(t^.Ident)+" ");
end;
Obhod(t^.Right,2); {обойти правое поддерево}
end;
end;
← →
daos (2003-05-26 14:06) [1]Неужели никто не знает????
← →
daos (2003-05-27 15:18) [2]Сделал сам.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c