Найти все пути от корня к листьям, удовлетворяющие следующим условиям

@alexxxl · Регистрация: 30.09.2012

Студворк — интернет-сервис помощи студентам

Дано дерево глубины N, каждая внутренняя вершина которого имеет 3
непосредственных потомка: А с весом 1, В с весом 0 и С с весом (- 1). Корень дерева
D имеет вес 0. Найти все пути от корня к листьям, удовлетворяющие следующим
условиям: никакие соседние элементы пути не обозначаются одной и той же буквой,
а суммарный вес всех элементов пути равен 0. Перебирать пути, начиная с «самого
левого» и заканчивая «самым правым».
Примерная программа составлена, но никак не могу реализовать "никакие соседние элементы пути не обозначаются одной и той же буквой". Если не сложно, помогите.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure tree(k,n,napr,sum:integer;st:string);
begin
 if (k=n) then
 begin
  if (sum=0) then  writeln(st); end
 else
     begin
      tree(k+1,n,1,sum+1, st+'A');
      tree(k+1,n,-1,sum-1, st+'B');
     end;
end;
 
var
 n:integer;
 begin
   readln(n);
   tree(1,n,0,0,'C');
 end.

@volvo · 01.10.2012, 14:03

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure tree(k,n,napr,sum:integer;st:string);
begin
   if (k=n) then
   begin
      if (sum=0) then  writeln(st);
   end
   else
   begin
      if (st = '') or (st[length(st)] <> 'A') then // А - левый потомок? Начинаем с него в таком случае. 
         tree(k+1,n,1,sum+1, st+'A');
      if (st = '') or (st[length(st)] <> 'B') then
         tree(k+1,n,0,sum, st+'B');
      if (st = '') or (st[length(st)] <> 'C') then
         tree(k+1,n,-1,sum-1, st+'C');
   end;
end;
 
var
   n : integer;
begin
   readln(n);
   tree(1,n,0,0,'');
end.

, так все пути с одинаковыми соседними вершинами отсекутся.

@alexxxl · 02.10.2012, 22:55 **[ТС]**

спасибо большое, очень помогли.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@alexxxl 0 / 0 / 0 Регистрация: 30.09.2012 Сообщений: 22
	02.10.2012, 22:55 [ТС]
	спасибо большое, очень помогли. 0