D
delp
Unregistered / Unconfirmed
GUEST, unregistred user!
1、-------------------------------------------------------------------------------
前两天看到一个叫做 wjp888 发的帖子,翻了一下老程序的备份找出来这东西,大家看看
现在想升一下级,有兴趣的朋友可以先下载看看,欢迎有同样爱好并有独特见解的兄弟发表
意见,源码送给开发中文编译器有建树的朋友。
我2-3年前做的,编译器只有 56K ,下载试验一下
http://test.9ml.net/myprg/myprg.exe
http://test.9ml.net/myprg/test.mlc
以前没做完的东西,哈哈,献丑了
运行 myprg.exe 会生成一个 test.com 的do
S 16 位 可执行程序,运行 test.com 可以看到test.mlc 的执行结果。
最好在 cmd 命令行方式下执行。
......
......
函数 ∑(整数 从,至)
整数 i,返回值
返回值 = 0
i = 从
如果 i > 至 那么
返回
结束
当 i <= 至 循环
返回值 = 返回值 + i
i = i + 1
结束
结束
整数 x
x = ∑(1,200)
输出(x)
............
............
test.mlc 里面这段程序以前的程序请保留留,这是因为当时设计失误造成的,程序写完
突然发现没设计输出函数,结果打了一个不伦不类的补丁。可执行程序本想做成 32 位
Win32 PE 和 Unix COFF 格式,但是后来因为懒惰,没做。
.....
.....
x = ∑(1,200) ---> 改成 x = ∑(1,100)
输出(x)
.....
.....
运行 myprg.exe 编译生成 test.com 运行
就可以看到输出结果 5050 嘻嘻
2、-------------------------------------------------------------------------------
星际争霸 Zerg 最爱兵种 Show
http://test.9ml.net/download/Zerg.exe
3、-------------------------------------------------------------------------------
星际争霸母巢三个老大团体 Show
http://test.9ml.net/download/Star3.exe
4、-------------------------------------------------------------------------------
一个用于下载的小程序
http://test.9ml.net/download/mywfile.exe
5、-------------------------------------------------------------------------------
一个用于压缩的小程序
http://test.9ml.net/download/myzfile.exe
6、-------------------------------------------------------------------------------
一个用于提取文件CRC32值的小程序
http://test.9ml.net/download/myfilecrc.exe
-------------------------------------------------------------------------------
另外 200 分在这里
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2443781
前两天看到一个叫做 wjp888 发的帖子,翻了一下老程序的备份找出来这东西,大家看看
现在想升一下级,有兴趣的朋友可以先下载看看,欢迎有同样爱好并有独特见解的兄弟发表
意见,源码送给开发中文编译器有建树的朋友。
我2-3年前做的,编译器只有 56K ,下载试验一下
http://test.9ml.net/myprg/myprg.exe
http://test.9ml.net/myprg/test.mlc
以前没做完的东西,哈哈,献丑了
运行 myprg.exe 会生成一个 test.com 的do
S 16 位 可执行程序,运行 test.com 可以看到test.mlc 的执行结果。
最好在 cmd 命令行方式下执行。
......
......
函数 ∑(整数 从,至)
整数 i,返回值
返回值 = 0
i = 从
如果 i > 至 那么
返回
结束
当 i <= 至 循环
返回值 = 返回值 + i
i = i + 1
结束
结束
整数 x
x = ∑(1,200)
输出(x)
............
............
test.mlc 里面这段程序以前的程序请保留留,这是因为当时设计失误造成的,程序写完
突然发现没设计输出函数,结果打了一个不伦不类的补丁。可执行程序本想做成 32 位
Win32 PE 和 Unix COFF 格式,但是后来因为懒惰,没做。
.....
.....
x = ∑(1,200) ---> 改成 x = ∑(1,100)
输出(x)
.....
.....
运行 myprg.exe 编译生成 test.com 运行
就可以看到输出结果 5050 嘻嘻
2、-------------------------------------------------------------------------------
星际争霸 Zerg 最爱兵种 Show
http://test.9ml.net/download/Zerg.exe
3、-------------------------------------------------------------------------------
星际争霸母巢三个老大团体 Show
http://test.9ml.net/download/Star3.exe
4、-------------------------------------------------------------------------------
一个用于下载的小程序
http://test.9ml.net/download/mywfile.exe
5、-------------------------------------------------------------------------------
一个用于压缩的小程序
http://test.9ml.net/download/myzfile.exe
6、-------------------------------------------------------------------------------
一个用于提取文件CRC32值的小程序
http://test.9ml.net/download/myfilecrc.exe
-------------------------------------------------------------------------------
另外 200 分在这里
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2443781