Question

1、 读入一个表达式，以‘#’结束。对该表达式中的圆括号是否配对进行检查，给出相应的提示信息。 pascal

Answer 1

楼上判断不了（（（））的情况（即左右不等）

var

ch:char;

left,right:longint; //其实像楼上只用一个num也行...两个看着方便

ans:boolean;

begin

left:=0;

right:=0;

ans:=true;

repeat

read(ch);

if ch='(' then inc(left);

if ch=')' then inc(right);

if r>left then

begin

ans:=false;

break;

end;

until ch='#';

readln;

if leftright then ans:=false;

writeln(ans);

readln;

end.

左括号个数随时都要大于右括号个数，且最后个数要相等

已调过，望采纳~