摘要： 给大家推荐首歌EveryDAY Troy&GabrialaOnce in a lifetimeMeans there's no second chanceSo I believe that you and meShould grab it while we canMake it last foreverAnd never give it backIt's our turnAnd I'm loving where we're atBecause this moment's really all we haveEveryday of our live 阅读全文

摘要： 1 { 2 二维线段标准相交问题 3 } 4 Program LineIntersect; 5 6 const 7 precision=1E-6; 8 9 Type 10 11 point=record12 x,y:double;13 end;14 15 Tdbl=-1..1;16 17 var18 p:array[1..4] of point;19 i:longint;20 Function dblcmp(d:double):Tdbl;//注意这里相当于一个过滤器，函数值只有三种-1，0，121 begin22 if abs(d)<precision t... 阅读全文

摘要： 从今天起，我就在这里开始我的OI之旅了！1 Program RPplus;2 3 var4 rp:double;5 6 begin7 while 1=1 do8 inc(rp,maxlongint);9 end. 阅读全文