文档介绍：数据结构 → 【数据结构】算法集锦----Ezikao::易自考 页码，1/28
  易自考   校园日报  校园广播  教学大楼  主题校园  学员公寓  我的校园  易自考门卫
2004-5-7: ≡欢迎arlanf加入易自考 ≡[校园]坚持不懈加入[公共级班] ≡[校园]三分退出[学海无涯
    易自考 → 阶梯教室 → 数据结构 → 【数据结构】算法集锦
【数据结构】算法集锦
  作者:佚名(海风转帖)  发表时间:2003-6-29 20:12:00 
********************************************
该生花了七七四十九天把编程的一切贡献大家！
学会他就不怕一切了！！
acm与oi都不怕了！！！
********************************************
一、数论算法
1．求两数的最大公约数
function  gcd(a,b:integer):integer;
 begin 
   if b=0 then gcd:=a
     else gcd:=gcd (b,a mod b);
 end ;
2．求两数的最小公倍数
function  lcm(a,b:integer):integer;
 begin
   if a<b then swap(a,b);
   lcm:=a;
   while lcm mod b>0 do inc(lcm,a);
 end;
3．素数的求法
.asp?artid=329 2004-05-07
数据结构 → 【数据结构】算法集锦----Ezikao::易自考 页码，2/28
：
 function prime (n: integer): Boolean;
   var I: integer;
   begin
     for I:=2 to trunc(sqrt(n)) do
       if n mod I=0 then begin 
  prime:=false; exit;
end;
     prime:=true;
   end;
（包含求50000以内的素数表）：
   procedure getprime;
     var 
       i,j:longint;
       p:array[1..50000] of boolean;
      begin
        fillchar(p,sizeof(p),true);
 p[1]:=false;
 i:=2;
 while i<50000 do begin
   if p[i] then begin
     j:=i*2;
     while j<50000 do begin
       p[j]:=false;
       inc(j,i);