следующая тема »

[18 Июль 2025, 18:15:05]

Новости, реклама:

[18 Июль 2025, 18:15:05]

Новости, реклама:

[Erick_voodoo]

Нужно в паскале сделать двоичное дерево,путем ввода элементов,и потом вывести это дерево любыми из 3х обходов.Даю текст программы,помогите исправить,значения которые я ввожу вводятся в дерево по одной ветви(либо только левой или только правой),а нужно что бы ввод элементов начинался с корня.

Код:

program DisplayTree;
uses Crt;
type
  BT=Integer;
  TreePointer=^tree;
  tree=record
  data:BT;
  left,right:TreePointer;
end;

procedure InTree(var r:TreePointer;dataa:BT);
begin
  if r=nil then
  begin
    new(r);
    r^.data:=dataa;
    r^.left:=nil;
    r^.right:=nil;
    end else
    if dataa<r^.data then
    InTree(r^.left,dataa)
    else InTree(r^.right,dataa);
end;

procedure PrintTree(r: TreePointer);
begin
  if r>nil then begin
    PrintTree(r^.left);
   Write(r^.data,' ');
    PrintTree(r^.right);
  end;
end;

var
  root:TreePointer;
  ch:BT;
  i,n,kk:integer;
begin
clrscr;
  root:=nil;
writeln('Введите количество элементов дерева:');
readln(i);n:=1;
repeat
writeln('Введите ',n,' элемент:');
readln(kk);
    InTree(root,kk);
    n:=n+1;
until n>=i+1;
    PrintTree(root);
    readln;
end.

Добавлено: 11 Март 2013, 17:00:48