Recur27. Дано дерево глубины N (N — четное), каждая внутренняя вершина которого имеет 2 непосредственных потомка: A с весом 1 и B с весом -1. Корень дерева C имеет вес 0. Записать в текстовый файл с данным именем все пути от корня к листьям, удовлетворяющие следующему условию: суммарный вес элементов пути равен 0. Порядок перебора путей такой же, как в задании Recur25.
Решение:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
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. |
Другие задачи из раздела Recur можно посмотреть здесь.
Комментарии: