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

Recur28. Дано дерево глубины $$N$$ того же типа, что и в задании Recur27. Записать в текстовый файл с данным именем все пути от корня к листьям, удовлетворяющие следующему условию: суммарный вес элементов для любого начального отрезка пути неотрицателен. Порядок перебора путей такой же, как в задании Recur25.

Решение:

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

procedure node(Ancestors:String; lvl,weight:integer);
var
 F:Text;
begin
 inc(lvl);
 if 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);
   if weight>=1 then 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 Recur28;

var

F:Text;

N:Integer;

FN:String;

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

var

F:Text;

begin

inc(lvl);

if 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);

if weight>=1 then 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 можно посмотреть здесь.

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

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

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