Лабораторная работа: Динамические структуры данных

writeln (' 3 - dobavleniye elementa');

writeln (' 4 - po faily stroit derevo');

writeln (' 0 - vuxod iz programmu');

write (' vash vubor: '); readln (b);

case b of

1: begin

write ('vvedite element: '); readln (e);

writeln ('nayavnost elementa-',find (tree,e));

writeln ('press any key');

readkey;

end;

2: begin

{printtree (tree); } writeln ('Zapisano v file OUTPUT. TXT'); writeln;

assign (output,'c: \output. txt');

rewrite (output);

write (output,s);

s: ='';

close (output);

writeln ('press any key');

readkey;

end;

3: begin

write ('vvedite element: '); readln (e);

insiter (tree,e);

end;

4: begin

s: ='';

assign (input,'c: \input. txt');

reset (input);