n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/RandomSearchTreeU.pas

52 строки954 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ����������� ��������� ��������� ������ ������
unit RandomSearchTreeU;

uses GraphABC;

type
  PNode=^TNode;
  TNode=record
    data: integer;
    left,right: PNode;
  end;
  
function CreateNode(d: integer; l,r: PNode): PNode;
begin
  New(Result);
  Result^.data:=d;
  Result^.left:=l;
  Result^.right:=r;
end;

procedure Add(var t: PNode; d: integer);
begin
  if t=nil then
    t:=CreateNode(d,nil,nil)
  else if t^.data>d then
    Add(t^.left,d)
  else if t^.data<d then
    Add(t^.right,d)
end;

const dy=60;

procedure DrawTree(t: PNode; x,y,dx: integer);
begin
  if t=nil then exit;
  Line(x,y+16,x-dx,y+dy);
  Line(x,y+16,x+dx,y+dy);
  TextOut(x-3,y,IntToStr(t^.data));
  DrawTree(t^.left,x-dx,y+dy,dx div 2);
  DrawTree(t^.right,x+dx,y+dy,dx div 2);
end;

var
  t: PNode;
  i: integer;
  
begin
  for i:=1 to 30 do
    Add(t,Random(100));
  SetWindowCaption('�������� ������ ������');
  DrawTree(t,WindowWidth div 2,10,WindowWidth div 4);
end.