讨论 - 多项式输出这一题我写的太恶心了，快疯了，给我看看咋回事吧。。

zhenghan2 2010-04-04 23:10:00

点我顶贴收藏删除

最后这次终于编成了，为了不犯迷糊，我弄了分步的if语句，终于过了，

program aa;

var i,j,n,t:integer;

x:boolean;

begin

x:=true;

j:=0;

read(n);

read(i);

j:=j+1;

t:=n-j+1;

if t<>1 then

begin

if i=1 then

begin

write('x^',t);

x:=false;

end;

if i=-1 then

begin

write('-x^',t);x:=false; end;

if (i>1) or (i<-1) then begin write(i,'x^',t);x:=false; end;

end else

begin

if i=1 then begin write('x');x:=false; end;

if i=-1 then begin write('-x');x:=false; end;

if (i>1) or (i<-1) then begin write(i,'x');x:=false;end;

end;

j:=2;

while j<=n do

begin

read(i);

t:=n-j+1;

if t<>1 then

begin

if i=1 then begin write('+x^',t);x:=false; end;

if i=-1 then begin write('-x^',t);x:=false; end;

if (i>0) and (i<>1) then begin write('+',i,'x^',t);x:=false; end;

if (i<0) and (i<>-1) then begin write(i,'x^',t);x:=false; end;

end else

begin

if i=1 then begin write('+x');x:=false; end;

if i=-1 then begin write('-x');x:=false; end;

if (i>0) and (i<>1) then begin write('+',i,'x');x:=false; end;

if (i<0) and (i<>-1) then begin write(i,'x');x:=false; end;

end;

j:=j+1;

end;

read(i);

if i>0 then begin write('+',i);x:=false; end;

if i<0 then begin write(i);x:=false; end;

if x then write('0');

end.

#1 SHUXXKK@2010-03-27 03:07:00

回复删除

var a:array[0..100]of integer;

n,i:integer;

ok:boolean;

begin

readln(n);for i:=n downto 0 do read(a[i]);ok:=false;

for i:=n downto 0 do

if a[i]<>0 then

begin

if a[i]<0

then begin

ok:=true;if(i=0)or(a[i]<-1)then write(a[i])else write('-');

end

else begin

if ok then write('+');ok:=true;

if(i=0)or(a[i]>1)then write(a[i]);

end;

if i>0 then write('x');if i>1 then write('^',i);

end;

writeln;

end.

#2 xxwzy@2010-03-27 03:30:00

回复删除

回复沙发SHUXXKK 的帖子

顶

#3 灌水专用号@2010-04-04 22:56:00

回复删除

顶

#4 shenjb@2010-04-04 23:01:00

回复删除

顶

（把我和上面一个家伙的号封了吧！！！！）

#5 灌水专用号2@2010-04-04 23:10:00

回复删除

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶