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.

 

posted @ 2015-02-19 15:26  111qqz  阅读(390)  评论(0)  编辑  收藏  举报