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

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

Решение:

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

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

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

program Recur30;

var

F:Text;

N:Integer;

FN:String;

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

var

F:Text;

begin

inc(lvl);

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

begin

Assign(F,FN);

Append(F);

Writeln(F,Ancestors);

Close(F);

end;

if lvl<=N then

begin

if Ancestors[length(Ancestors)]<>'A' then node(Ancestors+'A',lvl,weight+1);

if Ancestors[length(Ancestors)]<>'B' then node(Ancestors+'B',lvl,weight);

if Ancestors[length(Ancestors)]<>'C' then node(Ancestors+'C',lvl,weight-1);

end;

begin

Write('N:');

readln(N);

Write('FileName:');

readln(FN);

Assign(F,FN);

Rewrite(F);

Close(F);

node('D',0,0);

end.

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

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

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

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