Решаем задачи Абрамян на Паскале. Recur27

Recur27. Дано дерево глубины $$N$$ ($$N$$ — четное), каждая внутренняя вершина которого имеет $$2$$ непосредственных потомка: $$A$$ с весом $$1$$ и $$B$$ с весом $$-1$$. Корень дерева $$C$$ имеет вес $$0$$. Записать в текстовый файл с данным именем все пути от корня к листьям, удовлетворяющие следующему условию: суммарный вес элементов пути равен $$0$$. Порядок перебора путей такой же, как в задании Recur25.

Решение:

program Recur27;
var
  F:Text;
  N:Integer;
  FN:String;

procedure node(Ancestors:String; lvl,weight:integer);
var
 F:Text;
begin
 inc(lvl);
 if (weight=0) and (lvl=N+1) then
  begin
   Assign(F,FN);
   Append(F);
   Writeln(F,Ancestors);
   Close(F);
  end;
 if lvl<=N then
  begin
   node(Ancestors+'A',lvl,weight+1);
   node(Ancestors+'B',lvl,weight-1);
  end;
end;

begin
 Write('N:');
 readln(N);
 Write('FileName:');
 readln(FN);
 Assign(F,FN);
 Rewrite(F);
 Close(F);
 node('C',0,0);
end.

program Recur27;

var

F:Text;

N:Integer;

FN:String;

procedure node(Ancestors:String; lvl,weight:integer);

var

F:Text;

begin

inc(lvl);

if (weight=0) and (lvl=N+1) then

begin

Assign(F,FN);

Append(F);

Writeln(F,Ancestors);

Close(F);

end;

if lvl<=N then

begin

node(Ancestors+'A',lvl,weight+1);

node(Ancestors+'B',lvl,weight-1);

end;

begin

Write('N:');

readln(N);

Write('FileName:');

readln(FN);

Assign(F,FN);

Rewrite(F);

Close(F);

node('C',0,0);

end.

Другие задачи из раздела Recur можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Recur27

Комментарии:

Добавить комментарий Отменить ответ