前缀转后缀——jzoj 1590

题目描述

我们现实生活中通常使用中缀表达式，但在计算机里会用到前缀表达式以及后缀表达式，他们的含义如下：

前缀：先写运算符，接着是第一个操作数，最后是第二个操作数；

后缀：先写第一个操作数，接着写第二个操作数，最后写运算符。

如中缀表达式3 + 4，在前缀表示为+ 3 4，在后缀里表示为3 4 +，而(5 - 4)- 2的前缀为- - 5 4 2，后缀为5 4 - 2 -。

你的任务是输入一个前缀表达式，输出它所对应的后缀表达式。

输入

输入一个前缀表达式，运算符只有“+”和“-”，操作数都是只有1个位数字(0到9)，运算符和操作数之间都用一个空格隔开，表达式没有前导空格。每个表达式都是合法的，并且运算符不超过20个。

输出

输出对应的后缀表达式。

样例输入

1

样例输出

1

题解：是数字输出，是字符就搜索。

var i,j,m,p,k:longint;
    st:string;
    a,b:array[0..10000] of char;
    f:array[0..10000] of boolean;

procedure search(dep:longint;ch:char);
var i,j,k,t:longint;
begin
  f[dep]:=true;
  t:=0;
  if not(ch in['0'..'9']) then
   begin
     for i:=1 to 2 do
      begin
        while (f[dep+t]=true) do inc(t);
        search(dep+t,a[dep+t]);
      end;
      b[p]:=a[dep];
      inc(p);
   end
   else
   begin
     b[p]:=a[dep];
     inc(p);
   end;
end;

begin
  assign(input,'j4.in');
  assign(output,'j4.out');
  reset(input);
  rewrite(output);
  readln(st);
  j:=1;p:=1;
  for i:=1 to length(st) do
  if (st[i]<>' ') then
   begin
     a[j]:=st[i];
     inc(j);
   end;
   search(1,a[1]);
   for i:=1 to p-1 do
   write(b[i],' ');
   close(input);close(output);
end.