编写程序，从键盘上输入一行明文，按照题3.17的规则翻译成密文，向显示器输出。
正确答案:
DATASEGMENT
MESS DB 0DH，0AH，“Inputsometextplease：$”
OUTMESS DB 0DH，0AH，“Thetextafterconvert：”
BUFFER DB81，？，81DUP（？）
DATA ENDS
CODESEGMENT
ASSUME CS：CODE，DS：DATA
START：
MOV AX，DATA
MOV DS，AX
LEA DX，MESS
MOV AH，09H
INT 21H；输出提示信息
LEA DX，BUFFER
MOV AH，0AH
INT 21H；输入一行明文
MOV CL，BUFFER+1
MOV CH，0；输入字符个数送CX
LEA BX，BUFFER+2；首字符地址送BX
NEXT：
MOV AL，[BX]
ADD AL，“A”-“0”；将一字节明文转换成密文
MOV [BX]，AL；保存
INC BX
LOOP NEXT
MOV BYTE PTR [BX]，“$”；送字符串结束标记
MOV WORD PTR BUFFER，2020H；缓冲区前2字节改为空格
LEA DX，OUTMESS
MOV AH，09H
INT 21H；输出转换以后的结果
MOV AX，4C00H
INT 21H
CODEENDS
END START
MESS DB 0DH，0AH，“Inputsometextplease：$”
OUTMESS DB 0DH，0AH，“Thetextafterconvert：”
BUFFER DB81，？，81DUP（？）
DATA ENDS
CODESEGMENT
ASSUME CS：CODE，DS：DATA
START：
MOV AX，DATA
MOV DS，AX
LEA DX，MESS
MOV AH，09H
INT 21H；输出提示信息
LEA DX，BUFFER
MOV AH，0AH
INT 21H；输入一行明文
MOV CL，BUFFER+1
MOV CH，0；输入字符个数送CX
LEA BX，BUFFER+2；首字符地址送BX
NEXT：
MOV AL，[BX]
ADD AL，“A”-“0”；将一字节明文转换成密文
MOV [BX]，AL；保存
INC BX
LOOP NEXT
MOV BYTE PTR [BX]，“$”；送字符串结束标记
MOV WORD PTR BUFFER，2020H；缓冲区前2字节改为空格
LEA DX，OUTMESS
MOV AH，09H
INT 21H；输出转换以后的结果
MOV AX，4C00H
INT 21H
CODEENDS
END START
答案解析:有
微信扫一扫手机做题