显示下一条  |  关闭

原谅我这一生不羁放纵爱基友

大俗既大雅

 
 
 
 
 
 

黑龙江省 哈尔滨市 摩羯座

 发消息  写留言

 
博客等级加载中...
今日访问加载中...
总访问量加载中...
最后登录加载中...
 
 
 
 
 
 
 
 
 
 
 
下载音乐盒  曲目表歌词秀
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
模块内容加载中...
 
 
 
 
 
 
 

失眠

2012-1-20 5:29:39 阅读0 评论0 202012/01 Jan20

睡不着了

作者  | 2012-1-20 5:29:39 | 阅读(0) |评论(0) | 阅读全文>>

处方

2012-1-11 15:22:12 阅读6 评论0 112012/01 Jan11

一个病人去医院就医,医生用他那惯用的潦草字体开了处方,可病人很随意,将此处方放在衣袋里忘掉了。在此后的两年里,此人将此处方当作地铁车票来往于家与单位之间。并拿之看过十多场电影及两场音乐会,还打过一场高尔夫球,而且还混充上头的字迹获得了一次升迁。

  两年后他将此处方遗失了,但故事并未完结,他女儿捡到了字条,在年度音乐考核上按此演奏了一段钢琴,竟然获得了年终奖学金。

作者  | 2012-1-11 15:22:12 | 阅读(6) |评论(0) | 阅读全文>>

神奇的枕头

2012-1-10 2:42:03 阅读3 评论0 102012/01 Jan10

神奇的枕头和小浣熊皮还有小浣熊瓤特别想你

作者  | 2012-1-10 2:42:03 | 阅读(3) |评论(0) | 阅读全文>>

吃完饭有感

2012-1-5 15:53:35 阅读7 评论0 52012/01 Jan5

今天 

乐乐

下午

去给我买早饭

刚吃完饭

我很感动

真的很感动

作者  | 2012-1-5 15:53:35 | 阅读(7) |评论(0) | 阅读全文>>

一、数论算法

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;

作者  | 2011-12-29 0:59:52 | 阅读(8) |评论(0) | 阅读全文>>

查看所有日志>>

 
 
 
 
 
 
 
列表加载中...
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2012

   
创建博客 登录  
 关注