NOIPTGA组T1方程式多项式除法

最新推荐文章于 2022-05-18 16:57:17 发布

EMber _

最新推荐文章于 2022-05-18 16:57:17 发布

阅读量418

点赞数

分类专栏：多项式除法文章标签：多项式除法

本文链接：https://blog.csdn.net/qq_35866453/article/details/52982959

版权

多项式除法专栏收录该内容

1 篇文章 0 订阅

订阅专栏

该博客介绍了如何使用多项式除法解决求解n次方程根的问题，特别是处理重根的情况。通过将方程分解为(x-x1)(x-x2)...的形式，并逐个除以(x-1), (x-2)等，直到只剩一次项和常数，从而找到所有根，包括重根。博主分享了学习和实现多项式除法的过程，以及解决这个问题的代码实现。" 131075846,18852486,ESP8266与MQ7：单片机实现一氧化碳检测,"['单片机', '嵌入式硬件', '传感器技术', '物联网', '空气质量监测']

摘要由CSDN通过智能技术生成

题意：给你一个n次方程，让你求他的所有根（重根也要输出）。
其实我一开始是蒙蔽的，不知道啥是重根，等我搞清楚什么是重根的时候别人已经开始打了。。
比如说(x-1)(x-1)(x-2)=0，这个方程的根是1 1 2
所以我们知道，如果一个n次方程能分解为(x-x1)(x-x2)(x-x3)….那么这个方程就可以解决了。
由于题目中规定ans<=20且都为整数，所以我们一个一个除，用多项式除法，依次除(x-1),(x-2)….但是因为有重根，每次都要除到只有一次项和常数，除了多少次就输出多少个。
代码（多项式除法现学现卖，打了超长时间，不然T3就有时间打了。。）

 var
        k,p,n,m:int64;
        i,j:longint;
        a,b:Array[0..10]of int64;
function chu(k:int64):boolean;
var
        i:longint;
begin
        for i:=0 to n do b[i]:=a[i];
        for i:=n downto 1 do
        begin
                //writeln(i-1);
                b[i-1]:=b[i-1]-(-k*b[i]);
        end;
        if b[0]=0 then exit(true)
                else exit(false);
end;
begin
        assign(input,'equation.in');
        assign(output,'equation.out');
        reset(input);
        rewrite(output);
        readln(n);
        for i:=0 to n do read(a[i]);
        m:=n;
        k:=1;
       i:=0;
       while i<m do
        begin
                if chu(k) then//多项式除法
                begin
                        for j:=0 to n do b[j]:=a[j];
                        dec(n);
                        for j:=n downto 0 do
                        begin
                                a[j]:=b[j+1];
                                b[j]:=b[j]-(-k*b[j+1]);
                        end;
                        write(k,' ');
                end
                else
                begin
                        inc(k);
                        dec(i);
                end;
                inc(i);
        end;

end.