Вопрос по коду(Pascal)

[DeFt]

Собственно задача :

Дана последовательность круглых фигурных и квадратных скобок. Определить, нет ли "пересечения" скобок. Например, последовательность (([)])() НЕправильна, а последовательность (([()])()) - правильна.

Воспользовавшись поиском форума, нашел тему
http://programmersforum.ru/showthrea...EA%EE%E1%EE%EA
С исходником от Min'a :

var s:string;
    c:byte;
    b:boolean;
begin
     readln(s);
     b:=true;
     while b do
      begin
       b:=false;
       c:=pos('[]',s);
       if c>0 then
        begin
         delete(s,c,2);
         b:=true;
        end;
       c:=pos('()',s);
       if c>0 then
        begin
         delete(s,c,2);
         b:=true;
        end;
       c:=pos('{}',s);
       if c>0 then
        begin
         delete(s,c,2);
         b:=true;
        end;
      end;
    if length(s)>0 then writeln('No')
    else writeln('Yes');
end.

Подходит ли этот исходник под мою задачу? А если подходит, то пожалуйста поясните принцип ее действия, т.к. мои знания оч. небольшие... (Что за процедуры pos и length?).

У меня есть др. код, но его надо чуток дописать...Хочу взять этот

[__STDC__]

Да, подходит.. программа удаляет все последовательности (), [] или {} встреченные в тексте.. если строка неверна (например та, что вы указали), то в строке останутся символы.. если введена правильная строка - она будет полностью удалена.. процедура pos возвращает позицию подстроки в строке (если таковая имеется), length - возвращает длину строки..
Если например взять ваши строки.. рассмотрим по итерациям цикла
(([()])()) :

1. (([])())
2. (()())
3. (())
4. ()
5. пустая строка

с другой стороны
(([)])() :

1. (([)])

и все.. дальше нечего удалять..

[Alex2009]

ДА ПРИМЕР ПРАВЕЛЬНЫЙ У МЕНЯ ЕСТЬ ДРУГОЙ ИСХОДНИК ТАМ ЛОГИКА ЛУТШЕ Я СЕГОДНЯ С РАБОТЫ ПРИЙДУ И ВЫЛОЖУ ЕСЛИ ХОЧИШ

[__STDC__]

хм... тут никаких ошибок в логике нету... единственное, можно было бы оформить куски с if как процедуру.. а-то три раза один код переписан..

[DeFt]

Сообщение от __STDC__

хм... тут никаких ошибок в логике нету... единственное, можно было бы оформить куски с if как процедуру.. а-то три раза один код переписан..

Дооформил. Спасибо за объяснение!

Возникла еще одна сложность.
Если есть "пересечение", то при выводе строки на экран надо выделить цветом те скобки, из-за которых произошло "пересечение". Как реализовать?

[DeFt]

Сообщение от DeFt

Если есть "пересечение", то при выводе строки на экран надо выделить цветом те скобки, из-за которых произошло "пересечение". Как реализовать?

Не получится? Придется переписывать код по-другому? Или тут можно что-нибудь придумать..?

[DeFt]

Вот еще код :

type 
  s=str[80];
  yk=^el;
  el=record
   inf:byte;
   adr:yk;
     end;
var  
  str:s;
  p:integer;
  na:yk;
const
  otkr:s=['(','[','{'];
  zakr:s=[')',']','}'];
function poisk(str[k]:char):integer;
procedure vkl(nom:byte);
...
begin
  writeln('vvedite stroku');
  readln(str);
  k:=1;
  while k<=streln(str) do
       begin
         p:=poisk(str[k]);
         if p<>0 then 
                     if p>0 then vkl(p)
                     else
                         begin
                           os=izwl;
                           if os=o then writeln (...);
                           if os<>-p then writeln ('ne ta otkr.skobka');
                         end;
       inc(k);
       end;
  if izwl <>0 then writeln ('lishnie skobki');
end.

Может кто-нибудь помочь дописать\исправить, а то я еще не разобрался, а надо, чтобы работала...