血祭ㄨ鉚釘鐙: March, 2006

子's profile血祭ㄨ鉚釘鐙PhotosBlogListsMore

Tools

Help

<< First < Previous Next > Last >>

3/27/2006

A loner in love...

说实话自从俺被甩了以后特高兴。。。

孤单？怕什么啊

孤单算个屁！

我这辈子没得过几天清静日子。。。

现在可好喽。。。整一闲散人员。。。逛啊的都没人要

这不是很好么。。。

我现在怕的就是没朋友。。。friends...

而关于那小子的事儿。。。谣言rumor...

说明咱小有名气名人才传绯闻呢。。。

啊我放声大喊。。。我爱你橙子！！！！！

My life isn`t sucks...

3/25/2006

像风一样。。。

`像风一样`

像风一样的家伙

像风一样的奔走

像风一样的欢呼

像风一样的消失。。。

6:39 PM | Add a comment | Permalink | Blog it | 原创文学

3/24/2006

wonderfuuuuulllllllllll!

To God

您真够哥们儿, thx, 我爱死你了, 亲爱的上帝！

---------------------------------------------------------------

上帝正是在这个时候帮的我，怎么样都好吧。失去的就让它去吧。。。

不能是我的我是怎么也留不住的

不该是我的我是说什么也不能接受的

这么多年来我第一次感到如此轻松。我觉得我是上帝的宠儿！

现在我爱我的生活虽然它也曾经混乱过。。。

现在说的每一句话都不需要伪装了我真正的自由了

我和我的 world without fake

我要专心的开心的发自内心的做我自己的事儿了

6:58 PM | Add a comment | Permalink | Blog it

3/23/2006

我靠！F**king down!

得今儿特倒霉

我终于知道什么叫祸不单行了

先是QQ号被盗了然后被人甩了。。。。。

我认了咱命背跟别人没关系

我新的QQ号 358899935 我亲爱的好友们我对不起你们！

那什么申诉表已经交了最好是能要回来

今儿得感谢薛飞薛大人好人！在我最痛苦的时候帮了我一把。。。。

那人其实挺有意思的``

至于第二件到没事儿。。。那纯粹是我太贱我自找的

以后什么都不想了顺其自然

其他的爱咋咋呗。。。唉不提了

我只能说声`对不起` 我一直都不是什么好人。。。恶有恶报

我载我活该。。。

---------------------------

最后要骂两句那弄我号的人

我操你妈妈比你就是贱偷谁的不好啊？非偷到你爷爷家来了!

真他妈的。。。饿不想社咧

饿今后要多增一点儿防人之心你他妈个狗日的也好自为之 son of a bitch!

3/2/2006

受不了。。。。。。

饿局作业多成牛毛了。。。

我想怼死。。。。。

7:56 PM | Add a comment | Permalink | Blog it

program e4;
var
x,a,b:integer;
begin
    read(x);
    repeat
    a:=1;
      repeat
      a:=a+1;
      b:= x mod a;
      until b=0;
    write(a,'*');
    x:=x div a;
    until x=1;
    write('1');
  end.

7:30 PM | Add a comment | Permalink | Blog it | pascal练习

3/1/2006

循环

求两个数的最大公约数与最小公倍数。。。

---------------------------

program yuebei;
var
a,b,i,j,yue,x,y:integer;
begin
    write('a=');
    readln(a);
    write('b=');
    readln(b);
    for i:=1 to a do
    if (a mod i=0) and (b mod i=0)
    then begin y:=i; {writeln('yueshu=',y);} end;
    yue:=1;
    for j:=1 to y do
    if j>=yue then yue:=j;
    writeln('zdys=',j);
    x:=(a*b) div j;
    writeln('zxbs=',x);
end.

10:56 PM | Add a comment | Permalink | Blog it | pascal练习

数组[2]

输入一个整数将它转化为二进制输出

如输入 100 输出1100100

（小数有时间研究。。。）

--------------------------------

program two;
var
    a:array[1..50] of integer;
    x,i,j:integer;
begin
    write('x=');
    read(x);
    i:=0;
    repeat
      i:=i+1;
      a[i]:= x mod 2;
      x:=x div 2;
    until x=1;
    write(1);
    for j:=i downto 1 do
      write(a[j]);
    writeln;
end.

10:08 PM | Add a comment | Permalink | Blog it | pascal练习

数组[1]

输入一串小写字母以‘ . ’为终止输出每个字母出现的次数（未出现的不输出）如输入abcdbbhf 输出 a1 b3 c1 d1 f1 h1

program e_1;
var
    a:array['a'..'z'] of integer;
    x,i:char;
begin
    for i:='a' to 'z' do
      [i]:=0;
    repeat
      read(x);
      a[x]:=a[x]+1;
    until x='.';
    for i:='a' to 'z'do
      if a[i]<>0 then
      writeln(i,' ',a[i]);
end.