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.