约瑟夫问题

QQ一朋友问我约瑟夫问题…经典咯..用链表做,想想自己很久没有用过链表咯,决定试试,费咯九牛二虎之力,总算结束咯..汗…自己退化得好快…只有5天咯..可以说..
程序清单:
Code:

Type
  Point=^node;
    node=Record
    dat:Word;
    link:Point;
End;

Var
  head,tail,tmp:Point;
  m,n,i,Count:Word;

Begin
  ReadLn(m,n);
  New(head);
  head^.dat:=1;
  tail:=head;
  For i:=2 To m Do
    Begin
      New(tmp);
      tmp^.dat:=i;
      tail^.link:=tmp;
      tail:=tmp;
    End;
  tail^.link:=head;
  tail:=head;
  Count:=m;
  While Count>1 Do
    Begin
      For i:=3 To n Do tail:=tail^.link;
      tmp:=tail^.link;
      tail^.link:=tmp^.link;
      tail:=tmp^.link;
      //WriteLn(tmp^.dat);
      Dispose(tmp);
      Dec(count);
    End;
  WriteLn(tail^.dat);
End.

程序应该还是没有问题…费了点时间…

昨天USACO得nov’5比赛…我想去看看…竟然说我作弊,想咯想,可能是资格赛,问问,果然…我很久没有usaco咯,上次是卡到checker,时限1s比较难…我当时没有continue咯..现在还是bronze“`进不去…55~~看能不能进步…

错误–郑愁予

错误–郑愁予

我打江南走过
那等在季节里的容颜如莲花的开落

东风不来,三月的柳絮不飞
你底心如小小寂寞的城
恰若青石的街道向晚
音不响,三月的春帷不揭
你底心是小小的窗扉紧掩

我达达的马蹄是美丽的错误
我不是归人,是个过客……

一直很喜欢这首小诗~
谁是过客?谁是归人?或者浪子…人生如此间的秋梦…

早上醒来,才发现…寝室空荡荡的…原来人走了,真的感觉很寂寞,或者说落寞,不知新校区他们是否安好…
我原来已受不起寂寞的侵袭…受不起心的变化…

落汤鸡式的搬学校

公元2005年11月10日…湘潭县第一中学高三全体学生搬学校!为了搬新学校也有很久咯…一拖再拖,许多同学都厌倦咯,然而终于搬咯~~我是八十个不愿意,当然谁都想去新校区过过,不过老校区挺好的,至少新校区现在环境不好,作为在一中待了足足6年的老生,一中的变化还是巨大的,突然间感觉到:萧瑟秋风今又是,换了学校!
天公不作美,一早…6点多点点吧,我才起来的时候,天就淅淅沥沥的下起了雨,我想,这个天气可是苦了学生咯!
作为不要搬校区的我,暂时!受到了信息竞赛的恩惠.所以我本来可以一早起来待在机房,或者看着他们搬东西.然而我终究耐不住,终究在路上帮助老同学帮东西,其实说从教学楼到操场,或者男生寝室,女生寝室到车子都不远…可是被子,箱子…我搬咯20多趟…大概就是衣服鞋子==全身上下湿透咯…高二的还在教室里看我们雨中的好戏…不过对于高三的并不是好事,很多书,还有被子,还有…..很多很多的东西,很乱的场面,而且被雨打湿咯,我只能在这边帮他们,不去新校区咯,希望他们在那边不会出问题…
发现实验班就是不同,新组建的文科实验班的几个女生(貌似全部是的啊~~真实的女儿国…),排在最后,不过却很安静的在教室自习,很惭愧ing
back…高三的人基本走咯,感觉一下子突然空荡荡的…人走咯…感觉一种失落,也许…明年6月也会是这样的…一种失落…想起那个初中毕业,自己游戏过来的,终于人生的改变由那个暑假决定!小学毕业…没有什么映像咯,原来自己真的已经太多太多的变化,虽然一直很清楚的知道自己的变化,可是却无法真正的面对,不想去想,如果要快乐,最好不要去想这些,我明白过来

昨天zroge的生日原来是yangyi从待选的题目中挑的,zroge的意思…难怪,想yanyi的水平也不至于出这种题目~~~不过自己也没有做很多,算是4道吧,不明白自己为什么不能认认真真的做…心野了吧~~我不知道怎么处理!

利用新学的知识写了一个硬件高效计时器的测时程序,果然比windows的GetTickCount精度高了很多!原来的估计就是直接调用BIOS的时间中断,因为计时经常出现55ms,110ms,165ms….的计数,很让人怀疑精度,最终决定还是自己写个新的,老的虽然不错,还是精度的问题,其实追究这些都没有用,自己的程序仍然很垃圾,我还是菜鸟…就是老菜咯…

终于发现,很久没有写日记了~日记…,第四本日记还剩下不到15页就结束咯他的第一作用,Blog有些取代日记的作用,但是日记终究不能被blog取代,我喜欢那种手与纸之间的摩擦,还有深夜笔尖与纸亲密接触时发出的沙沙声音,还有拿着日记回味过去的生活,日记里几乎篇篇会出现她…是吧,有时自己什么不写,就是写到她…也许就是XXX~
另外写日记不会突然停电!所以你大可放心的写,不会出现问题.Blog写出来往往希望别人看,分享一下,但是正如我初中语文老师说的:蓝色的日记本记下自己心中的秘密.一般是不让人分享的,如果和一个人分享过日记,那么
至少证明你们两的关系很好!很铁.很怀念那阵子!美好的总是容易流逝~很久以后,再来看我现在的心情,应该会很有趣的!
曾经想,当我和她变成老头子,老婆婆时…坐在一起闲聊…一起翻阅曾经的日记,回忆曾经的往事,应该是一件很快乐的事…但是她?是谁?还是她?!

我很好色…貌似不对,好色还是不错..也不太符合吧,不喜欢别人欺骗…或者说什么呢?!信息学竞赛的女生不多…我对女生其实不怎么感兴趣.生活中很多的女生一视同仁,感觉就是对她们都是一样的,就是同学,或者是朋友.除开特别玩得好的一两个,其余的都不怎么接触.我已无法对女生免疫.不过作为男性对女性不感兴趣那是难有.突然想起景天…仙三外传中间,南宫煌去找他…温慧靠近景天时,景天说:姑娘,请靠后些,否则鄙人将有…,红毛:….话不太记得咯..不过很搞笑,却也是事实,景天很惧内.不过我很喜欢雪见!大概我若是景天,也会如此….
觉得有时网上碰到一两个女生感觉很有趣,虽然我QQ上不止一两个竞赛的女生,却也还是少于10个…算天南海北都有咯…QQ上的往往可以平白相交…不会有什么特别的,美女?丑女?可以不管.但是我尽量可以平等相待,其实就是算一个朋友.

一直不想踢QQ上的人,然而终究人多咯…发现牛人不少…zroge,jyy,yangyi,杜杜,蓝点…然而没有好好学习过…

这个Blog的好处,我可以备份我的一切,我的一切可以自己弄,于是我弄了个留言本,不过还要修改模板文件,所幸对我并不是一件很困难的事,所以现在一切OK咯…只是没有人看,等有人看咯…我也不能写了…除非我很对得起班主任,拿个省一回来!哪怕有再多人Bless我,我不尽力也是空的~….

PASCAL的优越性:官方的说法

也许你认为为什么我选择pascal代替其他的语言,像C.或者您会拿freepascal和其他的pascal编译器作比较,那么好,这里您看看freepascal为什么好:
1.pascal是一个非常简洁的语言,Pascal是一种非常优美的语言.比起C和C++来,你的程序可以具有很强的可读性和可维护性.并且pascal具有你所能想象到的强大的功能.
2.不要Makefils,不像很多的程序语言,Pascal 并不需要makefiles文件,你能够节约大量的时间.编译器能够知道哪些文件需要编译.
3.Pascal编译器拥有很快的编译速度,并且没有异常,你只需要按下编译,一切由编译器搞定,大型程序也是!
4.每个单元有其自己的标识符,在pascal中间,你不用担心命名空间的问题.每个单元都有自己的命名空间.所以这个限制非常宽松.
5.集成开发环境,freepascal用有一个IDE在不同的平台上可以工作,你可以在IDE中间写代码,编译并且调试你的程序,使用IDE你可以节约很多的时间,是你编程的最好伙伴.
6.完整支持汇编代码,在freepascal中你可以很轻松的使用汇编和pascal代码编程,喜欢intel风格的汇编代码?没问题,如果需要,PF会为你转换成ATT风格的.想转换你的程序为NASM源代码?没问题,你程序中的所有ATT汇编代码会自动转换.
7.面向对象的编程,如果你要进行一系列的编程,那么你一定对面向对象编程感兴趣.尝试使用TP和Object Pascal的面向对象编程.FCL和开源的可视的Library将为你提供前大的面向对象的库.像数据库我们体动PostgreSQL,MySQL,interbase以及odbc!
8,智能链接,freepascal的编译器能够智能的除去那些你没有使用的代码或者变量.当被静态链接的时候,能够生成很小的程序.
9.在很多的平台和系统上可以使用,freepascal相对于其他的编译器提供了很多的平台,并且很容易通过改编译的设置来运行在不同的平台和处理器上.
10.兼容性.freepascal的兼容性比其他的编译器都好,我们几乎完全兼容TP,并且与delphi有很好的兼容性.如果你有另一个语言的代码,像C或者汇编,也只需要用你喜欢的编译器编译然后用freepascal调用.
11.freepascal在Linux下可以兼容不同版本的linux.

其实说来,FP的IDE,至少WIN下面的很垃圾…没有TP的好…稳定性也不够…
Pascal作为一种教学语言来说实在太可惜咯,至少他的优点是显而易见的,C/C++的功能那么强大,JAVA的横行,delphi仍然屹立不倒,pascal仍然很受欢迎…