从键盘上输入两个五位十进制正数,转换为二进制数后,对两个数进行相加,并将结果以十六进制形式,显示在屏幕上
1条回答
- holyspark 2018-04-19 12:56关注
参考下述代码
;从键盘输入十进制数,输出该十进制数的十进制,二进制(B),十六进制(H),八进制(Q)
;用循环指令和除进制数取语法做的输出函数
DATA SEGMENT ;此处输入数据段代码
INFO1 DB 0DH,0AH,'INPUT A NUMBER:$'
INFO2 DB 0DH,0AH,'THE DECIMAL OF THIS NUMBER IS:$'
INFO3 DB 0DH,0AH,'THE HEXIMAL OF THIS NUMBER IS:$'
INFO4 DB 0DH,0AH,'THE QECIMAL OF THIS NUMBER IS:$'
INFO5 DB 0DH,0AH,'THE BINIMAL OF THIS NUMBER IS:$'
DATA ENDS
ZHUANHUA SEGMENT
ASSUME CS:ZHUANHUA,DS:DATAMAIN PROC FAR
MOV AX,DATA
MOV DS,AX
REPET:
CALL DECIBIN ;十进制转化到二进制,输入函数
CALL BINIDEC ;二进制转化到十进制输出
CALL CRLF ;输出换行
CALL BINIHEX ;二进制转化到十六进制输出
CALL CRLF
CALL BINIQEC ;二进制转化到八进制输出
CALL CRLF
CALL BINIBIN ;二进制转到二进制并输出
CALL CRLF
CALL STOP ;用于结束MAIN过程
JMP REPET
MAIN ENDPDECIBIN PROC NEAR ;十进制转化到二进制函数
LEA DX,INFO1
MOV AH,09H
INT 21H
MOV BX,0
NEWCHAR:MOV AH,01H
INT 21H
SUB AL,30H
JL EXIT
CMP AL,9D
JG EXIT
CBW
XCHG AX,BX
MOV CX,10D
MUL CX
XCHG AX,BX
ADD BX,AX
JMP NEWCHAR
EXIT:
RETDECIBIN ENDP
BINIDEC PROC NEAR ;用除10取余法输出十进制
LEA DX,INFO2
MOV AH,09H
INT 21H
MOV CX,3
MOV AX,BX
PUSH BX
MOV BX,10
LP1: XOR DX,DX
DIV BX
ADD DL,30H
PUSH DX
LOOP LP1
MOV CX,3
LP2: POP DX
MOV AH,02H
INT 21H
LOOP LP2
POP BX
RET
BINIDEC ENDPBINIHEX PROC NEAR ;除16取余法输出十六进制
LEA DX,INFO3
MOV AH,09H
INT 21H
MOV AX,BX
MOV CX,4
PUSH BX
MOV BX,16
LP1:XOR DX,DX
DIV BX
ADD DL,30H
CMP DL,3AH
JL PRINT
ADD DL,07H
PRINT:PUSH DX
LOOP LP1
MOV CX,4
LP2:POP DX
MOV AH,02H
INT 21H
LOOP LP2
POP BX
SUB AX,AX ;输出H
ADD AL,48H
MOV DL,AL
MOV AH,02H
INT 21H
RET
BINIHEX ENDPBINIQEC PROC NEAR ;除八取余法输出八进制
LEA DX,INFO4
MOV AH,09H
INT 21H
MOV AX,BX
MOV CX,5
PUSH BX
MOV BX,8
LP1:XOR DX,DX
DIV BX
ADD DL,30H
PUSH DX
LOOP LP1
MOV CX,5
LP2:POP DX
MOV AH,02H
INT 21H
LOOP LP2
POP BX
SUB AX,AX ;输出Q
ADD AL,51H
MOV DL,AL
MOV AH,02H
INT 21H
RET
BINIQEC ENDPBINIBIN PROC NEAR ;除2取余法输出二进制
LEA DX,INFO5
MOV AH,09H
INT 21H
MOV CX,16
MOV AX,BX
PUSH BX
MOV BX,2
LP1:XOR DX,DX
DIV BX
ADD DL,30H
PUSH DX
LOOP LP1
MOV CX,16
LP2:POP DX
MOV AH,02H
INT 21H
LOOP LP2
POP BX
SUB AX,AX ;输出B
ADD AL,42H
MOV DL,AL
MOV AH,02H
INT 21H
RET
BINIBIN ENDPCRLF PROC NEAR ;输出换行符
MOV DL,0DH
MOV AH,2
INT 21H
MOV DL,0AH
MOV AH,2
INT 21H
RET
CRLF ENDPSTOP PROC NEAR ;用于结束MAIN过程
MOV AX,4C00H
INT 21H
RET
STOP ENDP
ZHUANHUA ENDS
END MAIN解决 无用评论 打赏 举报
悬赏问题
- ¥15 drone 推送镜像时候 purge: true 推送完毕后没有删除对应的镜像,手动拷贝到服务器执行结果正确在样才能让指令自动执行成功删除对应镜像,如何解决?
- ¥15 求daily translation(DT)偏差订正方法的代码
- ¥15 js调用html页面需要隐藏某个按钮
- ¥15 ads仿真结果在圆图上是怎么读数的
- ¥20 Cotex M3的调试和程序执行方式是什么样的?
- ¥20 java项目连接sqlserver时报ssl相关错误
- ¥15 一道python难题3
- ¥15 牛顿斯科特系数表表示
- ¥15 arduino 步进电机
- ¥20 程序进入HardFault_Handler