一、实验目的
1、掌握循环程序的设计方法。
2、掌握比较指令、转移指令和循环指令的使用方法。 3、进一步掌握调试工具的使用方法。
二、实验预习要求
1、复习比较指令、条件转移指令和循环指令。 2、复习循环程序的结构、循环控制方法等知识。
3、读懂“实验内容”中给出的将十进制数转换为二进制数以及将二进制数转换为十进制数的程序。
4、根据“实验内容”中给出的流程图和程序框架编写源程序，以便上机调试。
5、从“实验习题”中任选一道题目，编写源程序，以便上机调试。
三、实验内容
计算1+2+„„n=?，其中n 通过键盘输入。要求在屏幕上提供如下信息： Please input a number(1 627): ；出现此信息后通过键盘输入一个小于628的无符号整数
1+2+„..n=sum ；其中n 为用户输入的数，sum 为所求的累加和 程序运行情况如下图所示(说明：图中所运行程序允许累加和不大于一个32位二进制数所能表示的范围)。 1、 编程指导
(1) 键盘输入的
十进制数如368在计算机中是以33H ，36H ，38H 形式存放的，如何
将它们转换为一个二进制数101110000B ，以便对累加循环的循环次数进行控制是本程序首先要解决的问题。将键盘输入的十进制数转换为二进制数的程序清单如下： DATA SEGMENT
INF1 DB "Please input a number (0-65535):$" IBUF DB 7,0,6 DUP(?) DATA ENDS CODE SEGMENT
ASSUME CS: CODE, DS:DATA START: MOV AX, DATA MOV DS, AX
MOV DX, OFFSET INF1 MOV AH, 09H INT 21H
MOV DX, OFFSET IBUF ；键入一个十进制数(
MOV AH, 0AH INT 21H
MOV CL, IBUF+1 ；十进制数的位数送CX
MOV CH, 0
MOV SI, OFFSET IBUF+2 ；指向输入的第一个字符(最高位)
MOV AX, 0 ；开始将十进制数转换为二进制数 AGAIN: MOV DX, 10 ； ((0⨯10+a4) ⨯10+„) ⨯10+a0
MUL DX
AND BYTE PTR [SI], 0FH ADD AL, [SI] ADC AH, 0 INC SI LOOP AGAIN MOV AH, 4CH INT 21H CODE ENDS
END START
本程序功能：从键盘接收一个无符号十进制整数(小于65535)，将其转换为二进制数，转换结果存在AX 寄存器中。 (2) 累加结果为一个16位的二进制数，为了显示结果，必需把它们转换为十
进制数。将二进制数转换为十进制数的程序清单如下： DATA SEGMENT
OBUF DB 6 DUP(?) DATA ENDS
CODE SEGMENT
ASSUME CS: CODE, DS: DATA START: MOV AX, DATA MOV DS, AX
MOV BX, OFFSET OBUF+5 MOV BYTE PTR [BX],'$' MOV CX, 10 ；做(DX )：(AX )/10运算 LOOP1: MOV DX, 0 ；被除数高16位清0 DIV CX
ADD DL, 30H ；将DL 中的一位十进制数转换为ASCII 码
DEC BX
MOV [BX], DL OR AX, AX
JNZ LOOP1 ；判断商是否为0，不为0继续 MOV DX, BX MOV AH, 09H INT 21H ；显示转换得到的十进制数
MOV AH, 4CH INT 21H CODE ENDS END START
本程序功能：将存储在AX 寄存器中的二进制数转换为十进制数并显示。 2、 流程图及程序框架
(1) 流程图
(2) 程序框架
DATA SEGMENT INF1 DB "Please input a number
(0-65535):$"
IBUF DB 7,0,6 DUP(?)
OBUF DB 6 DUP (?)
DATA ENDS CODE SEGMENT
ASSUME CS: CODE, DS: DATA START: MOV AX, DATA
MOV CX, AX
MOV AX, 0 MOV BX, 1 LOOP2: ADD AX, BX INC BX LOOP LOOP2
CODE ENDS END START
3、完整源程序代码 DATA SEGMENT
INF1 DB "Please input a number(0-65535):$" IBUF DB 7,0,6 DUP(?) OBUF DB 6 DUP(?) DATA ENDS CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:MOV AX,DATA MOV DS,AX
MOV DX,OFFSET INF1 MOV AH,09H INT 21H
MOV DX,OFFSET IBUF MOV AH,0AH INT 21H
MOV CL,IBUF+1 MOV CH,0
MOV SI,OFFSET IBUF+2 MOV AX,0 AGAIN:MOV DX,10 MUL DX
AND BYTE PTR[SI],0FH ADD AL,[SI] ADC AH,0 INC SI
LOOP AGAIN MOV CX,AX MOV AX,0 MOV BX,1 LOOP2:ADD AX,BX INC BX
LOOP LOOP2
MOV BX,OFFSET OBUF+5 MOV BYTE PTR[BX],'$' MOV CX,0AH LOOP1:MOV DX,0 DIV CX
ADD DL,30H DEC BX
MOV [BX],DL OR AX,AX JNZ LOOP1 MOV DL,0AH MOV AH,02H INT 21H MOV DX,BX MOV AH,09H INT 21H MOV AH,4CH INT 21H CODE ENDS
END START
实验截图：
四、实验习题
1、从自然数1开始累加，直到累加和大于60000为止，显示累加的自然数的个数和累加和。显示格式为：1+2+„+n=sum 其中n 为累加个数，sum 为累加和。 data segment
obuf db 6 dup(?) eu db '+','$'
eb db 0dh,'=',0dh,'$' data ends
display macro string
mov dx,offset string mov ah,09h int 21h endm code segment
main proc far
assume cs:code,ds:data start: mov ax,data mov ds,ax
mov ax,1 mov cx,0 loop1:
adc cx,ax cmp ax,1 je all push ax display eu pop ax
all: call exchange inc ax
cmp cx,60000 jc loop1
push ax push cx
display eb mov ax,cx call exchange pop cx pop ax
mov ah,4ch int 21h ret
main endp exchange proc near push ax push bx push cx
mov bx,offset obuf+5 mov byte ptr [bx],'$' mov cx,10 loop2:
mov dx,0 div cx add dl,30h dec bx
mov [bx],dl or ax,ax jnz loop2
mov dx,bx mov ah,09h int 21h
pop cx pop bx pop ax ret exchange endp code ends end start 实验截图：
2、从键盘输入6个加数N 1、N 2、N 3、N 4、N 5和N 6(均为1 4位的无符号十进制整数)，求和并将计算结果在屏幕上显示出来。
3、从键盘输入一个无符号十进制整数(小于65536)，将其转换为二进制数，统计该二进制数中包含的1的个数，并将统计结果在屏幕上显示出来。
4、从键盘输入N 个无符号十进制整数(小于256)，将其转换为二进制数后存放在字节变量BUF 存储区中；对这N 个数进行由大到小排序，排序后将其仍存储在BUF 中；最后将排序后的结果在屏幕上显示出来。
(说明，以上习题任选一道题，附上流程图及源程序代码，然后把其他的两道题删掉)
五、实验小结
这次实验虽然难度不大，但在做的过程中也遇到了不少困难，有些错误不容易找出来，必须仔细的看和修改，所以要求我们养成良好的编码风格和习惯，尤其是源程序很长的时候，这就显得尤为重要。