1:

 

判断闰年程序

2:

 

产生随机数并计算程序

3:

 

计算平台长度程序

4:

 

加减乘除运算

5:

 

数字方阵程序

6:数据加密程

 

序

7:

 

代码转换程序

8:

 

键盘录入数据的转换与显示

9:

 

音乐演奏

10:

 

显示色彩矩形块

11、12:

 

字符图形程序

13:

 

图形变换

14、15:

 

动画

16:

 

打字练习

17:

 

打字计时练习

18:

 

系统时间显示

19:

 

显示日期时间

20:七段电子表显

 

示

21:

 

简易文本编辑器

22:

 

磁盘文件读写

23:

 

成绩管理

24、25:pc

 

机通信

26:

 

钟表显示

27:霓虹灯模拟显示

案例

1 判断闰年程序

说明

:

这是一个判断某一年是否为润年的程序，运行可执行程序

Ifleap.exe 后，输入具体的年份，

可输出是本年是否为闰年的提示信息。

源码

:

 

Delphi 代码
data segment    ;

    

定义数据段

    infon db 0dh,0ah,'Please input a year: $'   
    Y db 0dh,0ah,'This is a leap year! $'   

    N db 0dh,0ah,'This is not a leap year! $'   
    w dw 0   

    buf db 8   
        db ?    

        db 8 dup(?)    
data ends    

   
stack segment stack    

    db 200 dup(0)    
stack ends    

   
code segment    

          assume ds:data,ss:stack,cs:code    
    start:mov ax,data    

          mov ds,ax    
              

          lea dx,infon  ;

    

在屏幕上显示提示信息

          mov ah,9   

          int 21h    
   

          lea dx,buf    ;

    

从键盘输入年份字符串

          mov ah,10   

          int 21h    
              

          mov cl, [buf+1]    
          lea di,buf+2   

          call datacate    
          call ifyears    

          jc a1    
              

          lea dx,n    
          mov ah,9   

          int 21h    
          jmp exit    

    a1:   lea dx,y    
          mov ah,9   

          int 21h    
    exit: mov ah,4ch