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

发布于 2019-03-21  8 次阅读


 

题目描述

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

前缀:先写运算符,接着是第一个操作数,最后是第二个操作数;

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

如中缀表达式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.

 

 

]]>


「墨泼三千烟火,许你一世迷离」