二循环与子程序程序设计﹎.pdf

《二循环与子程序程序设计﹎.pdf》由会员分享，可在线阅读，更多相关《二循环与子程序程序设计﹎.pdf（14页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、实验二循环与子程序程序设计 一、实验目的 1) 加深对循环结构的理解。 2）掌握循环程序的设计方法。 3）学习子程序的定义和调用方法。 4）掌握子程序、子程序的嵌套、递归子程序的结构。 5) 掌握子程序设计、编制及调试。 6) 熟练掌握 DEBUG 的常用命令，学会用DEBUG 调试程序。 二、实验内容 1) 编制程序计算 S=1+23+34+45+N（N+1）+直到 N（N+1 ）大于 200 为止，并将结果由屏幕上显示出来。 DATA SEGMENT A DBS=1+2x3+3x4+4x5+.+N(N+1)+.=,$ B DB 4 DUP(0),$ DATA ENDS STACK SEGM

2、ENT PARA STACK DW 40H DUP(0) STACK ENDS CODE SEGMENT ASSUME CS:CODE, DS:DATA START:MOV AX,DATA MOV DS,AX MOV DX,OFFSET A MOV AH,09H INT 21H MOV DX,1 MOV BL,2 NEXT:MOV AL,BL INC BL MUL BL ADD DX,AX CMP AX,200 JNA NEXT CALL CHGASC MOV AH,4CH INT 21H CHGASC PROC MOV CX,0004H MOV DI,OFFSET B MOV AX,DX L

3、6:PUSH CX MOV CL,04H ROL AX,CL MOV DX,AX POP CX AND AX,000FH CMP AL,0AH JB L7 ADD AL,07H L7:ADD AL,30H MOV DI,AL MOV AX,DX INC DI LOOP L6 MOV DX,OFFSET B MOV AH,09H INT 21H RET CHGASC ENDP CODE ENDS END START 结果：S=1+23+34+45+N （N+1 ）+=045F 3）编制在屏幕上显示九九乘法表的程序。 DATA SEGMENT S DB 01H A DB 01H DATA ENDS

4、 STACK1 SEGMENT PARA STACK DW 40H DUP(0) STACK1 ENDS CODE SEGMENT ASSUME CS:CODE,DS:DATA,SS:STACK1 START:MOV AX,DATA MOV DS,AX MOV AL,0AH MOV CX,09H LOP1:PUSH CX PUSH AX SUB AL,CL MOV BL,AL INC BL MOV CL,AL LOP2:PUSH CX PUSH BX PUSH AX MOV A,AL MOV DL,AL ADD DL,30H MOV AH,02H INT 21H SUB BL,CL MOV A

5、L,A MUL BL MOV S,AL MOV DL,2AH MOV AH,02H INT 21H ADD BL,30H MOV DL,BL MOV AH,02H INT 21H MOV DL,3DH MOV AH,02H INT 21H MOV AL,S MOV CL,04H ROL AL,CL AND AL,0FH CMP AL,09H JLE NEXT1 ADD AL,07H NEXT1:ADD AL,30H MOV DL,AL MOV AH,02H INT 21H MOV AL,S AND AL,0FH CMP AL,09H JLE NEXT2 ADD AL,07H NEXT2:ADD

6、 AL,30H MOV DL,AL MOV AH,02H INT 21H MOV DL,20H MOV AH,02H INT 21H POP AX POP BX POP CX LOOP LOP2 MOV DL,0AH MOV AH,02H INT 21H MOV DL,0DH MOV AH,02H INT 21H POP AX POP CX LOOP LOP1 MOV AH,4CH INT 21H CODE ENDS END START 5）设有五个字数据存放在以BUF为首地址的内存单元中，要求采用调用多个字 数据相加的子程序方法编程，和的低位字放在RESULT 单元，和的高位字放在 RESU

7、LT+2 单元，并将结果显示在屏幕上。 STACK SEGMENT STACK DB 1024 DUP(0) STACK ENDS DATA SEGMENT BUF DW 0F101H,110DH,52H,100H,456H COUNT =($-BUF)/2 RESULT DW 4 DUP(?),$ DATA ENDS CODE SEGMENT ASSUME CS:CODE,DS:DATA,SS:STACK WDADD PROC PUSH DI MOV AX, 0 MOV DX, 0 MOV DI, OFFSET BUF NEXT2: ADD AX, DI JNC NEXT1 INC DX N

8、EXT1: ADD DI, 2 LOOP NEXT2 POP DI RET WDADD ENDP SHOW PROC PUSH CX PUSH DI MOV CX, 04H MOV DI, OFFSET RESULT MOV BX, AX ADD DI, 07H BBB: MOV AX, BX AND AX, 000FH CMP AL, 0AH JB QQQ ADD AL, 07H QQQ: ADD AL, 30H MOV DI, AL DEC DI PUSH CX MOV CL, 04 SHR BX, CL POP CX LOOP BBB MOV CX, 0004H CCC: MOV AX,

9、 DX AND AX, 000FH CMP AL, 0AH JB DDD ADD AL, 07H DDD: ADD AL, 30H MOV DI, AL DEC DI PUSH CX MOV CL, 04H SHR DX, CL POP CX LOOP CCC POP DI POP CX RET SHOW ENDP BEGIN: MOV AX, DATA MOV DS, AX MOV CX, COUNT CALL WDADD CALL SHOW MOV DX, OFFSET RESULT MOV AH, 09H INT 21H MOV AH, 4CH INT 21H CODE ENDS END

10、 BEGIN 结果：000107B6 6）编写一个递归子程序，计算指数函数X n的值，其中 X，n 从键盘输入。 DATA SEGMENT A DW ? B DB 0AH,?,?,?,?,$ C DB 0AH,$ D DB SHURU X,20H,$ E DB SHURU N,20H,$ DATA ENDS STACK SEGMENT STACK DW 40H DUP(?) STACK ENDS CODE SEGMENT ASSUME CS:CODE,DS:DATA,SS:STACK START: MOV AX,DATA MOV DS,AX MOV DX,OFFSET D MOV AH,09H

11、 INT 21H CALL STDIN MOV AH,0 MOV DX,AX PUSH DX MOV DX,OFFSET C MOV AH,09H INT 21H MOV DX,OFFSET E MOV AH,09H INT 21H POP DX CALL STDIN MOV AH,0 MOV CX,AX CALL FACT MOV A,BX CALL XIANSHI MOV AH,4CH INT 21H STDIN PROC MOV AH,1 INT 21H CMP AL, 30H JL STDIN CMP AL,37H JG STDIN AND AL,0FH RET STDIN ENDP

12、FACT PROC CMP CX,0 JG NEXT MOV BX,1 RET NEXT: PUSH CX DEC CX CALL FACT POP CX MOV AX,DX PUSH DX MOV DX,0 MUL BX MOV BX,AX POP DX RET FACT ENDP XIANSHI PROC MOV CX,0004H MOV DI,OFFSET B+1 MOV AX,A L6:PUSH CX MOV CL,04H ROL AX,CL MOV DX,AX POP CX AND AX,000FH CMP AL,0AH JB L7 ADD AL,07H L7:ADD AL,30H MOV DI,AL MOV AX,DX INC DI LOOP L6 MOV DX,OFFSET B MOV AH,09H INT 21H RET XIANSHI ENDP CODE ENDS END START