<![CDATA[Atomz's Blog]]> http://Www.Getshell.net/blog/ zh-cn PBlog2 v2.4 Atomz's Blog http://Www.Getshell.net/blog/images/logos.gif http://Www.Getshell.net/blog/ Atomz's Blog http://Www.Getshell.net/blog/article/251.htm <![CDATA[再见OI]]> gotshell@Gmail.com(Atomz) Tue,18 Nov 2008 00:10:13 +0800 http://Www.Getshell.net/blog/default.asp?id=251

Flash动画
在线播放


真的不想再多说什么了。
再见，我为之奋斗过的OI。
]]> http://Www.Getshell.net/blog/article/250.htm <![CDATA[7 Days]]> gotshell@Gmail.com(Atomz) Sat,08 Nov 2008 23:37:19 +0800 http://Www.Getshell.net/blog/default.asp?id=250       虽然校内的模拟赛做的不怎么样，但是网上的模拟做的挺有感觉的。其实，我现在缺的就是自信，虽然省选给我带来了点自信，把07noip的打击中和了一下，但是自己还是递归到了其实。希望能够在noip前调整心态如同参加省选的时候那样，轻松、自信。
    无所谓来自各方面的压力，这些对我这个EQ较高（同学的评价，也许是我喜怒不露与脸上）的人来说没有任何影响了。好了，相信自己，调整好心态，冲刺吧。]]> http://Www.Getshell.net/blog/article/249.htm <![CDATA[Knight Rider 2008~~]]> gotshell@Gmail.com(Atomz) Sun,26 Oct 2008 12:19:36 +0800 http://Www.Getshell.net/blog/default.asp?id=249


童年时经常看见CCTV上面播出的一辆黑色高级会说话、有思想的跑车驰骋在公路上，与主人公麦克打击着犯罪。但是当时不知道那个片子的名字，所以。。。。
    上一周偶然的在bbs上发现了这个片子要新拍，心情激动万分~~太爽了！超级喜欢kitt~
]]> http://Www.Getshell.net/blog/article/248.htm <![CDATA[27days]]> gotshell@Gmail.com(Atomz) Sun,19 Oct 2008 22:07:50 +0800 http://Www.Getshell.net/blog/default.asp?id=248
  看图不说话。]]> http://Www.Getshell.net/blog/article/246.htm <![CDATA[新建了个相册]]> gotshell@Gmail.com(Atomz) Sat,11 Oct 2008 21:26:21 +0800 http://Www.Getshell.net/blog/default.asp?id=246
     如题，我想说的是这个相册用来记录生活中的精彩瞬间、我的平面设计及摄影作品。
还是留下个链接吧：
     www.OIlogs.cn/photo/

]]> http://Www.Getshell.net/blog/article/245.htm <![CDATA[wp很强大]]> gotshell@Gmail.com(Atomz) Sat,11 Oct 2008 14:47:53 +0800 http://Www.Getshell.net/blog/default.asp?id=245        pj发文章很流畅，wp则不一样了（很卡）。以上言论只是针对我的机器来说的。
       好了就这些了。]]> http://Www.Getshell.net/blog/article/244.htm <![CDATA[发自内心的...]]> gotshell@Gmail.com(Atomz) Wed,08 Oct 2008 20:00:13 +0800 http://Www.Getshell.net/blog/default.asp?id=244
真没想到我高三还会继续搞OI，高二因为某些原因走了弯路、做了些无用功，没有在OI方面投入

精力，中间大概2个多月没有去机房听课。那个时候很无知...
引用内容 引用内容
      NOIP拼了，我要证明给所有怀疑我的人们，你们错了！！NOIP后要恶补数学和外语物理了，

这三门的课程现在有点弱了，数学和英语问题都不大，在两周之内还是可以提高许多的，物理已

经好长时间没学了，要好好补了，为了我的汗水为了我的努力我拼了！！！！！！


      看到这段感叹号颇多的文字，掀起了我内心的一阵狂潮。
    远离那些用鄙夷的眼光看着我志向的人。正如上面所说的，拼了！]]> http://Www.Getshell.net/blog/article/243.htm <![CDATA[阶段小结]]> gotshell@Gmail.com(Atomz) Thu,25 Sep 2008 17:34:21 +0800 http://Www.Getshell.net/blog/default.asp?id=243
//oi
问题很明显：
   需要加强考试策略。
   质的飞跃需要量的积累。

//website
累计花了2.5个小时作了个code文章系统的加强版（把code,blog聚合在了一起，首页更新这两个程序的最新文章的链接。目前来看注入对我的这个程序构成不了什么威胁，欢迎你的检测）。
这个过程中，我明显感觉到了我对asp理解、运用能力的提高（想想当年，code文章系统用了快1个星期的时间才搞定）。
首页链接：http://www.getshell.net/index.asp

//life
遭受了很多打击，我承认，我有点吃不消了。
关键要有自己的想法，努力吧。
]]> http://Www.Getshell.net/blog/article/242.htm <![CDATA[没想到在baidu一关键字上排名第一]]> gotshell@Gmail.com(Atomz) Mon,15 Sep 2008 14:40:26 +0800 http://Www.Getshell.net/blog/default.asp?id=242


很意外，这个关键字pcpop.com、it.com.cn知名硬件资讯门户都排在我后面。
哎，一切皆有可能。

]]> http://Www.Getshell.net/blog/article/241.htm <![CDATA[模拟+总结]]> gotshell@Gmail.com(Atomz) Thu,11 Sep 2008 00:35:07 +0800 http://Www.Getshell.net/blog/default.asp?id=241 (ghillie.pas/c/cpp)
[问题描述]
为了迎接圣诞，信息学兴趣小组的同学在辅导老师的带领下，举办了一个盛大的晚会，晚会的第一项内容是做游戏：猜数。老师给每位同学发一张卡片，每张卡片上都有一个编号(此编号为非负数，且小于255)，每个编号互不相同。老师制定了以下的游戏规则：第一轮，每位同学将自己卡片上编号的各位数字进行平方后再相加得到一组新数，编号在这组新数中出现的同学淘汰出局，第二轮，余下的同学再将编号的各位数字进行立方相加得到一组新数，编号在这组新数中出现的同学再淘汰出局，第三轮，余下的同学再将编号的各位数字进行4次方相加得到一组新数，编号在这组新数中出现的同学再淘汰出局，……，以此类推，经过n轮后，仍留下来的同学，将获得圣诞特别礼物，卡片上的数即为2007年吉祥数。(假定班级人数不超过200人)

[输入文件]

输入文件ghillie .in 有两行，第1行为1个正整数n(n<8)，表示有n轮游戏,第二行是卡片上互不相同的编号。

输出：剩下来的各个吉祥数，按从小到大顺序输出，每两个数之间有一个空格。

[输出文件]

     输出文件ghillie .out是1行，为剩下来的各个吉祥数，按从小到大顺序输出，每两个数之间有一个空格。

[输入样例]

1
24 123 2 12 20 14 4 6 36 72

[输出样例]

2 6 12 24 72 123

思路分析：
     认真读题,细心模拟！开两个数组a,b。a用来储存固定编号，b用来更新每次次方和的数据，这里需要注意的一点是：题目中要求的是每轮后再检测生成的新数与固定编号是否有一样的！而不是生成一个新数后，检测一下！
ws的代码:

程序代码 程序代码


program ghillie;
var i,j,k,l,r,n,temp:longint;
    a,b:array[1..1000]of longint;
    f:array[1..1000]of boolean;
    s:string;
function cifang(sn:string;p:longint):longint;
var i,j,k,num:longint;
begin
   k:=1;
   val(sn,num,j);
   for i:=1 to p do
       k:=k*num;
   exit(k);

end;
procedure run;
begin
fillchar(b,sizeof(b),0);
  for i:=1 to r do
   if f[i] then
      begin
         str(a[i],s);
         for j:=1 to length(s) do
              inc(b[i],cifang(s[j],l+1));
      end;
   for i:=1 to r do
      for j:=1 to r do
         if b[i]=a[j] then f[j]:=false;
end;
procedure int;
begin
  while not eoln do
      begin
         inc(r);
         read(a[r]);
      end;
end;
begin
  assign(input,'ghillie.in');reset(input);
  assign(output,'ghillie.out');rewrite(output);
  readln(n);
  fillchar(f,sizeof(f),true);
  int;
for l:=1 to n do run;
//px;
   for i:=1 to r-1 do
      for j:=i+1 to r do
        if (f[i])and(f[j]) then
          if a[i]>a[j] then
              begin
                k:=a[i];
                a[i]:=a[j];
                a[j]:=k;
              end;
   for i:=1 to r do
      if f[i] then write(a[i],' ');
   close(input);close(output);
  end.


--------------------------------------------------------------------------------
2、    暴力摩托
(car.pas/c/cpp)
【问题描述】
晚会上大家在玩一款“暴力摩托”的游戏，它拥有非常逼真的画面和音箱效果！
当然了，车子总是要加油的咯，已知赛道长S公里（S<=10000整数，且为10的倍数），赛车的油耗Q=1，即1公里路耗油1个单位的油。Q不变，赛车的油箱为无穷大，同时在沿途的任何地方都可以加油。约定，每次加油的数量为整数，且为10的倍数，赛车的数度与赛车加油后的总油量有关。其关系如下表所示：
加油量    车速（公里/小时）
<=10    100
(10,20)    90
(20,30)    80
(30,40)    75
(40,+ ∞)    70
同时，汽车每加油一次需要耗油T分钟（T<=100不论加油多少，开始时的加油不计时间）。
当S，T给出之后，选择一个最优的加油方案，使汽车以最少时间跑完全程。
例如:当S=40，T=6(分钟)，加油的方案有许多种，列出一些：
（1）    起点加油40，用时40/75≈0.53小时
（2）    起点加油20，中途加20，用时20/90+20/90+6/60(化为小时)≈0.54小时
【输入文件】
一行，为两个整数S，T。
【输出文件】
输出一行，为最少用时（保留两位小数）
【输入样例】
40 6
【输出样例】
0.53
大概思路:DP。
数据弱，骗分很爽的！
程序代码 程序代码

program car;
var
  i,j,k,m,n,s,t:longint;
begin
  assign(input,'car.in');reset(input);
  assign(output,'car.out');rewrite(output);
  readln(s,t);
  case s of
     10: writeln(s/100:0:2);
     20: writeln(s/90:0:2);
     30: writeln(s/80:0:2);
     40: writeln(s/75:0:2);
   end;
     if s>40 then writeln(s/70:0:2) ;

  close(input);close(output);
end.


骗分完毕。
DP开始
程序代码 程序代码

program car;
const  v:array[1..5]of real=(10,9,8,7.5,7);

var dis,i,j,k,s,st,t:longint;
    ss:string;
    time:real;
    f:array[0..10000]of real;
begin
  assign(input,'car.in');reset(input);
  assign(output,'car.out');rewrite(output);
  read(s,t);
  str(s,ss);
  st:=s;
  time:=t/60;
  while st<>0 do
         begin
            st:=st-10;
            inc(k);
         end;
  for i:=1 to k do
      f[i]:=maxlongint;
  for i:=1 to k do
       for j:=0 to i-1 do
          begin
             dis:=i-j ;
             if dis<=4 then
               begin
                  if f[i]>f[j]+dis/v[dis]+time  then
                       f[i]:=f[j]+dis/v[dis]+time
               end
               else
                  if f[i]>dis/v[5]+f[j]+time then
                      f[i]:=dis/v[5]+f[j]+time;
          end;
       writeln(f[k]-time:0:2);
          close(input);close(output);
end.


--------------------------------------------------------------------------------
3、    传话
(message.pas/c/cpp)
【问题描述】
兴趣小组的同学来自各个学校，为了增加友谊，晚会上又进行了一个传话的游戏，如果a认识b，那么a收到某个消息，就会把这个消息传给b，以及所有a认识的人。
如果a认识b，b不一定认识a。
所有人从1到n编号，给出所有“认识”关系，问如果i发布一条消息，那么会不会经过若干次传话后，这个消息传回给i，1<=i<=n。
【输入文件】
输入文件message.in中的第一行是两个数n (n<1000)和m (m<10000)，两数之间有一个空格，表示人数和认识关系。
接下来m行，每行两个数a和b，表示a认识b。1<=a,b<=n。认识关系可能会重复给出，但一行的两个数不会相同。
【输出文件】
输出文件 message.out 中一共有n行，每行一个字符T或F。第i行如果是T，表示i发出一条消息会传回给i；如果是F，表示i发出一条消息不会传回给i。
【输入样例】
4 6
1 2
2 3
4 1
3 1
1 3
2 3
【输出样例】
T
T
T
F

思路：DFS。
程序代码 程序代码

type
     arr=record
       b:array[1..100]of longint;
       t:longint;
     end;
var
    i,j,k,l,n,m,x,y:longint;
    a:array[1..10000]of arr;
    vis,f:array[1..10000]of boolean;
procedure dfs(p:longint);
var j:longint;
begin
for j:=1 to a[p].t do
begin
   if a[p].b[j]<>i then
          begin
             if not vis[a[p].b[j]] then
                begin
                   vis[a[p].b[j]]:=true;
                   dfs(a[p].b[j]);
                end
          end
          else
               begin
                  f[i]:=true;
                  exit;
               end;
end;
end;
procedure int;
begin
readln(n,m);
   for i:=1 to m do
      begin
        readln(x,y);
        inc(a[x].t);
        a[x].b[a[x].t]:=y;
      end;
end;
begin
   assign(input,'message.in');reset(input);
   assign(output,'message.out');rewrite(output);
   int;
   fillchar(f,sizeof(f),false);
   for i:=1 to n do
     begin
       fillchar(vis,sizeof(vis),false);
       dfs(i);
     end;
   for i:=1 to n do
       if f[i] then writeln('T') else writeln('F');
  close(input);close(output);
end.


-----------------------------------------------------------------------------
4、圣诞树

（tree.pas/c/cpp）

[问题描述]

圣诞特别礼物挂在一棵圣诞树上，这棵树有n层，每层有一件礼物，每件礼物都有一个价值，有的礼物还有一些连结线，与下层的礼物相连，领取礼物的规则如下：任选一件礼物，它的下面如果有连结线，则可以继续取它连结的礼物，以此类推，直至取到没有连结线的礼物才结束，你如果是第一个去取，怎样取才能获得最大的价值呢？请你编一程序解决这一问题。

[输入文件]

输入文件tree.in的第一行只有一个数据n(n<=100),表示有n层礼物，以下有n行数据，分别表示第1-n层礼物的状态，每行至少由一个数据构成，且第一个数据表示该礼物的价值，后面的数据表示它与哪些层的礼物相连，如果每行只有一个数据则说明这层礼物没有与下层礼物相连，每个数的大小均不超过10000。

[输出文件]

输出文件tree.out也只有一个数，表示获得的取大价值。

[输入样例]

3

12 2 3

20

30

[输出样例]

42

程序代码 程序代码

program tree;
var
  i,j,m,n,max:longint;
  f:array[0..1000]of longint;
  x:array[1..100,0..100]of boolean;

begin
  assign(input,'tree.in');reset(input);
  assign(output,'tree.out');rewrite(output);
  readln(n);
  fillchar(x,sizeof(x),false);
  for i:=1 to n do
  begin
     read(f[i]);
     while not eoln do
        begin
          read(j);
          x[j,i]:=true;
        end;
  end;
  max:=0;
  for i:=1 to n do
   begin
     m:=f[i];
     for j:=1 to n do
        if x[i,j] then
           if m<f[i]+f[j] then m:=f[i]+f[j];
     f[i]:=m;
     if m>max then max:=m;
   end;
  writeln(max);
  close(input);close(output);
end.


-----------------------------------------------------------------
小结:
·要学会看纸质卷纸
·做题策略需要加强
·No talking while programming]]>