处方
2012-1-11 15:22:12 阅读6 评论0 112012/01 Jan11
一个病人去医院就医，医生用他那惯用的潦草字体开了处方，可病人很随意，将此处方放在衣袋里忘掉了。在此后的两年里，此人将此处方当作地铁车票来往于家与单位之间。并拿之看过十多场电影及两场音乐会，还打过一场高尔夫球，而且还混充上头的字迹获得了一次升迁。
两年后他将此处方遗失了，但故事并未完结，他女儿捡到了字条，在年度音乐考核上按此演奏了一段钢琴，竟然获得了年终奖学金。
两年后他将此处方遗失了，但故事并未完结，他女儿捡到了字条，在年度音乐考核上按此演奏了一段钢琴，竟然获得了年终奖学金。
c算法大全常用c语言算法,包括数论算法,图论算法、排序算法、高精度计算、树的遍历算法等等
2011-12-29 0:59:52 阅读8 评论0 292011/12 Dec29
一、数论算法
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．素数的求法
A.小范围内判断一个数是否为质数：
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;
B.判断longint范围内的数是否为素数（包含求50000以内的素数表）：
procedure getprime;
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．素数的求法
A.小范围内判断一个数是否为质数：
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;
B.判断longint范围内的数是否为素数（包含求50000以内的素数表）：
procedure getprime;