5270659528

Drzewa BST

program BST; uses crt; type

wsk = ^Awezel; wezel = record

d: integer;

1, r: wsk;

end;

n,i,x : integer; p : wsk; poz : byte;

procedurę Wstaw (var p : wsk; x : integer);

if p = nil then begin new(p);

P^A d := x;

p^A.l := nil; p^A.r := nil; end

else if x<p^A.d then Wstaw (p^A.l,x) else

Wstaw (p^A.r,x);

end;

PODSTAWY INFORMATYKI. Adrian Horzyk, http://home

function Licz (p : wsk): integer;

var k: integer;

begin

if p o nil then

k := 1;

if p^A.l o nil then k := k+Licz (p^A.l); if p^A.r o nil then k := k+Licz (p^A.r);

Licz := k; end

else Licz := 0;

procedurę Pokaz (p : wsk); begin

writeln(p^A.d);

if p^A.I o nil then Pokaz (p^A.l); if p^A.r o nil then Pokaz (p^A.r);