用汇编语言实现班级分数统计

DATA SEGMENT

ASK DB 'the number of students',10,13,'$'

ANSWER DB 4,'?',4 DUP('?') ;存入学生数

SHURU DB 'Input scores:$'

HuanHang DB 10,13,'$' ;换行

W DW 100 DUP('?') ;两位组合BCD码连续存放

SCORE DB 100 DUP('?') ;两位组合BCD码间隔存放

ZUIDA DB 'The highest score is $'

PINJUN DB 'The average score is $'

MAXSCORE DW ? ;存入最大值

AVERAGES DW ? ;存入平均数

DATA ENDS

STACK SEGMENT STACK

DB 100 DUP('?')

STACK ENDS

CODE SEGMENT

ASSUME CS:CODE,DS:DATA,SS:STACK

BEGIN: MOV AX,DATA

MOV DS,AX

MOV AX,STACK

MOV SS,AX

CALL NUMBER ;调用子程序，实现输入学生数的功能

CALL INPUT ;调用子程序，实现输入每位学生分数的功能

CALL MAX ;调用子程序，实现找出最高分的功能

CALL AVERAGE ;调用子程序，实现求出班级平均分的功能

MOV AH,4CH ;返回DOS

INT 21H

NUMBER PROC ;输入学生数入口参数：无出口参数：DX

LEA DX,ASK ;在屏幕上显示“How many students”

MOV AH,9

INT 21H

LEA DX,ANSWER ;键盘输入学生数

MOV AH,10

INT 21H

MOV CL,[ANSWER+1] ;得出学生数(将输入的数十位乘10加个位)，存入寄存器DX

MOV CH,0

MOV BX,10

LEA SI,[ANSWER+2]

MOV DX,0

L1:MOV AL,[SI]

AND AX,000FH

PUSH CX

DEC CX

CMP CX,0

JE L2

MUL10:MUL BL

LOOP MUL10

L2:ADD DX,AX

POP CX

INC SI

LOOP L1

RET

NUMBER ENDP

INPUT PROC ;子程序：实现学生分数的输入入口参数：DX,出口参数：以W为首的连续单元内的数据

MOV CX,DX ;调入学生数

PUSH DX ;学生数入栈保护

LEA SI,W

LEA DI,SCORE

MOV DX,0

LEA DX,HuanHang ;屏幕上换行

MOV AH,9

INT 21H

LEA DX,SHURU ;在屏幕上显示“INPUT SCORES:”

MOV AH,9

INT 21H

LEA DX,HuanHang ;屏幕上换行

MOV AH,9

INT 21H

QQ: MOV AH,1 ;键盘连续写入每位学生分数，并转为二进制数后存入以W和SCORE为首的连续单元中

INT 21H

SUB AL,30H

ROL AL,4

MOV BL,AL

MOV AH,1

INT 21H

SUB AL,30H

OR BL,AL

MOV BH,0

MOV [SI],BX

INC SI

MOV [DI],BX

INC DI

INC DI

MOV DL,' ' ;每输入一个二位分数，输出一个空格

MOV AH,2

INT 21H

LOOP QQ

POP DX ;学生数出栈，保护现场

RET

INPUT ENDP

MAX PROC ;子程序：实现最高分的查找入口参数：DX，以W为首的连续单元内的数据出口参数：存入MAXSCORE的数据

PUSH DX ;学生数入栈保护

PUSHF

LEA SI,W

MOV CX,DX

LEA SI,W

MOV AX,[SI] ;从W为首的连续单元中取出4位，存入AX寄存器以便比较大小

MOV BL,AL ;将BL设为初始最大值

AGAIN: MOV AX,[SI] ;连续读取，比较，出现较大值时存入BL，实现最大值寻找INC SI

CMP AL,AH

JAE NEXT

CMP BL,AH

JAE NEXT

MOV BL,AH

NEXT: LOOP AGAIN

PUSH CX

PUSH DX

MOV BH,0

LEA DX,HuanHang ;屏幕上换行

MOV AH,9

INT 21H

MOV MAXSCORE,BX ;将最大值存入存储单元MAXSCORE中

MOV DL, ZUIDA ;在屏幕上显示：“Highest score is”

MOV DX,OFFSET ZUIDA

MOV AH,09H

INT 21H

POP DX

POP CX ;保护现场

MOV AL,BYTE PTR MAXSCORE ;将最大值从存储单元MAXSCORE中取出并在屏幕上显示

MOV AH,0

MOV CL,10H

MOV BH,AH

MOV DL,AL

ADD DL,30H

MOV AH,02H

INT 21H

MOV DL,BH

ADD DL,30H

MOV AH,02H

INT 21H

POPF

POP DX ;学生数出栈，保护现场

RET

MAX ENDP

AVERAGE PROC ;子程序：实现求平均数入口参数：DX、以SCORE为首的连续单元内的数据出口参数：存入AVERAGES的数据

LEA DI,SCORE

MOV CX,DX

CALL CHU2

PUSH BP

MOV BP,0

REPECT: MOV AX,[DI] ;将所有分数求和

CALL ZuanHuan

ADD BP,AX

INC DI

INC DI

LOOP REPECT

MOV AX,BP

POP BP

CALL ZHENGCHU

LEA DX,HuanHang ;屏幕上换行

MOV AH,9

INT 21H

LEA DX,PINJUN ;在屏幕上显示“Average score is”

MOV AH,9

INT 21H

MOV BH,0

MOV AVERAGES,BX ;将取整后的平均分存入存储单元AVERAGES

MOV AL,BYTE PTR AVERAGES ;将取整后的平均分显示到屏幕

MOV AH,0

MOV CL,10

DIV CL

MOV BL,AH

ADD DL,30H

MOV AH,02H

INT 21H

MOV DL,BL

ADD DL,30H

MOV AH,02H

INT 21H

POP BP

RETF

AVERAGE ENDP

ZuanHuan PROC ;组合BCD码转换为二进制数入口参数：AX 出口参数：AX

PUSH CX

PUSHF

MOV AH,AL

MOV CL,4

SHR AH,CL

AND AL,0FH

AAD

POPF

POP CX

RET

ZuanHuan ENDP

CHU2 PROC ;求出不小于“学生数/2”的整数，和平均分余数比较达到四舍五入效果入口参数：DX 出口参数：BP

PUSH DX

MOV AX,DX

MOV DL,2

DIV DL

CMP AH,1

JB S1

INC AL

S1:MOV AH,0

MOV BP,AX

POP DX

RET

CHU2 ENDP

ZHENGCHU PROC ;四舍五入求平均分入口参数：AX,DL 出口参数：BL

DIV DL

MOV BL,AL

MOV AL,AH

MOV AH,0

CMP AX,BP

JB S2

ADD BL,1

S2:RET ZHENGCHU ENDP

CODE ENDS

END BEGIN