Я понял постановку задачи так: дано бинарное дерево, проверить, является ли оно бинарным деревом поиска
| Код |
type TTree=^PTree;
PTree=record
Left,
Rigth:TTree;
Data:integer;
end;
function IsBinary(root:TTree):boolean;
var f:boolean;
begin
if root=nil then IsBinary:=true
else begin
f:=true;
if (root^.Left<>nil) then f:=f and (root^.Data>root^.Left^.Data);
if (f)and(root^.Rigth<>nil) then f:=f and(root^.Data<root^.Rigth^.Data);
IsBinary:=(f)and(IsBinary(root^.Left))and(IsBinary(root^.Rigth));
end;
end;
|
|