【NOIP2016提高A组模拟9.28】求导

Description

Input

Output

题解

可以先把多项式拆成很多个单项式，然后分别对于每⼀项求导之后输出。
细节较多，要注意系数为0，系数前正负号，以及指数为0或1的情况。
注意ansistring

代码

var
  l:longint;
  s:ansistring;
procedure main;
var
  i,p,a,b,j,pp:longint;
  ss:ansistring;
begin
  l:=length(s);
  i:=1; j:=0;
  while i<l do
    begin
      ss:=''; pp:=i;
      while (s[i]<>'+') and (s[i]<>'-') and (i<=l) do
        begin
          ss:=ss+s[i];
          inc(i);
        end;
      a:=0; b:=0;
      p:=0; p:=pos('x',ss);
      if p>0 then val(copy(ss,1,p-1),a)
             else begin inc(i); continue; end;
      if p=1 then a:=1;
      if s[pp-1]='-' then a:=-a;
      p:=0; p:=pos('^',ss);
      if p>0 then val(copy(ss,p+1,length(ss)-p),b)
             else b:=1;
      if j=0 then
        begin
          if b=1 then write(a*b) else
            if b-1<>1 then write(a*b,'x^',b-1)
                      else write(a*b,'x');
        end else
        begin
          if a*b>0 then write('+');
          if abs(a*b)<>1 then write(a*b);
          if b-1<>0 then write('x');
          if b-1>1 then write('^',b-1);
        end;
      inc(j); inc(i);
    end;
  if j=0 then write(j);
end;

begin
  assign(input,'equation.in');
  assign(output,'equation.out');
  reset(input);
  rewrite(output);
  readln(s);
  main;
  close(input);
  close(output);
end.