Проверить равенство числа открывающих и закрывающих круглых скобок

[010]

Проверить равенство числа открывающих и закрывающих круглых скобок в заданной строке и дополнить строку скобками, чтобы баланс соблюдался

Какой цикл здесь взять?

[eoln]

...
begin
  ...
  for i:=1 to length(stroka) do
    if copy(stroka,i,1)='(' then inc(a) else inc(b);
  if a>b then for i:=1 to a-b do stroka:=stroka+')'
    else for i:=1 to b-a do stroka:=stroka+'('
  ...
end.

[Serge_Bliznykov]

eoln, принцип верный, но есть пара недочёток/ошибок...
1) if copy(stroka,i,1)='(' then inc(a) else inc(b);
это не будет считать закрывающие скобки, если в строке, помимо скобок есть ещё и другие символы...
а в условии о содержании строки ничего не сказано.

2) мне кажется, что открывающие скобки '(' будут немного странно смотреться В КОНЦЕ строки... :-D
тогда хотя бы так:

  else for i:=1 to b-a do stroka:='(' + stroka;

и лично я бы сделал подсчёт в одной переменной, как то так:

...
Pair := 0;
for i:=1 to length(stroka) do
    if copy(stroka,i,1)='(' then inc(Pair)
       else if copy(stroka,i,1)=')' then dec(Pair);
for i:=1 to abs(Pair) do
 if Pair>0 then stroka:=stroka+')'
              else stroka:='(' +stroka;

[evg_m]

if stroka[i]='(' then inc(pair) else
if stroka[i]=')' then dec(pair);

или

case stroka[i] of
'(': inc(pair);
')': Dec(pair);
end;

[010]

Спасибо кто помогал. Кто-нибудь сможет написать готовую прогу, очень надо, а то я не догоняю

[Карась]

Проверить баланс не проблема... Достаточно сосчитать колво открывающих и закрывающих скобок.
Но поставить недостающую...... хм.. если только тупо добавить в начало или в конец.

[eoln]

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

var
  s, s0: string;
  i, k, n: integer;
begin
  write('Stroka = '); readln(s);
  k := 1;
  n := 0;
  repeat
    s0 := copy(s, k, 1);
    if s0 = '(' then inc(n) else
    if s0 = ')' then dec(n);
    if n<0 then begin
      insert('(', s, k);
      inc(n);
      inc(k)
    end;
    inc(k)
  until k>length(s);
  if n>0 then for i := 1 to n do s := s + ')';
  write('New stroka = ', s);
  readln
end.