4.38编程题【汇】：键入某班学生(30人)的计算机考试成绩.docVIP

4.38 编程： 1）键入某班学生（30人）的计算机考试成绩，成绩按学号（1~30）排放在SOUND数据区中。 2）按考分排序（降序），列出相应学号到ORDER数据区中。 3）在屏幕显示前三名学生的学号和他们的成绩。 程序如下： N EQU 30 DATA SEGMENTBUF???????? DB?????? 4*NTEMP????? DB?????? ?SOUND?? DB?????? N DUP(4 DUP(?)),$MARK?????? DB?????? N DUP(0)ORDER??? DW N DUP(?)DATA ENDS STACK SEGMENTSTA???????? DB?????? 128 DUP(?)TOP??????? EQU????? SIZE STASTACK ENDS CODE SEGMENTASSUME CS:CODE,DS:DATA,SS:STACKSTART:MOV AX,DATAMOV DS,AXMOV AX,STACKMOV SS,AXMOV SP,TOP LEA DX,BUFMOV AH,0AHINT 21HMOV DL,0AHMOV AH,02HINT 21H MOV SI,0MOV CH,30HT:MOV AX,SIMOV BX,AXMOV CL,10DIV CLMOV BYTE PTR ORDER[BX][SI],ALADD BYTE PTR ORDER[BX][SI],CHMOV BYTE PTR ORDER[BX][SI+1],AHADD BYTE PTR ORDER[BX][SI+1],CHINC SICMP SI,NJNZ T CALL TRANCALL RANKCALL SHOWMOV AH,4CHINT 21H TRAN PROC????? ;ASCII码转换十六进制子程序XOR BX,BXMOV SI,0P1: MOV AL,SOUND[BX]INC BXCMP AL,20HJZ P1SUB AL,30HMOV CH,SOUND[BX]INC BXCMP CH,20HJZ NEXTP2: SUB CH,30HMOV CL,10 MUL CLADD AL,CHMOV CH,SOUND[BX]INC BXCMP CH,20HJZ NEXTJMP P2NEXT: MOV MARK[SI],ALINC SICMP SI,NJNZ P1 RETTRAN ENDP RANK PROC??????? ;排序子程序XOR BX,BXMOV SI,0 R1: CMP BX,N-1JZ GAMEOVERMOV AL,MARK[BX+1] INC BXCMP AL,MARK[BX-1]JNA R1MOV SI,BX R2: XCHG AL,MARK[SI-1]MOV MARK[SI],ALPUSH BXMOV BX,SIMOV AX,ORDER[BX+SI]XCHG AX,ORDER[BX+SI-2]MOV ORDER[BX+SI],AXPOP BXDEC SIJZ R1MOV AL,MARK[SI]CMP AL,MARK[SI-1]JA R2JMP R1 GAMEOVER: RETRANK ENDP SHOW PROC????? ;显示子程序XOR DX,DXMOV SI,0MOV DI,0MOV CX,3 S1: MOV DL,BYTE PTR ORDER[SI]MOV AH,02HINT 21HINC SIMOV DL,BYTE PTR ORDER[SI]MOV AH,02HINT 21HINC SIMOV DL,20HMOV AH,02HINT 21HCMP MARK[DI],100JZ GREAT MOV AL,BYTE PTR MARK[DI]MOV AH,0INC DIMOV DL,10DIV DLADD AX,3030HMOV BH,AHMOV DL,ALMOV AH,02HINT 21HMOV DL,BHMOV AH,02HINT 21HJMP S2 GREAT: MOV DL,31HMOV AH,02HINT 21HMOV DL,30HMOV AH,02HINT 21HMOV DL,30HMOV AH,02HINT 21HINC DIS2: MOV DL,0AHMOV AH,02HINT 21HMOV DL,0DHMOV AH,02HINT 21HLOOP S1RETSHOW ENDP CODE