Задача на последовательность скобок Опции

[XimeR]

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

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

Код

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.

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

[Archon]

Если смотреть по логике работы стека, то выделять надо так:
( [ ( ] )
( [ ) ]
( ( ( ( ( ( (
) ) ) ( ( (

То есть если скобка не подходит, то выделяем ее цветом и пропускаем. Примерно так:

. . .
	for i := 1 to Length(Str) do begin
		case Str[i] of
			'(', '[': Stack.Push(Str[i]);
			')': if Stack.Pop <> '(' then TextColor(Red);
			']': if Stack.Pop <> '[' then TextColor(Red);
			else begin
				WriteLn;
				WriteLn('Ошибка: посторонние символы в строке.');
				Halt;
			end;
		end;
		Write(Str[i]);
		TextColor(LightGray);
	end;
. . .

XimeR, попробуй привести задание дословно. Может и поймем что-то.

Сообщение отредактировано: Archon - 10.06.2009 10:13

[XimeR]

XimeR, попробуй привести задание дословно. Может и поймем что-то.

Задание дословно в 1ом посту...Но когда я показывал исходник преподу, она и сказала: "Выдели, где пересечение"
Archon твой код под мой исходник?! Куда его вставить?

[Lapp]

Archon твой код под мой исходник?! Куда его вставить?

Господа офицеры, прошу молчать! (С)
Его не надо никуда вставлять, он сам по себе. Но для него нужны процедуры, которые реализуют стэк. Посмотри на эту тему в FAQе.