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

最新推荐文章于 2019-06-06 16:25:18 发布

原创最新推荐文章于 2019-06-06 16:25:18 发布 · 134 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一种处理多项式的算法，该算法将输入的多项式拆分成多个单项式，并针对每个单项式进行求导运算。特别关注了系数为零、指数为一等特殊情况的处理。通过具体的程序代码示例，展示了如何实现这一算法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.