完整word版南昌大学微机原理学生成绩名次表实验

1、实验十六学生成绩名次表实验一.实验要求根据提示将 0 100 之间的 10 个成绩存入首址为 1000H 的单元， 1000H+i 表示学号为 i 的学生成绩， 编写程序能在 2000H 开始的区域排出名次表， 2000H+i 为学号 i 的学生的名次 , 并将其显示在屏幕上。二.实验目的进一步熟悉排序方法。三.实验程序框图开 始初 始 化显示提示信息SI指向成绩表首址学生数送CX调 GETNUM， 读 成 绩 送 SISI+1NCX-1=0Y学生数送CXDI指向名次表首址调SCAN子 程序，扫描成绩表计算名次，填入DX学号对应的名次单元NCX-1=0Y显示学生名次返回DOS入 口CX入栈保存

2、学生数送CXAL送0分BX和SI指向成绩表首址YAL>=SINSI送AL，DX记录对应学号SI+1NCX-1=0Y将本次扫描的最高成绩清0CX出栈返 回1四实验程序：CRLFMACROMOVAH,02HMOVDL,0DHINT21HMOVAH,02HMOVDL,0AHINT21HENDMDATASEGMENTSTUNUM EQU10MESS1DB' 请依次输入 1-10号 学 生 的 成 绩 ',0DH,0AH,'$'ERRORDB' 输 入 错 误 , 请 重 新 输 入 !',0DH,0AH,'$'MESS2DB'

3、;1-10 号 学 生 名 次 依 次 为 :',0DH,0AH,'$'EMARKDB?ORG1000HSCOREDB30 DUP(?)ORG2000HSEQUDB30 DUP(?)DATA ENDSSTACK SEGMENTSTADW32 DUP(?)TOPDW?STACKENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACKSTART:MOV AX,DATAMOVDS,AXMOVES,AXMOVSP,TOP;初始化MOVAH,09HMOVDX,OFFSET MESS1INT21H; 显示提示信息MOVSI,OF

4、FSET SCORE; 成绩表首址MOVCX,STUNUM;学生数送 CXMOVEMARK,0UUU:CALL GETNUM; 读取键入数值送 DXCMPEMARK,01HJESTARTMOVSI,DL; 存入成绩表缓冲区中INCSI; 指向下一单元LOOPUUUMOVCX,STUNUM;学生数2MOVDI,OFFSET SEQU; 名次表首址VVV:CALL SCAN; 扫描子程序MOVAL,STUNUM;学生数SUBAL,CLINCAL;计算名次MOVBX,DXDAAMOVDI+BX,AL; 记 DX学号对应名次LOOPVVVMOVAH,09HLEADX,MESS2INT 21HMOVCX

5、,STUNUM;学生数MOVSI,OFFSET SEQU; 名次表首址WWW: MOV AL,SICALL DISPIPUSHDXPUSHAXMOVAH,02MOVDL,20HINT21HPOPAXPOPDXINCSILOOPWWW; 显示排定的学生名次MOVAX,4C00HINT21HSCAN PROCNEAR; 子程序, 每扫描一遍成绩表缓冲区,找出其成绩最高者;( 由 DX指针指示对应学生), 之后将该成绩清除以便下一次扫描MOVDX,0PUSHCXMOVCX,STUNUM; 学生数MOVAL,00H;最低成绩MOVBX,OFFSET SCOREMOVSI,BX; 指向成绩表首址CCC:

6、 CMP AL,SIJAEJJJ;AL 中的成绩不低于成绩表指针 SI 所指单元的成绩则转JJJMOVAL,SI;AL 存放较高的成绩MOVDX,SISUBDX,BX;DX 为对应学号JJJ:INCSI;指向下一单元LOOP CCCADDBX,DX3MOVBYTEPTRBX,00H; 本次扫描成绩最高者清 0POPCXRETSCANENDPDISPI PROCNEAR; 显 示 子 程 序PUSHCXMOVBL,ALMOVDL,BLMOVCL,04ROLDL,CLANDDL,0FHCALLDISPLMOVDL,BLANDDL,0FHCALLDISPLPOPCXRETDISPIENDPDISPL PROCNEARADDDL,30HCMPDL,3AHJBDDDADDDL,27HDDD:MOVAH,02HINT21HRETDISPLENDPGETNUM PROCNEAR; 键 读 入 子 程 序PUSHCXXORDX,DXGGG:MOVAH,01HINT21HCMPAL,0DHJZPPPSUBAL,30HJBKKKCMPAL,09HJBEGETSJMPKKKGETS:PUSHAXMOVAL,DLMOVCL,10MULCLMOVDX,AX4POPAXXORAH,AHADDDX,AXCMPDX,100JAKKKJ