DelphiBBS 第一届 编程竞赛

原创 2004年06月29日 21:53:00

1. 来来来,看看你的水平有多高!——Aimingoo送分项目(超过600大元)

http://www.delphibbs.com/delphibbs/dispq.asp?LID=650664

2.  开始评测在上次的“512字节Delphi代码”的计划中的代码,敬请关注。

http://www.delphibbs.com/delphibbs/dispq.asp?LID=1019143

3.  首届 Delphi 编程竞赛结果揭晓!

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1190390

 

偶的足迹

1. 

来自:progsoft, 时间:2001-10-1 23:37:00, ID:654070
凑个热闹,就是chinakiss8848说的自己写自己啦!
原来的程序(336字节):
CONST S:STRING='VAR I:WORD;F:TEXT;BEGIN ASSIGN(F,''M.DPR'');REWRITE(F);WRITE(F,''CONST S:STRING='');FOR I:=1TO LENGTH(S)DO WRITE(F,''#'',ORD(S[I]));WRITE(F,'';''+S);CLOSE(F);END.';VAR I:WORD;F:TEXT;BEGIN ASSIGN(F,'M.DPR');REWRITE(F);WRITE(F,'CONST S:STRING=');FOR I:=1TO LENGTH(S)DO WRITE(F,'#',ORD(S[I]));WRITE(F,';'+S);CLOSE(F);END.
但是写完后,程序变为(632字节)不合要求:
CONST S:STRING=#86#65#82#32#73#58#87#79#82#68#59#70#58#84#69#88#84#59#66#69#71#73#78#32#65#83#83#73#71#78#40#70#44#39#77#46#68#80#82#39#41#59#82#69#87#82#73#84#69#40#70#41#59#87#82#73#84#69#40#70#44#39#67#79#78#83#84#32#83#58#83#84#82#73#78#71#61#39#41#59#70#79#82#32#73#58#61#49#84#79#32#76#69#78#71#84#72#40#83#41#68#79#32#87#82#73#84#69#40#70#44#39#35#39#44#79#82#68#40#83#91#73#93#41#41#59#87#82#73#84#69#40#70#44#39#59#39#43#83#41#59#67#76#79#83#69#40#70#41#59#69#78#68#46;VAR I:WORD;F:TEXT;BEGIN ASSIGN(F,'M.DPR');REWRITE(F);WRITE(F,'CONST S:STRING=');FOR I:=1TO LENGTH(S)DO WRITE(F,'#',ORD(S[I]));WRITE(F,';'+S);CLOSE(F);END.
改为,共398字节:
CONST S:STRING='VAR I:WORD;F:TEXT;BEGIN ASSIGN(F,''M.DPR'');REWRITE(F);WRITE(F,''CONST S:STRING=''#39);FOR I:=1TO LENGTH(S)DO IF S[I]=#39THEN WRITE(F,#39#39)ELSE WRITE(F,S[I]);WRITE(F,#39'';''+S);CLOSE(F);END.';VAR I:WORD;F:TEXT;BEGIN ASSIGN(F,'M.DPR');REWRITE(F);WRITE(F,'CONST S:STRING='#39);FOR I:=1TO LENGTH(S)DO IF S[I]=#39THEN WRITE(F,#39#39)ELSE WRITE(F,S[I]);WRITE(F,#39';'+S);CLOSE(F);END.

不知道符合要求否?  
 
2. 
来自:aimingoo, 时间:2002-4-12 21:15:00, ID:1040672
关于progsoft的一段写自身的程序的评测:

--------
说明:
  代码很简单, 很容易就读完了. 差不多只要学过用Pascal的人都应该会读得懂这段代码. 哈哈.
  代码中没有和任何扩展的单元, 只用了一些基本的Pascal文件操作函数.

  程序应该是这样的:
    1. 将文件WriteSelf.Dpr以重写方式打开
    2. 写一个字符串定义
    3. 将S字符串的内含以#xxx的形式编码写入WriteSelf.Dpr文件. 这个编码实际上还是这个字符串.
    4. 写字符串定义的一些结束标志
    5. 关闭文件


问题:
  说老实话, 我不明白这个程序可以用来做什么. 哈.

  如果这个程序运行, 那么生成的这个结果文件, 即修改后的 WriteSelf.Dpr 文件还有什么用呢?
  仔细想过. 这个别.DPR甚至已经不能被再编译了. 如果说这是对源文件的加密, 那么这种加密方式
也实在太过拙劣了.  
 
来自:progsoft, 时间:2003-4-13 1:05:00, ID:1253825
问题:
  说老实话, 我不明白这个程序可以用来做什么. 哈.
(这个程序改自,1983年ACM图林奖颁奖大会上,UNIX鼻祖,C语言的创始人之一,
图林奖获得着KEN Thompson的程序,源程序用C语言写的)
如下:
char s[]={
 '/t',
 '0',
(221 lines deleted)这个地方原文删了一部分
 0
};
main()
{
 int i;
 printf("char /ts[]={/n");
 for(i=0;s[i],i++)
 printf("/t%d,/n",s[i]);
 printf("%s",s);
}

  如果这个程序运行, 那么生成的这个结果文件, 即修改后的 WriteSelf.Dpr 文件还有什么用呢?
(没什么很大的意思,但是据说KEN发表这个后,就出现了最初的病毒,好像是病毒程序自我复制的一种实现把。
  我这个程序修改后的程序,还可以生成自己呀。如果不是字节限制,可以做一个由0.dpr生成1.dpr,1.dpr生成2.dpr
  …………,反正就是娱乐而已

  仔细想过. 这个别.DPR甚至已经不能被再编译了. 如果说这是对源文件的加密, 那么这种加密方式
也实在太过拙劣了.

  应该可以在编译把,不是对自己加密
)  
 
3.
评出下面有效代码清单:
1. zwma的修改屏幕模式的代码
2. blade11的“使控件不响应/响应事件”的代码
3. Darkiss的SafePtr对象的代码
3. l_x_yuan的使用文本数据集的方法做登录日志的代码
5. netup的成批删除文件的的代码
6. creation_zy的随机数发生器的代码
6. aizb的一段用鼠标绘多边形的程序
8. Brave的实现圆形渐开窗体的示例程序
9. JJams_King的一个实现文本模板的示例程序
10.luyear的一段操作Windows系统桌面的示例
11.progsoft的一段写自身的程序
12.qiubole的一段用于演示面向对象设计中的“多态性”概念的程序
13.SINGLBOY的一段使用递归在TCanvas上作图的程序
14.wolf_cyj的一段测试端口是否以UDP协议打开的程序
15.yhjvc的一段操作注册表来修改IE的首页和标题栏设置的程序
16.yyanghhong的一段将数据库及相关记录显示在TTreeview上的示例程序
17.HubDog的"父子控件嵌套的最小原型例子"
18.zjlcc的修改IE Home Page的代码
19.creation_zy的用来统计源代码有效字符PackSrc()函数
20.wheel的计算Delphi源码字符数的程序
21.aizb的统计字符数的程序

现在,由我非常荣幸地宣布得奖者!

此次竞赛的前三名是:

17.HubDog的"父子控件嵌套的最小原型例子"
18.zjlcc的修改IE Home Page的代码
19.creation_zy的用来统计源代码有效字符PackSrc()函数


此次竞赛的第一名,也就 Borland T 恤得主是
 

2016中国大学生程序设计竞赛

题目汇总AB暴力求即可,最后除以GCD(A,B); #include int a[25],b[25]; int T,A,B,N; int GCD(int a,int b) { if(b==0)...
  • M___er
  • M___er
  • 2016年10月06日 20:41
  • 1195

世界编程大赛第一名——OMNISCENT

 将以下内容保存为任意文件名(如 1.txt):////////////////////////////////////////////////// Starting ////////////////...
  • zhujiangm
  • zhujiangm
  • 2008年02月13日 22:23
  • 3025

陕西省第一届ACM程序设计竞赛D题(最大生成树)

Problem 1268 - Donald’s company Time Limit: 1000MS      Memory Limit: 65536KB      Difficulty:    ...
  • u012350533
  • u012350533
  • 2013年10月08日 23:36
  • 998

整理:一些主流的编程竞赛网站 && 对比

今天把各个主流的编程网站仔细对比了一下,下面从各个角度对比一下这些编程竞赛网站。 分类和排名 网站地址 类别 PR ATR QF ...
  • bat67
  • bat67
  • 2016年07月28日 13:47
  • 5189

第一届奇虎360软件安全竞赛题目

      写在前面:每次在看雪论坛(http://www.pediy.com)和DebugMan论坛(http://www.debugman.com)看到牛人的帖子或者牛人的回复,我都很恨自己,我恨...
  • swtar
  • swtar
  • 2011年04月29日 09:51
  • 1291

全国中学生物理竞赛(预赛+复赛)试题及答案总集

   全国中学生物理竞赛(预赛+复赛)试题及答案总集(Word版)第一届全国中学生物理竞赛预赛试题.doc第二届全国中学生物理竞赛预赛试题.doc第三届全国中学生物理竞赛预赛试题.doc第四届全国中学...
  • WHJWHY
  • WHJWHY
  • 2008年04月03日 15:42
  • 16686

我的编程竞赛之路 ——中国大学生计算机编程第一人楼天城访谈

我的编程竞赛之路 ——中国大学生计算机编程第一人楼天城访谈
  • woqiang68
  • woqiang68
  • 2017年06月09日 21:38
  • 487

第一届蓝桥杯C/C++组编程题1 黑色星期五

输入 1998 4 输出 1998-2-13 1998-3-13 1998-11-13 #include int days1[13]= {0,31,28,31,30,31,30...
  • qq_30076791
  • qq_30076791
  • 2016年02月05日 14:26
  • 2447

滴滴全球Di-Tech算法大赛落幕 中国选手夺得10万美元大奖

7月20日消息,滴滴出行首届全球Di-Tech算法大赛今日正式落幕,经过数轮激烈角逐后,由三名成员组成的中国团队”inferrrr”以绝对优势夺得冠军并收获10万美元奖金,“一剑风吼”和“blitz”...
  • chivalrousli
  • chivalrousli
  • 2016年08月15日 16:36
  • 983

poj3176 基础的动态规划算法 <挑战程序设计竞赛>

2018-2-2 最容易想到的一种,直接求解,后面会进行优化。 #include #include using namespace std; const int N = 350; int x[N...
  • qq_34600424
  • qq_34600424
  • 2018年02月02日 11:27
  • 12
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:DelphiBBS 第一届 编程竞赛
举报原因:
原因补充:

(最多只允许输入30个字)