Построить все правильные скобочные выражения 2N Опции

[Dr1khem]

Построить все правильные скобочные выражения 2N то есть те которые содержат по N правых и N левых скобок. Использовать рекурсию.

rocedure ShowVariant(s : string; a, b : integer);
begin
if (a=0) and (b=0) then begin Writeln(s); Exit; end;
if (a>0) and (b>=a) then ShowVariant(s+'(',a-1,b);
if b>0 then ShowVariant(s+')',a,b-1);
end;
var N : integer;
begin
N := 4;
ShowVariant('',N,N);
readln;
end.

Сообщение отредактировано: Lapp - 23.03.2012 2:54

[IUnknown]

Вообще-то непонятно в чем вопрос. Программа запускается и строит ВСЕ правильные скобочные выражения (Krjuger, там же рекурсия, ага). Что топикстартеру надо было?

[Dr1khem]

Вообще-то непонятно в чем вопрос. Программа запускается и строит ВСЕ правильные скобочные выражения (Krjuger, там же рекурсия, ага). Что топикстартеру надо было?

Необходимо построить правильно скобочные выражения. (вводятся с клавиатуры). Например, Если есть открывающая скобка, то обязательно должна быть и закрывающая. Необходимо "сказать" программе, чтобы она из, к примеру, (() делала (()) (не хватало одной закрывающей скобки