jzoj 1590. 【普及模拟】前缀转后缀

lzusa 发布于 2019-03-22 2 次阅读

 

题目描述

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

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

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

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

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

 

输入

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

输出

    输出对应的后缀表达式。
搜索每一个点，是数字输出，是字符继续找

 

 

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

procedure dfs(dep:longint;c:char);
var
  i,j,k,t:longint;
begin
  f[dep]:=true;
  t:=0;
  if not(c in ['0'..'9']) then
    begin
      for i:=1 to 2 do
      begin
      while f[dep+t]=true do inc(t);
      dfs(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'); reset(input);
  assign(output,'j4.out'); 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;
  dfs(1,a[1]);
  for i:=1 to p-1 do
    write(b[i],' ');
end.

 

 

]]>