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