[pascal] drzewo binarne

[vbn0]

Wykorzystując moduł Graph, mam napisać funkcję która rysuje drzewo binarne.

[Xitami]

Kod: Zaznacz cały

uses graph;

procedure tree(n,lx,ly,x,y:integer);
begin
  circle(x,y,2);
  if n=0 then exit;
  if random(10)<=n then
  begin
    setcolor(1);
    line(x,y,               x-lx, y+ly);
    tree(n-1, lx div 2, ly, x-lx, y+ly);
  end;
  if random(10)<=n then
  begin
    setcolor(2);
    line(x,y,               x+lx, y+ly);
    tree(n-1, lx div 2, ly, x+lx, y+ly);
  end
end;

var
  gd,gm:integer;
const
  h=9;

begin
  gd:=detect; initgraph(gd,gm,');
  repeat
    tree(h, getmaxx div 4, (getmaxy-20) div h, getmaxx div 2, 10);
    readln;
    clearviewport;
  until false
end.