求修改

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 条评论

  • @ 2014-11-02 21:23:27

    你的第二次for循环结束后k就等于0 第三次循环根本没运行嘛

  • 1

信息

ID
1258
难度
6
分类
字符串 | 表达式处理 点击显示
标签
递交数
1966
已通过
552
通过率
28%
被复制
3
上传者