program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
(*
//drzewo binarne
type
drzewo=^osoba;
osoba=record
klucz:string[30];
dane:t;
lewy_el:drzewo;
prawy_el:drzewo;
end;

//funkcja wyszukujaca
function wyszukaj(drzewko:drzewo; klucz1:string[30]):drzewo;
var
test:drzewo;
begin
if drzewo=nil then
wyszukaj:=nil
else
if (klucz1=drzewko^.klucz) then
wyszukaj:=drzewko
else
begin
test:=wyszukaj (drzewko^.lewy_el,klucz1);
if (test<>nil) then
wyszukaj:=test
else
wyszukaj:=wyszukaj(drzewko^.prawy_el,klucz1);
end;
end;
*)

//www.4programmers.net//
//poczatek

type
Drzewo = ^wezel;
Wezel = record
Dana: integer;
Lewy:drzewo;
prawy: Drzewo;
etykieta:integer;
end;

//drzewo przejdz w lewo
procedure Inorder( W : Drzewo);
begin
if W <> nil then
begin
Inorder(W^.Lewy);
Writeln(W^.Etykieta);
Inorder(W^.Prawy);
end;
end;

//drzewo przejdz w prawo
procedure Postorder( W : Drzewo);
begin
if W <> nil then
begin
Postorder(W^.Lewy);
Postorder(W^.Prawy);
WriteLn(W^.Etykieta);
end;
end;

//cos jeszcze
procedure Preorder( W : Drzewo);
begin
if W <> nil then
begin
Writeln(W^.Etykieta);
Preorder(W^.Lewy);
Preorder(W^.Prawy);
end;
end;

//zmienne programu glownego
var
chz:integer;
w:integer;

//program glowny
begin
writeln('podaj w');
readln(w);

writeln('wcisnij');
begin
writeln('1. aby przejsc w lewo');
writeln('2. aby przejsc w prawo');
writeln('3. aby wyswietlic');
writeln('9. aby wyjsc z programu');

readln(chz);
case chz of
1: begin
inorder(wezel());

readln;
writeln('wcisnij ENTER');
end;

2: begin
postorder (wezel();

readln;
writeln('wcisnij ENTER');
end;

3: begin
preorder (wezel();

readln;
writeln('wcisnij ENTER');
end;

9: begin
//wyjscie

end;

{ TODO -oUser -cConsole Main : Insert code here }
else
writeln('podaj poprawna liczbe');
end;
end;

end.