Строки - Проверить, является ли эта последовательность правильным скобочным выражением

[Катерина Рыжая]

Здравствуйте, нужна Ваша помощь

Дана последовательность А. Проверить, является ли эта последовательность правильным скобочным выражением, Учесть расстановку круглых, квадратных и фигурных скобок

[Serge_Bliznykov]

Чем помочь то?
написать полностью за Вас?! Так это Вам в раздел фриланса (там за деньги напишут всё)

Или Вы будете сами писать и Вам конкретная помощь?
Давайте Ваши наработки...

Поищите по форуму, такие задачи решались уже.
Если кратенько - очень удобно использовать стек (структура типа LIFO - "последним пришёл, первым вышел") - когда встречается открыающая скобка любого типа - помещаем её в стек. Когда встречается закрывающая скобка - то проверяем, какой символ на вершине стека, если открывающая скобка ТОГО же типа, значит символ из стека вынуть и идти дальше, если же открывающая скобка на вершине стека не совпадает по типу с закрывающей - стоп-машина. В данном месте ошибка: "Закрывающая скобка без открывающей", прерывание цикла.
если дошли до конца строки - проверяем, если что-то в стеке - если есть - стоп-машина, ошибка "Нет закрывающих скобок".
вот и всё.

[Mad_Cat]

var st:string;
function IsTrue( s:string;c1,c2:char):boolean;
var i:integer;
k:integer;
f:boolean;
begin
k:=0;
f:=true;
for i:=1 to length(s) do
begin
if (s[i]=c2) and (k<=0) then begin
f:=false;break;
end
else
if s[i]=c1 then k:=k+1
else
if (s[i]=c2) and (k>0) then k:=k-1;
end;
if f then f:=k=0;
IsTrue:=f;
end;

begin
readln(st);
Writeln(IsTrue(st,'(',')'));
Writeln(IsTrue(st,'[',']'));
Writeln(IsTrue(st,'{','}'));
// либо
//Writeln(IsTrue(st,'(',')')and IsTrue(st,'[',']') and IsTrue(st,'{','}'));
end.

[Катерина Рыжая]

Спасибо! Только не поняла, что такое k

[Mad_Cat]

k - аналог стека от Сержа) только ооочень простой аналог

[Катерина Рыжая]

Чтото вроде буфера что ли?)

[Mad_Cat]

Чтото вроде буфера

что то вроде счетчика-индикатора