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