org 100h

pname db 4,?,4 dup (?) pnumb db 12,?,12 dup (?) data ends

code segment

assume cs:code, ds:data main proc far push ds sub ax,ax push ax mov ax,data mov ds,ax mov es,ax next1:

call inname call intele mov al,num dec al mov bl,16 mul bl

lea di,plist add di,ax mov dl,num add dl,30h

mov byte ptr[di],dl mov cx,3

lea si,pname+2 rep movsb mov cx,11

lea si,pnumb+2 rep movsb

cmp byte ptr num,9 jb next1 next2: call print ret main endp

inname proc near lea dx,mess1 mov ah,09

int 21h ;input name(XXX) lea dx,pname mov ah,10

int 21h ;get name

inc byte ptr num ret inname endp

intele proc near lea dx,mess2 mov ah,09

int 21h ;input phone(11) lea dx,pnumb mov ah,10

int 21h ;get phone numb ret intele endp

print proc near next3: lea dx,mess3 mov ah,09

int 21h ;input serial:(X) mov ah,1

int 21h cmp al,30h jle exit cmp al,39h jg exit sub al,30h cmp al,num jg exit pdisp: dec al mov bl,16 mul bl

lea dx,plist add dx,ax mov ah,9 int 21h jmp next3 exit: lea dx,mess4 mov ah,9 int 21h ret print endp code ends

end main

6.12对十名同学的期末考试成绩进行统计，使用结构变量定义学生成绩记录并预赋值，使用子程序A统计每个学生的总分，使用子程序B显示输出每个学生的姓名和总分，对于总分应使用子程序C把总分的数值转为字符显示。

学生成绩记录格式：

字段 类型 长度 学号， 字符型， 8字节 姓名， 字符型， 3字节 数学， 数值型， 2字节 物理， 数值型， 2字节 化学， 数值型， 2字节 语文， 数值型， 2字节 英语， 数值型， 2字节 总分， 数值型， 2字节 备用， 字符型， 3字节

为便于显示输出，问题简化为：学生成绩只设2门课，每门课分值最高为5分 参考程序： data segment stm struc

bname db 'aaaaaa$' c1 db ? c2 db ? c3 db 0 stm ends

st1 stm <'aaaaaa$',5,3,0> st2 stm <'bbb $',2,4,0> st3 stm <'ccc $',2,3,0> st4 stm <'ddd $',5,3,0> st5 stm <'eeeee $',2,4,0> st6 stm <'ffff $',2,4,0> st7 stm <'gg $',5,3,0> st8 stm <'hhh $',3,4,0> st9 stm <'iiii $',3,4,0> st10 stm <'kkk $',2,3,0> data ends code segment

assume cs:code,ds:data main proc far mov ax,data mov ds,ax call aa call bb mov ah,4ch int 21h main endp

aa proc near mov cx,10

mov bx,offset st1

k: mov al,[bx].c1 add al,[bx].c2 mov [bx].c3,al add bx,10 loop k ret aa endp bb proc near mov cx,10

mov bx,offset st1 j: mov dx,bx mov ah,9 int 21h mov dl,',' mov ah,2 int 21h

mov dl,[bx].c3 add dl,30h mov ah,2 int 21h add bx,10 call hh loop j ret bb endp hh proc near mov ah,2 mov dl,13 int 21h mov ah,2 mov dl,10 int 21h ret hh endp code ends end main