pascal 括号配对问题

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/11 14:25:19

pascal 括号配对问题
假设表达式中允许包含两种括号：圆括号和方括号,其嵌套的顺序随意,如（〔〕（））或〔（〔〕〔〕）〕等为正确的匹配,〔（〕）或（〔〕（）或（（）））均为错误的匹配.
现在的问题是,要求检验一个给定表达式中的括弧是否正确匹配?
输入一个只包含圆括号和方括号的字符串,判断字符串中的括号是否匹配,匹配就输出 “OK” ,不匹配就输出“Wrong”.
输入一个字符串：
〔（〔〕〔〕）〕
输出：
OK
var
a:string;
i,j:integer;
now:array[1..40]of char;
l:integer;
ans:integer;
top:integer;
begin
read(a);
l:=length(a);
ans:=0;
top:=0;
if (a[1]=')') or (a[1]=']') then
begin
ans:=1;
write('Wrong');
end;
while (a[i]' ') and (ans1) do
begin
if (a[i]='(') and (a[i]='[') then
begin
top:=top+1;
now[top]:=a[i];
end;
if (a[i]=')') then
if now[top]='(' then
top:=top-1
else
begin
write('wrong');
ans:=1;
end;
if (a[i]=']') then
if now[top]='[' then
top:=top-1
else
begin
write('Wrong');
ans:=1;
end;
i:=i+1;
end;
if ans=0 then write('OK');
end.
哪里错了?

首先建议用for循环写 for i:=1 to length(a) do
还有在循环中输出‘Wrong’后最好 break;
致命之处在于 if语句 if (a[i]='(') and (a[i]='[') 应该是 if (a[i]='(') or (a[i]='[')
同时第二个 ‘wrong’ 应是 ‘Wrong’

pascal 括号配对问题 pascal里的有关括号的问题括号配对检查问题对输入的一段C或者C++代码(只要求其中一种),检查各种括号是否配对,以及配对的情况.基本要求：对于输入 pascal括号匹配描述给定一个算术表达式,检查其中的圆括号是否配对,给出适当信息（正好：Yes,左括号多：Left, 数字排列问题(pascal) pascal问题急! Pascal问题：统计单词 free pascal问题 Pascal问题：a+b Turbo Pascal编程问题 pascal问题求输出 Pascal问题：矩阵乘法