NOIP2012 同余方程 题解

描述

求关于x的同余方程ax ≡ 1 (mod b)的最小正整数解。

格式

输入格式

输入只有一行，包含两个正整数a, b，用一个空格隔开。

输出格式

输出只有一行，包含一个正整数x0，即最小正整数解。输入数据保证一定有解。

样例1

样例输入1[复制]

3 10

样例输出1[复制]

7

限制

每个测试点1s

提示

对于40%的数据，2 ≤b≤ 1,000； 
对于60%的数据，2 ≤b≤ 50,000,000； 
对于100%的数据，2 ≤a, b≤ 2,000,000,000。

分析：

解同余方程，比较水

欧几里德算法

program mod1;
var
a,b,x,y:longint;
procedure gcd(a,b:longint);
var t:longint;
begin
if b<>0
then gcd(b,a mod b)
else begin
x:=1;
y:=0;
exit;
end;
t:=x;
x:=y;
y:=t-(a div b)*y;
end;
begin
readln(a,b);
gcd(a,b);
//writeln(x,' ',y);
writeln(((x mod b)+b)mod b);
end.

代码二：

program mod2;
procedure oujilide(a,b:int64;var d,x,y:int64);


begin
  if b=0 then
  begin
  d:=a;
  x:=1;
  y:=0;
  end
  else
  begin
  oujilide(b,a mod b,d,y,x);
  y:=y-x*(a div b);end;
end;
var
  a,b,d,x,y:int64;
begin
  assign(input,'mod.in');
  reset(input);
  assign(output,'mod.out');
  rewrite(output);
  readln(a,b);
  oujilide(a,b,d,x,y);
  while x<0 do
  x:=x+b;
  writeln(x);
  close(input);
  close(output);
  end.