未曾清贫难为人，不入凡尘太天真。自古英雄出炼狱，从来富贵入凡尘！
@风x千叶翔龙V

二楼备用

顶

多项式输出（09普及T1）（poly.pas）
题目描述 Description
一元n次多项式可用如下的表达式表示：
其中，aixi称为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.多项式中，多项式的开头、结尾不含多余的空格。
输入输出格式 Input/output
输入格式：
输入共有2行
第一行1个整数n，表示一元多项式的次数。
第二行有n+1个整数，其中第i个整数表示第n-i+1次项的系数，每两个整数之间用空格隔开。
输出格式：
输出共1行，按题目所述格式输出多项式。
输入输出样例 Sample input/output
样例测试点#1
输入样例：
poly1.in
5
100 -1 1 -3 0 10
poly1.out
100x^5-x^4+x^3-3x^2+10
poly2.in
3
-50 0 0 1
poly2.out
-50x^3+1
说明 description
NOIP2009普及组第一题
【题意分析】
输入一个一元多次项的次数和每个次项的系数，按给定格式输出多项式。
【解题思路】
用for循环输入n+1个次项的系数，分别按对应的次数处理、输出。
【解题反思】
题目比较长，一开始看感觉自己没学过一元多次项式，做不出来；但是按照题目所说的去理解之后就明白了，其实就是一个数乘另一个数的n次方，我们不用计算，只要输出式子而已，非常简单。
【代码】
var n,x,i:longint;
begin
readln(n);//输入一元多次项的次数
for i:=n downto 0 do
begin
read(x);//输入第i次项的系数
if x=0 then continue;//多项式中只包含系数不为0的项
if i=0 then//如果x的指数为0，则仅需输出系数即可
begin
if x<0 then write('-') else write('+');
write(abs(x));
end;
if i in [1..n-1] then//以“+”号或者“-”号连接此项与前一项，分别表示此项系数为正或系数为负
begin
if x<0 then write('-') else write('+');
if abs(x)<>1 then write(abs(x));
write('x');
if i>1 then write('^',i);
end;
if i=n then
begin
if x<0 then write('-');//如果多项式n次项系数为负，则多项式以“-”号开头
if abs(x)<>1 then write(abs(x));
write('x');
if i>1 then write('^',i);
end;
end;
end.

您这是要把你所有AC了的题都放上来的节奏