Binarne drzewo poszukiwań/kod: Różnice pomiędzy wersjami
| [wersja przejrzana] | [wersja przejrzana] |
Usunięta treść Dodana treść
m wydruk drzewa w kolejności in-order (wg porządku) zamiast pre-order (piętrami od korzenia do liści) |
m wydruk drzewa z wcięciami |
||
Linia 47:
end;
procedure Pokaz(p : wsk; w : integer);
var i : integer;
begin
if p <> nil then begin
Pokaz(p^.l, w+1);
for i := 1 to w do write(' ');
writeln(p^.d);
Pokaz(p^.r, w+1);
end
end;
Linia 125 ⟶ 127:
writeln;
writeln('Nie wywazone:');
Pokaz(p,0);
n := Licz(p);
writeln('Elementow jest ',n);
Linia 131 ⟶ 133:
writeln;
writeln('Wywazone:');
Pokaz(p,0);
readln;
end.
| |||