Chas.的共享空间

朝's profileChas.的共享空间PhotosBlogListsMore

program Zu;
type
arr=array[0..100] of integer;
var
i,n:integer;
a:array[0..100] of integer;
procedure swap(var x,y:integer);
var z:integer;
begin
    z:=x;x:=y;y:=z;
end;
procedure print(a:arr);
var i:integer;
begin
    for i:=1 to n do write(a[i]:4);writeln;
end;
procedure perm(a:arr;k:integer);
var i,j:integer;
begin
    if k=n
      then print(a)
      else begin
        for i:=k to n do begin
          swap(a[i],a[k]);
          perm(a,k+1);
        end;
      end;
end;
begin
readln(n);
for i:=1 to n do a[i]:=i;
perm(a,1);
end.

2 QUEUE

program QUEUE;
var
a:array[0..10000] of integer;
n,i:integer;
procedure qsort(l,r:integer);
var
    i,j,k:integer;
begin
    k:=a[l];
    i:=l;j:=r;
    while i<j do begin
      while (a[j]>=k) and (j>i)do dec(j);
      a[i]:=a[j];
      while (a[i]<=k) and (i<j) do inc(i);
      a[j]:=a[i];
    end;
    a[i]:=k;
    if i-1>l then qsort(l,i-1);
    if i+1<r then qsort(i+1,r);
end;

begin
readln(n);
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
qsort(1,n);
for i:=1 to n do write(a[i]:4);writeln;

end.

program Combination;
type arr=array[0..100]of integer;
var
   n,m:integer;
   a:array[0..100] of integer;
   procedure print(a:arr);
   var i:integer;
   begin
     for i:=1 to m do write(a[i]:4);
     writeln;
   end;
   procedure cc(k:integer);
   var
     i,j:integer;
   begin
     if k>m
       then print(a)
       else
         for i:=a[k-1]+1 to n-m+k do begin
           a[k]:=i;
           cc(k+1);
         end;
   end;

begin
fillchar(a,sizeof(a),0);
readln(n,m);
cc(1);
end.

program HanT;
var
n:integer;
procedure move(n:integer;x,y,z:char);
begin
    if n=1
      then writeln(x,'->',z)
      else begin
        move(n-1,x,z,y);
        writeln(x,'->',z);
        move(n-1,y,x,z);
      end;
end;
begin
readln(n);
move(n,'A','B','C');
end.

5:39 PM | Add a comment | Permalink | Blog it | 计算机与 Internet

October 13

感人的故事

（1）有一对情侣，男的非常懦弱，
做什么事情之前都让女友先试。女友对此十分不满一次，
两人出海，返航时，飓风将小艇摧毁，幸亏女友抓住了一块木板才保住了两人的性命。
女友问男友："你怕吗？" 男友从怀中掏出一把水果刀，说：怕，
但有鲨鱼来，我就用这个对付它。"女友只是摇头苦笑不久，
一艘货轮发现了他们，正当他们欣喜若狂时，一群鲨鱼出现了，
女友大叫："我们一起用力游，会没事的！"男友却突然用力将女友推进海里，
独立扒着木板朝货轮游过去了,并喊道："这次我先试！" 女友惊呆了，
望着男友的背影，感到非常绝望。鲨鱼正在*近，
可对女友不感兴趣而径直向男友游去，男友被鲨鱼凶猛地撕咬着，
他发疯似地冲女友喊道:"我爱你！" 女友获救了，
甲板上的人都在默哀，船长坐到女友身边说："小姐,他是我见过最勇敢的人。
我们为他祈祷！" "不，他是个胆小鬼。"女友冷冷地说。
"您怎么这样说呢？刚才我一直用望远镜观察你们，
我清楚地看到他把你推开后用刀子割破了自己的手腕。鲨鱼对血腥味很敏感，
如果他不这样做来争取时间，恐怕你永远不会出现在这艘船上.....

（2）一天夜里，男孩骑摩托车带着女孩超速行驶，他们彼此深爱着对方，　
女孩：“慢一点...我怕...”
男孩：“不，这样很有趣....”
女孩：“求求你...这样太吓人了...”
男孩：“好吧，那你说你爱我...”
女孩：“好....我爱你...你现在可以慢下来了吗？”
男孩：“紧紧抱我一下...”
女孩紧紧拥抱了他一下，女孩：“现在你可以慢下来了吧？”
男孩：“你可以脱下我的头盔并自己戴上吗？它让我感到不舒服，还干扰我驾车。”
第二天，报纸报道：一辆摩托车因为刹车失灵而撞毁在一幢建筑物上，车上有两个人，一个死亡，一个幸存...
驾车的男孩知道刹车失灵，但他没有让女孩知道，因为那样会让女孩感到害怕。
相反，他让女孩最后一次说她爱他，最后一次拥抱他，并让她戴上自己的头盔，结果，女孩活着，他自己死了...

就在一会的时间里，就在平常的生活里，爱向我们展示了一个神话...
这是一段短的文字，却很感人。不很细腻，却很心痛。
生活中的真爱是平淡，是值得让我们去珍惜的。

3.》偷被人追赶,他跑进一个小巷,跳进一座老宅.老宅很大,很静,也很荒凉.正当他想该藏在什么地方时,一个柔弱的声音在他身后响起 .“你是谁呀,你找谁?“
小偷吓了一跳.转身一看,只见一个少女正睁着一双大眼睛盯着他问呢.
“砰......“院外传来急促的敲门声,小偷的脸都吓白了.

少女一把抓住小偷的手,拉着他来到门口,打开了门,一群人闯了进来.

“你看见一个小偷进来了吗?“

“没有呀“.

“我和我男朋友在院子里,没见到什么小偷呀.“少女一脸天真的样子.

为首的男子仔细打量了少女,看她不像是在说谎.但他的目光却紧紧地盯着小偷.“他是你男朋友?“

“那还有假?“少女说着,把身子靠在小偷身上.

那些人看没什么异样,就都走了.

“你,你为什么帮我?“小偷知道少女一定知道他就是他们要找的小偷.

“你一定由你自己的苦衷,谁都不是天生就想作小偷的.“

居然有人会为小偷辩护,小偷不禁又仔细地打量了一下少女,她不像一个脑子有问题的人.

“你坐一会吧,他们估计还没走远“.少女居然邀请他坐一会.

“就你一个人在这?“

“是的,我家不在这儿,房子是我外祖父留下来的.“少女伤感地说.“我身体又不好,很少外出的,你能常来陪我吗?“

“好吧“.小偷犹豫一下答应了.

以后的日子里,小偷没事就去老宅陪少女.他后来才知道她患的是尿毒症,虽然是早期,但那却是个令人心惊胆寒的绝症啊!他能作是只是抽时间陪她,给她讲外面的世界,小偷的出现让少女黑白的世界变得多彩起来,她每天都盼望他的出现.

这年情人节,小偷带着一朵玫瑰出现在少女面前,向她示爱.她虽然知道那天以后他再也没有偷过东西,但她却是身患绝症的人,怎么能接受他的爱呢.

每个情人节,小偷都会带来一朵玫瑰向她求爱.

日子一天天地过去,小偷一天天地消瘦.

一天,小偷惊喜地告诉少女,她有救了,他为她找到了肾脏.

这年情人节前夕,少女换肾手术的准备工作已就绪.这时少女才知道,她要换的是小偷的肾.他瘦的那么快是因为他每天不仅要卖血,而且还要干很多重活,为的是早日凑够她的手术费用.

换肾手术非常成功,少女身体接受了小偷的肾,可小偷却因身体太弱而没能下手术台......

以后的每个情人节,小偷墓前都会有一朵玫瑰,并附着字条:永远爱你的妻!

4》刘刚是个抢劫犯，入狱一年了，从来没人看过他。
眼看别的犯人隔三岔五就有人来探监，送来各种好吃的，刘刚眼馋，就给父母写信，让他们来，也不为好吃的，就是想他们。
在无数封信石沉大海后，刘刚明白了，父母抛弃了他。伤心和绝望之余，他又写了一封信，说如果父母如果再不来，他们将永远失去他这个儿子。这不是说气话，几个重刑犯拉他一起越狱不是一两天了，他只是一直下不了决心，现在反正是爹不亲娘不爱、赤条条无牵挂了，还有什么好担心的？
这天天气特别冷。刘刚正和几个“秃瓢”密谋越狱，忽然，有人喊倒：“刘刚，有人来看你！”会是谁呢？进探监室一看，刘刚呆了，是妈妈！一年不见，妈妈变得都认不出来了。才五十开外的人。头发全白了，腰弯得像虾米，人瘦得不成形，衣裳破破烂烂，一双脚竟然光着，满是污垢和血迹，身旁还放着两只破麻布口袋。
娘儿两对视着，没等刘刚开口，妈妈浑浊的眼泪就流出来了，她边抹眼泪，年、边说：“小刚，信我收到了，别怪爸妈狠心，实在是抽不开身啊，你爸……又病了，我要服侍他，再说路又远……”这时，指导员端来一大碗热气腾腾的鸡蛋面进来了，热情的说：“大娘，吃口面再谈。”刘妈妈忙站起身，手在身上使劲的擦着：“使不得、使不得。”指导员把碗塞到老人的手中，笑着说：“我娘也就您这个岁数了，娘吃儿子一碗面不应该吗？”刘妈妈不再说话，低下头“呼啦呼啦”吃起来，吃得是那个快那个香啊，好象多少天没吃饭了。
等妈妈吃完了，刘刚看着她那双又红又肿、裂了许多血口的脚，忍不住问：“妈，你的脚怎么了？鞋呢？”还没等妈妈回答，指导员冷冷地接过话：“你妈是步行来的，鞋早磨破了。”
步行？从家到这儿有三四百里路，而且很长一段是山路！刘刚慢慢蹲下身，轻轻抚着那双不成形的脚：“妈，你怎么不坐车啊？怎么不买双鞋啊？”
妈妈缩起脚，装着不在意的说：“坐什么车啊，走路挺好的，唉，今年闹猪瘟，家里的几头猪全死了，天有干，庄稼收成不好，还有你爸……看病……花了好多钱……你爸身子好的话，我们早来看你了，你别怪爸妈。”
指导员擦了擦眼泪，悄悄退了出去。刘刚低着头问：“爸的身子好些了吗？”
刘刚等了半天不见回答，头一抬，妈妈正在擦眼泪，嘴里却说：“沙子迷眼了，你问你爸？噢，他快好了……他让我告诉你，别牵挂他，好好改造。”
探监时间结束了。指导员进来，手里抓着一大把票子，说：“大娘，这是我们几个管教人员的一点心意，您可不能光着脚走回去了，不然，刘刚还不心疼死啊！”
刘刚妈妈双手直摇，说：“这哪成啊，娃儿在你这里，已够你操心的了，我再要你钱，不是折我的寿吗？”
指导员声音颤抖着说：“做儿子的，不能让你享福，反而让老人担惊受怕，让您光脚走几百里路来这儿，如果再光脚走回去，这个儿子还算个人吗？”
刘刚撑不住了，声音嘶哑地喊道：“妈！”就再也发不出声了，此时窗外也是泣声一片，那是指导员喊来旁观的劳改犯们发出的。
这时，有个狱警进了屋，故做轻松地说：“别哭了，妈妈来看儿子是喜事啊，应该笑才对，让我看看大娘带了什么好吃的。”他边说边拎起麻袋就倒，刘刚妈妈来不及阻挡，口袋里的东西全倒了出来。顿时，所有的人都愣了。
第一只口袋倒出的，全是馒头、面饼什么的，四分五裂，硬如石头，而且个个不同。不用说，这是刘刚妈妈一路乞讨来的。刘刚妈妈窘极了，双手揪着衣角，喃喃的说：“娃，别怪妈做这下作事，家里实在拿不出什么东西……”
刘刚像没听见似的，直勾勾地盯住第二只麻袋里倒出的东西，那是—一个骨灰盒！刘刚呆呆的问：“妈，这是什么？”刘刚妈神色慌张起来，伸手要抱那个骨灰盒：“没……没什么……”刘刚发疯般抢了过来，浑身颤抖：“妈，这是什么？！”
刘刚妈无力地坐了下去，花白的头发剧烈的抖动着。好半天，她才吃力地说：“那是……你爸！为了攒钱来看你，他没日没夜地打工，身子给累垮了。临死前，他说他生前没来看你，心里难受，死后一定要我带他来，看你最后一眼……”
刘刚发出撕心裂肺的一声长号：“爸，我改……”接着“扑通”一声跪了下去，一个劲儿地用头撞地。“扑通、扑通”，只见探监室外黑亚亚跪倒一片，痛哭声响彻天空……

看了不回复的~~~是一个没感情的一个人~~~！

1:13 PM | Add a comment | Permalink | Blog it

September 30