работа со списками, выделение подстрок в скобках Опции

[frozzzen]

Имеется задача:
Решить следующую задачу по обработке списков: Дана строка символов. Найти в ней все подстроки, заключенные в круглые скобки.
Пример.
Исходная строка: ((4+6)+7)+(6*(8+7))
Результат:
4+6
(4+6)+7
8+7
6*(8+7)
Никак не получается изобразить решение... В работе с самим списком вроде проблем нет, но вот как оформить условие задачи?

[volvo]

frozzzen, значит, так (я сделал для ООП-варианта списка, для обычного варианта придется чуть подправить, но идея, я думаю, понятна):

uses list; { Это - реализация списка, с ней проблем нет }
var
  s_list: tlist;
  s: string; { это - твоя строка, в которой нужно искать подстроки }

{
  остальные объявления переменных
}

begin
  s_list.init;
  s_list.append(s); { добавляем строку в конец списка }

  p := s_list.first; { и проходим по всему списку, пока он не закончится }
  while p <> nil do begin
    st := p^.info;

    i := 1;
    bracket := 0;
    while i <= length(st) do begin
      case st[i] of
        '(':
          begin
            if bracket = 0 then _start := i;
            inc(bracket);
          end;
        ')':
          begin
            dec(bracket);
            if bracket = 0 then
              s_list.append(copy(st, _start + 1, i - _start - 1))
          end;
      end;
      inc(i)
    end;
    p := p^.next;
  end;
  s_list.print;
end.

[frozzzen]

большое спасибо - работает! правда результат немного не в том порядке, как требуется по условию, но дальше я разберусь

Сообщение отредактировано: frozzzen - 15.07.2005 15:47