多项式输出pascal程序

题意

一个一个的输入，按以下规则输出：

1. 多项式中自变量为 x，从左到右按照次数递减顺序给出多项式。

2. 多项式中只包含系数不为 0 的项。

3. 如果多项式 n 次项系数为正，则多项式开头不出现“+”号，如果多项式 n 次项系

数为负，则多项式以“-”号开头。

4. 对于不是最高次的项，以“+”号或者“-”号连接此项与前一项，分别表示此项

系数为正或者系数为负。紧跟一个正整数，表示此项系数的绝对值（如果一个高于 0 次的项，

其系数的绝对值为 1，则无需输出 1）。如果 x 的指数大于 1，则接下来紧跟的指数部分的形

式为“x^b”，其中 b 为 x 的指数；如果 x 的指数为 1，则接下来紧跟的指数部分形式为“x”；

如果 x 的指数为 0，则仅需输出系数即可。

5. 多项式中，多项式的开头、结尾不含多余的空格。

分析

一个循环加判断就可以了，写判断时，要理清思路。

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

转载于:https://www.cnblogs.com/YYC-0304/p/9500222.html