多项式输出

最新推荐文章于 2022-04-04 02:30:00 发布

sslgzzzy

最新推荐文章于 2022-04-04 02:30:00 发布

阅读量691

点赞数

分类专栏：洛谷题

本文链接：https://blog.csdn.net/sslgzzzy/article/details/55800638

版权

洛谷题专栏收录该内容

24 篇文章 0 订阅

订阅专栏

var
a:array[1..100]of longint;
i,j,n,last:longint;
begin
readln(n);
for i:=1 to n do
read(a[i]); read(last);
if (a[1]<>1)and(a[1]<>-1) then
begin
if a[1]>0 then write(a[1],'x^',n);
if a[1]<0 then write(a[1],'x^',n);
end;
if a[1]=1 then write('x^',n);
if a[1]=-1 then write('-x^',n);
for i:=2 to n do
begin
if (n-i+1)<>1 then
begin
if (a[i]<>1)and(a[i]<>-1) then
begin
if a[i]>0 then write('+',a[i],'x^',n-i+1);
if a[i]<0 then write(a[i],'x^',n-i+1);
end;
if a[i]=1 then write('+x^',n-i+1);
if a[i]=-1 then write('-x^',n-i+1);
end;
if (n-i+1)=1 then
begin
if (a[i]<>1)and(a[i]<>-1) then
begin
if a[i]>0 then write('+',a[i],'x');
if a[i]<0 then write(a[i],'x');
end;
if a[i]=1 then write('+x');
if a[i]=-1 then write('-x');
end;
end;
if last>0 then write('+',last);
if last<0 then write(last);
end.