- 多项式表示
- 2014-10-31 10:54:35 @
var
i,j,k:integer;
a:array[0..8] of integer ;
begin
j:=0;k:=0;
for i:=8 downto 0 do
read(a[i]);
for i:=8 downto 0 do
begin
j:=j+a[i];
k:=i;
if j<>0 then exit
end;
for i:=k downto 0 do
if a[i]<>0 then
begin
if a[i]<0 then write('-');
if (a[i]>0)and(i<k) then write('+');
if (abs(a[i])<>1)or(i=0) then write(abs(a[i]));
if i>0 then write('x');
if i>1 then write('^',i);
end;
end.
1 条评论
-
第七维度丶 LV 9 @ 2014-11-02 21:23:27
你的第二次for循环结束后k就等于0 第三次循环根本没运行嘛
- 1