1没做过
2的代码有的
http://www.firstdev.net/bbs/read.php?tid=128&u=41
3么就是左括号“（”就入栈，遇到右括号“）”就出栈，等到所有的括号都用完，察看栈是否是空的。如果是空的就是匹配的，否则不匹配。

第一、二题怎么用斋阿。。。。。。不会
第3
var
  a:array[0..1000]of string;
  s:string;
  i,j,k,l,m,n:longint;
procedure over;
begin
  writeln('false');halt;
end;
begin
  readln(s);n:=0;
  for i:=1 to length(s) do
    begin
      case s[i] of
        '{':begin inc(n); s[n]:='{'; end;
        '}':if s[n]<>'{' then over else dec(n);
        '[':begin inc(n); s[n]:='['; end;
        ']':if s[n]<>'[' then over else dec(n);
        '(':begin inc(n); s[n]:='('; end;
        ')':if s[n]<>'(' then over else dec(n);
      end;
    end;
  if n=0 then writeln('true') else over;
end.

第二题不就是递归么 用栈的话就是用非递归模拟递归 很简单
第一题…………看不懂 后缀式是什么