P1103 - 多项式输出

P1103 - 多项式输出 From lx11111    Normal (OI) 总时限：10s    内存限制：128MB    代码长度限制：64KB

描述 Description 一元 n 次多项式可用如下的表达式表示：   f(x)=an*x^n+an-1*x^n-1+...+a1*x+a0,an<>0 其中，ai*a^x 称为i次项，ai称为i次项的系数。给出一个一元多项式各项的次数和系 数，请按照如下规定的格式要求输出该多项式： 1. 多项式中自变量为x，从左到右按照次数递减顺序给出多项式。 2. 多项式中只包含系数不为0 的项。 3. 如果多项式n 次项系数为正，则多项式开头不出现“+”号，如果多项式n 次项系 数为负，则多项式以“-”号开头。 4. 对于不是最高次的项，以“+”号或者“-”号连接此项与前一项，分别表示此项 系数为正或者系数为负。紧跟一个正整数，表示此项系数的绝对值（如果一个高于0 次的项， 其系数的绝对值为1，则无需输出1）。如果x 的指数大于1，则接下来紧跟的指数部分的形 式为“x^b”，其中b 为x 的指数；如果x 的指数为1，则接下来紧跟的指数部分形式为“x”； 如果x 的指数为0，则仅需输出系数即可。 5. 多项式中，多项式的开头、结尾不含多余的空格。 输入格式 InputFormat 输入文件名为 poly.in，共有2 行 第一行 1 个整数，n，表示一元多项式的次数。 第二行有 n+1 个整数，其中第i 个整数表示第n-i+1 次项的系数，每两个整数之间用空 格隔开。 输出格式 OutputFormat 输出文件 poly.out 共1 行，按题目所述格式输出多项式。 样例输入 SampleInput [复制数据] 输入样例1：5100 -1 1 -3 0 10输入样例2：3-50 0 0 1 样例输出 SampleOutput [复制数据] 输出样例1：100x^5-x^4+x^3-3x^2+10输出样例2：-50x^3+1 时间限制 TimeLimitation 各个测试点1s 来源 Source NOIP2009普及组 第一题

noip2009普及组第一题。

多项式输出。

字符串处理。

把它给的每条都考虑到就差不多了。

最后3个一开始我没过。。。

TYVJ上没给数据范围，坑爹啊。

我用的STRING，后来改成ansistring 了，0ms 过，嘿嘿。

  1 program p1103;

  2 

  3 var n,i:integer;

  4 

  5     st,s1,s2:ansistring;

  6 

  7     a:array[0..10000]of integer;

  8 

  9     flag:boolean;

 10 

 11 procedure init;

 12 

 13 begin

 14 

 15  flag:=true;

 16 

 17    readln(n);st:='';

 18 

 19   for i:=n+1 downto 1 do

 20 

 21    begin

 22 

 23     read(a[i]);

 24 

 25     if (a[i]<>0)and flag then flag:=false;

 26 

 27    end;

 28 

 29   if flag then begin write('0');halt;end;

 30 

 31 end;

 32 

 33 begin

 34 

 35     init;

 36 

 37   for i:=n+1 downto 2 do

 38 

 39    begin

 40 

 41     if a[i]=0 then begin dec(n);continue;end;

 42 

 43       if a[n+1]<0 then st:=st+'-';

 44 

 45      if i<>n+1

 46 

 47       then if a[i]<0

 48 

 49        then st:=st+'-'

 50 

 51        else if a[i]>0

 52 

 53        then st:=st+'+';

 54 

 55          a[i]:=abs(a[i]);

 56 

 57      if (a[i]<>1)

 58 

 59       then begin

 60 

 61              str(a[i],s1);

 62 

 63              st:=st+s1;

 64 

 65            end;

 66 

 67       str(i-1,s2);

 68 

 69       st:=st+'x';

 70 

 71        if i-1>1 then

 72 

 73         begin

 74 

 75           st:=st+'^';

 76 

 77            st:=st+s2;

 78 

 79            end;

 80 

 81   end;

 82 

 83   if a[1]<>0 then

 84 

 85    begin

 86 

 87    if (a[1]>0)and(st<>'') then st:=st+'+';

 88 

 89   str(a[1],s1);

 90 

 91   st:=st+s1;

 92 

 93   end;

 94 

 95   writeln(st);

 96 

 97 readln;

 98 

 99 readln;

100 

101 end.