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

Recur26. Дано дерево глубины $$N$$, каждая внутренняя вершина которого имеет $$K$$ $$(<10)$$ непосредственных потомков (нумеруются от $$1$$ до $$K$$). Корень дерева имеет номер $$0$$. Записать в текстовый файл с данным именем все пути, ведущие от корня к листьям и удовлетворяющие следующему условию: никакие соседние элементы пути не нумеруются одной и той же цифрой. Порядок перебора путей такой же, как в задании Recur25.

Решение:

program Recur26;
var
  F:Text;
  K,N:Integer;
  FN:String;

procedure node(Ancestors:String; lvl:integer);
var
 F:Text;
 i:integer;
begin
 inc(lvl);
 if lvl=N+1 then
  begin
   Assign(F,FN);
   Append(F);
   Writeln(F,Ancestors);
   Close(F);
  end
 else
  for i:=1 to K do
   if ord(Ancestors[length(Ancestors)])-48<>i then
    node(Ancestors+chr(i+48),lvl);
end;

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

program Recur26;

var

F:Text;

K,N:Integer;

FN:String;

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

var

F:Text;

i:integer;

begin

inc(lvl);

if lvl=N+1 then

begin

Assign(F,FN);

Append(F);

Writeln(F,Ancestors);

Close(F);

end

else

for i:=1 to K do

if ord(Ancestors[length(Ancestors)])-48<>i then

node(Ancestors+chr(i+48),lvl);

end;

begin

Write('N:');

readln(N);

Write('K:');

readln(K);

Write('FileName:');

readln(FN);

Assign(F,FN);

Rewrite(F);

Close(F);

node('0',0);

end.

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

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

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

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