В написании программы а то выгонят из универа!!!!

[glayder]

(Паскаль) Постройте бинарное дерево поиска со значениями 1 4 3 7 5. Совершите обходы 3 способами и найдите сумму всех узлов!!!


Помогите кто нибудь!!!!!!

[ex.cluz]

а то выгонят из универа

Это что, угроза?
Т.е. вы вот даже не чесались и вам уже приперло, а мы должны за вас делать? Шли бы вы...в раздел фриланс! Там за ваши денежки сделают эту задачку.
Кроме того вы нарушаете правила данного форума кросс-постингом.
Это ведь вы написали: http://www.programmersforum.ru/showthread.php?t=111870

[DRAgon™]

Сообщение от glayder

(Паскаль) Постройте бинарное дерево поиска со значениями 1 4 3 7 5. Совершите обходы 3 способами и найдите сумму всех узлов!!!


Помогите кто нибудь!!!!!!

смотрите,здесь не все,нашел на форуме случайно(на другом)

uses crt;
type
BTp=integer;
PBTr=^TBTr;
TBTr=record
    Info:BTp;
    Left,Right:PBTr;
end;
var
n,k,i:longint;
vvod,x:byte;
Tree:PBTr;
pr:boolean;
 
Function SearchB (PInfo:BTp; PTree:PBTr):Boolean;
var s:PBTr;
begin
s^.Info:=PInfo; {Создаём барьер}
 
while Ptree^.Info<>PInfo do begin
     if PTree^.Info>PInfo then
        PTree:=PTree^.Left
     else PTree:=PTree^.Right;
end;
if PTree=s then SearchB:=false
else SearchB:=true;
end;
 
Procedure Print (PTree:PBTr;Depth:Word);
var
 i:integer;
begin
    if Assigned (Ptree) then begin
    Print(PTree^.left,Depth+1);
    writeln;
    for i:=1 to depth do write('                 ');
    writeln(Ptree^.Info);
    print(PTree^.Right,Depth+1);
   end;
end;
 
procedure Make(var AData:PBTr;n:integer);
begin
  if AData=nil then
    begin
      new(AData);
      AData^.Left := nil;
      AData^.Right := nil;
      AData^.Info := n;
    end
  else if n<AData^.Info then Make(AData^.Left,n)
  else Make(AData^.Right,n);
end;
 
procedure DeleteTree(var Tree1:PBTr );
begin
        if Tree1 <> nil then
          begin
            DeleteTree (Tree1^.LEFT);
            DeleteTree (Tree1^.RIGHT);
            Dispose(Tree1);
          end;
 
end;
 
begin
clrscr;
repeat
clrscr;
writeln('1-Dobavlenir elementa');
writeln('2-Pecat dereva');
writeln('3-poisk s barierom');
writeln('4-exit');
readln(vvod);
case (vvod) of
      1:begin
        clrscr;
        writeln('vvedite kolichestvo elementov');
        readln(n);
        for i:=1 to n do
         begin
          write('vvedite znachenie vershini ',i,': ');
          readln(x);
          make(tree,x);
         end;
        end;
      2: begin
         clrscr;
         Print(tree,0);
         writeln('nashe derevo');
         writeln;
         readln
         end;
      3: begin
         clrscr;
         writeln('element dlia poiska');
         readln(x);
         pr:=SearchB(x,tree);
         if pr=true then
         writeln('naiden')
         else writeln('takogo elementa net!');
         readln
         end;
    end;
until vvod=4;
 DeleteTree(Tree);
 end.