5270659529

Drzewa BST

procedurę Wyważ (var p : wsk; b : integer);

var a : integer; q, w : wsk;

begin

b:=b-l; a := Licz(p^A.l); b:=b-a; while abs(a-b) > 1 do begin if a > b then begin if p^A.l^A.r o nil then begin q := p^A.l;

repeat w := q; q := q^A.r; until q^A.r = nil; q^A.r := p; q^A.l := p^A.l; w^A.r := nil; p^A.l := nil; p := q; end

else begin p^A.l^A.r := p; q := p^A.l; p^A.l := nil; p := q; end; a := a-l; b := b+1;

else begin

if p^A.r^A.l o nil then begin

q := P^A-r;

repeat w := q; q := q^A.l; until q^A.l=nil; q^A.l := p; q^A.r := p^A.r; w^A.l := nil; p^A.r := nil; p := q; enc else begin p^A.r^A.l := p; q := p^A.r; p^A.r := nil; p := q; end; a := a+l;b :=b-l; end; end;

if p^A.l o nil then Wywaz(p^A.l,a); if p^A.r o nil then Wywaz(p^A.r,b); end;

PODSTAWY INFORMATYKI. Adrian Horzyk, http://home.agh.edu.pl/~t

begin p := nil;

writeln;

write('Ile elementów?'); readln(n);

for i := 1 to n do begin writefElement numer ',i,':'); readln(x);

Wstaw(p,x);

end;

writeln;

writeln('Nie wyważone:'); Pokaz(p); n := Licz(p);

writeln('Elementow jest ',n);

Wywaz(p,n);

writeln;

writeln(’Wywazone:');

Pokaz(p);

readln;

end.

Wykład 6. Strona 13.