NOIP复习-007——数学方法

最新推荐文章于 2021-12-02 19:51:12 发布

yangs_s

最新推荐文章于 2021-12-02 19:51:12 发布

阅读量467

点赞数 1

分类专栏： NOIP复习

本文链接：https://blog.csdn.net/yangs_s/article/details/49641941

版权

NOIP复习专栏收录该内容

7 篇文章 0 订阅

订阅专栏

NUM.ONE——欧几里得算法（辗转相除法求最大公约数）（循环型）

var a,b,i,c,j,k,l,m,n:longint;
begin
  readln(a,b);
  c:=a mod b;
  while c<>0 do
    begin
      a:=b;
      b:=c;
      c:=a mod b;
    end;
  writeln(b);
end.

NUM.TWO——欧几里得算法（辗转相除法求最大公约数）（递归型）

NUM.THREE——拓展欧几里得算法

var a,b,x,y,i,j,k:longint;
function exgcd(a,b:longint;var x,y:longint):longint;
var t:longint;
begin
  if b=0 then
    begin
     x:=1;
     y:=0;
     exit(a);
    end;
  exgcd:=exgcd(b,a mod b,x,y);
  t:=x;
  x:=y;
  y:=t-(a div b)*y;
end;
begin
  readln(a,b);
  k:=exgcd(a,b,x,y);
  writeln(a,'*(',x,')+',b,'*(',y,')=',k);
end.