Задача на проверку баланса скобок в строке, я решение знаю, предложи свое Опции

[Флогримм]

вот задачку недавно решил, так понравилась!

Задача.
В строке могут содержаться скобки '}',']',')','{','[','('. Прверить баланс скобок в строке. Считать, что он соблюдается, если: 1) для каждой открывающей скобки есть своя закрывающая и наоборот; 2) соблюдается вложеность; На выходе вывести 'false' или 'true' в зависимости от ответа.
пример:

Код

[(a+B)+c{b-a}]*{(a+c)(c-a)} - баланс скобок соблюден
[(a+B)+c{b-a] - баланс не соблюден: нет закрывающей скобки '}'
[(a+B)+c{b-a]} - баланс не соблюден: неправильная вложенность

какие предложения, господа?

Сообщение отредактировано: Pioneer - 27.10.2004 6:51

[APAL]

Вариант решения через работу со строкой:

Function CheckS(St : String) : Boolean;
Var i : Byte;
    s : String;
Begin
  CheckS:=False;
  s:='';
  For i:=1 to Length(St) do
    Case St[i] of
     '{','}','[',']','(',')' : s:=s+St[i];
    End;
  For i:=1 to Length(s) do
  Begin
    If Pos('{}',s)<>0 then Delete(s,Pos('{}',s),2);
    If Pos('[]',s)<>0 then Delete(s,Pos('[]',s),2);
    If Pos('()',s)<>0 then Delete(s,Pos('()',s),2);
  End;
  If s='' then CheckS:=True;
End;

P.S.: А вобще-то я хотел сделать через рекурсию... но что-то не пошло - надо немного подредактировать.
Но зато выше представленный вариант короче получился... :D

Сообщение отредактировано: Altair - 26.02.2006 15:22