加速叠代法

算法9:加速叠代法

functionf(a,b,n:longint):longint;

vard,t:longint;

begin

d:=1;t:=a;

whileb>0 do

  begin

if t=1 thenbegin

f:=d;exitend   ;

if b mod 2 =1then d:=d*t mod n;

  b:=b div 2;  

  t:=t*t mod n;

  end;

f:=d

end;

练习：