作业帮pascal括号匹配检查的程序,用栈的（最好有解释）一个只由大括号{},中括号[],小括号（）组成的字符串,其嵌套次序只能是：大括号可以嵌套中小括号,中括号可以嵌套小括号.现给出n个这样的
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 00:59:57
![pascal括号匹配检查的程序,用栈的（最好有解释）一个只由大括号{},中括号[],小括号（）组成的字符串,其嵌套次序只能是：大括号可以嵌套中小括号,中括号可以嵌套小括号.现给出n个这样的](/uploads/image/z/45072-0-2.jpg?t=pascal%E6%8B%AC%E5%8F%B7%E5%8C%B9%E9%85%8D%E6%A3%80%E6%9F%A5%E7%9A%84%E7%A8%8B%E5%BA%8F%2C%E7%94%A8%E6%A0%88%E7%9A%84%EF%BC%88%E6%9C%80%E5%A5%BD%E6%9C%89%E8%A7%A3%E9%87%8A%EF%BC%89%E4%B8%80%E4%B8%AA%E5%8F%AA%E7%94%B1%E5%A4%A7%E6%8B%AC%E5%8F%B7%7B%7D%2C%E4%B8%AD%E6%8B%AC%E5%8F%B7%5B%5D%2C%E5%B0%8F%E6%8B%AC%E5%8F%B7%EF%BC%88%EF%BC%89%E7%BB%84%E6%88%90%E7%9A%84%E5%AD%97%E7%AC%A6%E4%B8%B2%2C%E5%85%B6%E5%B5%8C%E5%A5%97%E6%AC%A1%E5%BA%8F%E5%8F%AA%E8%83%BD%E6%98%AF%EF%BC%9A%E5%A4%A7%E6%8B%AC%E5%8F%B7%E5%8F%AF%E4%BB%A5%E5%B5%8C%E5%A5%97%E4%B8%AD%E5%B0%8F%E6%8B%AC%E5%8F%B7%2C%E4%B8%AD%E6%8B%AC%E5%8F%B7%E5%8F%AF%E4%BB%A5%E5%B5%8C%E5%A5%97%E5%B0%8F%E6%8B%AC%E5%8F%B7.%E7%8E%B0%E7%BB%99%E5%87%BAn%E4%B8%AA%E8%BF%99%E6%A0%B7%E7%9A%84)
pascal括号匹配检查的程序,用栈的（最好有解释）一个只由大括号{},中括号[],小括号（）组成的字符串,其嵌套次序只能是：大括号可以嵌套中小括号,中括号可以嵌套小括号.现给出n个这样的
pascal括号匹配检查的程序,用栈的（最好有解释）
一个只由大括号{},中括号[],小括号（）组成的字符串,其嵌套次序只能是：大括号可以嵌套中小括号,中括号可以嵌套小括号.现给出n个这样的字符串（每行一个字符串,字符串中无空格）,判断其是否正确匹配,若匹配,该行输出“YES”,否则该行输出“NO”（YES和NO均为大写字符,输出时不要输出引号）.
如下是正确匹配样例：
{[（）]（）[（）]}
（）（）[（）]{[（）]}
（）[（）]
{（）（）[]}
以下不匹配样例：
（[]） 注：中括号置于小括号中
[（）（] 注：括号不成对
Input
第一行,n值（小于10）.
接下来n行,每行一个字符串,每个字符串的长度均不超过250个字符.
Output
n行,每行为“YES”或“NO”,以判断对应行是否匹配.
Sample Input
6 //n为6,表示有6个字符串待检测
{[（） ]（）[（） ]} //以下为6个字符串,每行一个
( )( ) [()]{[()]}
（[]）
[（）（]
（）[（）]
{（）（）[ ] }
Sample Output
YES
YES
NO
NO
YES
YES
pascal括号匹配检查的程序,用栈的（最好有解释）一个只由大括号{},中括号[],小括号（）组成的字符串,其嵌套次序只能是：大括号可以嵌套中小括号,中括号可以嵌套小括号.现给出n个这样的
program bracket;
const
a:array['a'..'d']of byte=(1,2,3,0);
var
n,t,i,j:longint;
p:boolean;
s:string;
c:array[0..255]of char;
procedure pop;
begin
dec(t);
end;
procedure push(x:char);
begin
inc(t);
c[t]:=x;
end;
begin
readln(n);
for i:=1 to n do
begin
readln(s);
c[0]:='d';
t:=0;
p:=true;
for j:=1 to length(s) do
case s[j] of
'{':s[j]:='a';
'[':s[j]:='b';
'(':s[j]:='c';
end;
while length(s)0 do
begin
case s[1] of
'}':if c[t]='a' then pop else begin p:=false; break; end;
']':if c[t]='b' then pop else begin p:=false; break; end;
')':if c[t]='c' then pop else begin p:=false; break; end;
else if a[c[t]]