简单的模拟——多项式输出

来源：互联网发布：网络角色去衣图编辑：程序博客网时间：2024/05/15 23:46

SSL 1883
洛谷 P1067 多项式输出
p.s.这排版有点问题别嫌弃
题目描述
aixi称为 i 次项，ai 称为 i 次项的系数。给出一个一元多项式各项的次数和系数，请按照如下规定的格式要求输出该多项式：

多项式中自变量为 x，从左到右按照次数递减顺序给出多项式。
多项式中只包含系数不为 0 的项。
如果多项式 n 次项系数为正，则多项式开头不出现“+”号，如果多项式 n 次项系数为负，则多项式以“-”号开头。
对于不是最高次的项，以“+”号或者“-”号连接此项与前一项，分别表示此项系数为正或者系数为负。紧跟一个正整数，表示此项系数的绝对值（如果一个高于 0 次的项，其系数的绝对值为 1，则无需输出 1）。如果 x 的指数大于 1，则接下来紧跟的指数部分的形式为“x^b”，其中 b 为 x 的指数；如果 x 的指数为 1，则接下来紧跟的指数部分形式为“x”；
如果 x 的指数为 0，则仅需输出系数即可。
多项式中，多项式的开头、结尾不含多余的空格。

分析
超级简单，就是If语句稍微多点儿，疯狂判断正负，指数形式即可。
要注意负号以及开头与末尾单项式的正负形式。
（貌似If语句不是“稍微”多点儿）

var  n,i,k:longint;begin  readln(n);  read(k);  if k<0 then write('-');  k:=abs(k);  if k>1 then   write(k,'x^',n)  else  if k=1 then   write('x^',n);  for i:=n-1 downto 1 do   begin     read(k);     if k<0 then write('-')      else if k<>0 then write('+');     k:=abs(k);     if k>1 then      begin        write(k);        if i<>1 then write('x^',i)         else write('x');      end     else     if k=1 then      if i<>1 then write('x^',i)       else write('x');   end;  read(k);  if k<0 then write('-')   else if k<>0 then write('+');  k:=abs(k);  if k<>0 then   write(k);end.

0 0