Рекурсия с возвратом на бутылках) Подайте идею! - Delphi - Ответ 3747396

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  T_item = String; // здесь может быть любой тип
  P_Node = ^T_Node;
  T_Node = record
             info: T_item;
             key: integer;
             left, right: P_Node;
           end;
  var root: P_Node; // корень дерева
      fin: textFile;
      n,m,dec:integer;
      binStr,strByte:string;
 
 
// вспомогательная процедура
procedure PrintKey(t: P_Node);
begin
  writeln;
  write(t^.key: 5);
  write('/');
  write(t^.info);
end;
 
// обход сверху вниз        К-Л-П
procedure preorder(t: P_Node);
begin
  if t <> nil then
  begin
    PrintKey(t);  // обработать корневой узел
    preorder(t^.left);// обойти левое поддерево в нисходящем порядке
    preorder(t^.right);//обойти правое поддерево в нисходящем пор-ке
  end;
end;
 
// вставка элемента в дерево (рекурсивная процедура)
procedure InsertInTree(var t: P_Node; k: Integer; str:String);
begin
  if t = nil Then
  // если найдено место для нового узла
  begin
    new(t); // распределяем память
    t^.left := nil; // устанавливаем пустые ссылки для левого и
    t^.right := nil; // правого поддеревьев
    t^.key := k; // заполняем ключевое поле
    t^.info := str;
  end else
  {иначе определяем, в каком поддереве узла t должен располагаться элемент с таким ключом}
  begin
    str:=t^.info+'-->'+IntToStr(k); //записываем путь к вершине
    if k <= t^.key then
    // если новый ключ меньше или равен текущему
    InsertInTree(t^.left, k,str) // вставим в левое поддерево
    else InsertInTree(t^.right, k,str); // а иначе – в правое
  end;
end;
 
function bin2dec(s:string):integer;      //  функция перевода числа из 2 СС в 10
var x,i:integer;
begin
  x:=0;
  for i:=1 to length(s) do
  x:=(x Shl 1)+ord(s[i])-ord('0');
  Result:=x;
end;
 
function dec2bin(x:integer):string;            //из 10 в 2 сс
var s:string;
begin
  s:='';
  while x>0 do
  begin
    s:=chr(ord('0')+(x And 1))+s;
    x:=x Shr 1;
  end;
  Result:=s;
end;
 
Var
  i,j : Integer;
begin
  assignFile(fin,'input.txt'); //связываем файл с именем
  reset(fin);    //открываем для чтения
  readln(fin,n); //считываем количество целых чисел в файле
  readln(fin,m); //и количество бит
  root:=Nil;
  For i:=1 To n Do
  begin
    If eof(fin) then Break;
    readln(fin,binStr); //считываем число в двоичном представлении
    j:=Pos(' ',binStr); //В файле после пробела число в десятичной сс для наглядности
    If j=0 Then j:=Length(binStr)+1;
    If (j-1)>m Then j:=m+1; //Ограничение по количеству бит
    binStr:=Copy(binStr,1,j-1);
 
    dec:=bin2dec(binStr); //переводим в 10ю сс
    strByte:=IntToStr(dec);
    InsertInTree(root, dec,strbyte); //вставляем вершину с заданным ключом и инф полем
  end;
  preorder(root); //root - корень дерева в котором ключи - числа заданные в файле и переведенные в 10ю сс
  //а инф поле - путь к вершине
  closeFile(fin);
  readln;
end.

str:=str+t^.info;