Построить все правильные скобочные выражения 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 6:54

[IUnknown]

Это не то, что сказано в первоначальном посте. Теперь вообще непонятно, к чему тут приведенный код.

Тебе нужна проверка на вложенность скобок, ищи по форуму, тут есть не меньше 5 способов такой проверки. А потом, после проверки, решаешь что делать. Если "неправильность" добавлением закрывающих скобок исправить не удастся (строка не разобрана до конца но стек пуст - значит, проблема типа '()())()', и добавление скобок с любой стороны ничего не даст, ибо ты не знаешь, где именно подразумевалась открытая скобка) - значит выдавать сообщение об ошибке. Если удастся (разобрали строку до конца, но в стеке остались открытые скобки) - значит дописываешь к введенной последовательности нужное число скобок.

Сообщение отредактировано: IUnknown - 22.03.2012 17:35