汇编语言怎样进行精度计算（带小数点的计算）

以下是一个成绩管理系统的代码：
Code Segment
Assume CS:Code,DS:Code
CR          equ  000DH
LF          equ  000AH
KBBack      equ  0008H
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：显示指定地址（Str_Addr）的字符串
; 入口：
; Str_Addr＝字符串地址（要求在数据段）
; 用法: Output Str_Addr
; 用法举例：Output PromptStr
Output MACRO Str_Addr
lea dx,Str_Addr
mov ah,9
int 21h
EndM
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：输出回车换行
Output_CTLF proc Near
push  ax 
push  dx
mov  ah,02h
mov  dl,0dh 
int  21h
mov  dl,0ah
int  21h 
pop  dx
pop  ax
ret
Output_CTLF endp 
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：取光标位置
; 入口：无
; 出口：DH=行号，DL=列号
GetCursor  Proc Near
           PUSH  AX
           PUSH  BX
           PUSH CX
           XOR   BX,BX
           MOV   AH,3
           INT   10H
           MOV Cursor_Row,DH
           MOV Cursor_Col,DL
           POP CX
           POP   BX
           POP   AX
           RET
Cursor_Row DB ?
Cursor_Col DB ?
GetCursor  EndP
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：置光标位置
; 入口：Cursor_Row=行坐标; Cursor_Col: 列坐标)
SetCursor   Proc Near
           PUSH CX
           PUSH  BX
           PUSH  AX
           MOV   DH,Cursor_Row
           MOV   DL,Cursor_Col
           XOR   BX,BX
           MOV   AH,2
           INT   10H
           POP   AX
           POP   BX
           POP CX
           RET
SetCursor  EndP
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：键盘输入一个指定位数的十进制数字，将其转换成二进制数并保存在指定的内存单元。
; 入口：@@Digits=数字位数；di=保存输入的数字首地址
;       @@Type_Data=保存的数据类型，B=字节类型，W=字类型。
; 出口：转换后的二进制数保存在di所指的单元
Input_Digit Proc Near
push dx
push cx
push bx
push di
lea di,@@Save_Tmp
push di
cld
mov cl,@@Digits
xor ch,ch
push cx
@@Input: call GetCursor ;取光标位置
mov ah,1 ;从键盘接受一个字符
int 21h
cmp al,CR ;若键入的是回车，已经键入的数字不足N位
jz @@ASC_Dec ;转去处理已经键入的数字
cmp al,KBBack
jz @@KB_Back ;若是回空键，重新输入
cmp al,'0'
jb @@KBBack ;若低于数字'0'，重新输入
cmp al,'9'
ja @@KBBack ;若低于数字'9'，重新输入
jmp @@Save_Dig
@@KB_Back: dec Cursor_Col
inc cx
dec di
@@KBBack: call SetCursor ;置光标位置
jmp @@Input
@@Save_Dig: and al,0fh ;转换成二进制数
stosb ;保存
loop @@Input ;接受下一个数字
@@ASC_Dec: mov ax,cx
pop cx
pop si
sub cx,ax ;实际输入的数字位数
xor bp,bp
xor dx,dx
xor ax,ax
jcxz @@Save_Ret ;若直接回车，没有输入任何数字，按输入'0'处理
dec cx ;实际输入的数字位数减1，准备把输入的这一串数字转换成二进制数
jcxz @@One_Digit ;若输入的数字只有一位，转去直接保存这个二进制数
mov bx,10
@@Mul_Ten: lodsb
cbw
add ax,bp
mul bx
mov bp,ax
loop @@Mul_Ten
@@One_Digit:lodsb
cbw
add ax,bp
@@Save_Ret: pop di
cmp @@Type_Data,'B' ;字节类型？
jz $+5
stosw
jmp $+3
stosb
pop bx
pop cx
pop dx
ret
@@Digits db ? ;十进制数字位数
@@Type_Data db 'B' ;保存的数据类型。B=字节类型，W=字类型
@@Save_Tmp db 16 dup(?)
Input_Digit EndP
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：把AX中的二进制无符号数转换成显式的十进制ASCII码，并送显示屏显示
; 入口：AX=二进制数 
; 出口：在当前光标位置显示转换后的ASCII码数字 
Dec_ASCII  Proc  Near 
push  dx 
push  bx 
push  di
mov  bx,10 
lea  di,@@Temp_Save[6] 
mov  byte ptr [di],'$' 
dec  di 
@@Divide:  xor  dx,dx 
div  bx 
or  dl,30h 
mov  [di],dl 
dec  di 
test  ax,0ffffh 
jnz  @@Divide 
inc  di 
push  di 
pop  dx 
mov  ah,9 
int  21h 
pop  di 
pop  bx 
pop  dx 
ret 
@@Temp_Save db  7 dup(?)
Dec_ASCII  EndP
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
N equ 31 ;最多成绩数
Students db ? ;人数
Score_SUM dw ? ;总分
Score_Aver db ? ;平均分
Score_Tab   db    6 dup(0) ; 各分数段计数
prompt_Str db '***************    Please input the scores:    *************** ',CR,LF,'$'
prompt_Str1 db '****Students: $' ;提示显示人数
prompt_Str2 db '****Sums: $' ;提示显示总分
prompt_Str3 db '****Average: $' ;提示显示平均分
prompt_Str4 db '****excellence : $' ;提示显示优秀人数
prompt_Str5 db '****All right: $' ;提示显示良好人数
prompt_Str6 db '****Midding: $' ;提示显示中等人数
prompt_Str7 db '****Pass: $' ;提示显示及格人数
prompt_Str8 db '****Flunk: $' ;提示显示不及格人数
Press_Key db   13,10,13,10,'Press any key to exit...$' 
Start:   push cs
pop ds
push cs
pop es ;使数据段、附加段与代码段同段
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 输入成绩
Output prompt_Str ;提示输入成绩
mov @@Digits,3 ;十进制数字位数
mov @@Type_Data,'B' ;保存的数据类型。B=字节类型，W=字类型
lea di,List_Score ;成绩存放地址
mov cx,N
Input_Score:call Input_Digit ;输入成绩
test al,0ffh
jz @@Statics
call Output_CTLF ;输出一个回车、换行
loop Input_Score
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 计算总人数，总分，平均分值，显示优秀，良好，中等，及格和不及格人数。
@@Statics: mov ax,di
sub ax,offset List_Score
dec ax
mov cx,ax ;CX=输入的实际人数
test cx,0ffffh
jz Exit_Proc ;若未输入任何信息，直接结束程序
mov Students,cl ;保存人数
lea si,List_Score
xor bx,bx ;总分初值
mov   dl,10 ; 用于除10
Read_Score: lodsb ; 提取成绩
    xor ah,ah
    add bx,ax ;累计总分
    div   dl ; 除10
    cmp   al,5 ; >5，及格
    jg    $+4
    mov   al,5 ; <=5，不及格
sub   al,5 ; 减5，分数段计数地址偏移量
    cbw ;
    push  ax
    pop   di
    inc   Score_Tab[di] ; 计数增1
    loop  Read_Score ; 循环，统计下一个成绩
mov Score_SUM,bx ;保存总分
mov ax,bx
div Students
mov Score_Aver,al ;保存平均分
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 显示输出总人数，总分，平均分值，显示优秀，良好，中等，及格和不及格人数。
Output prompt_Str1 ;提示显示人数
mov al,Students ;读取人数
xor ah,ah
call Dec_ASCII ;显示人数
call Output_CTLF ;输出一个回车、换行
Output prompt_Str2 ;提示显示总分
mov ax,Score_SUM ;读取总分
call Dec_ASCII ;显示总分
call Output_CTLF ;输出一个回车、换行
Output prompt_Str3 ;提示显示平均分
mov al,Score_Aver ;读取平均分
xor ah,ah
call Dec_ASCII ;显示平均分
call Output_CTLF ;输出一个回车、换行
lea si,Score_Tab[5] ; 各分数段计数地址
std
Output prompt_Str4 ;提示显示优秀人数
lodsb ;读取100分人数
mov ah,al
lodsb ;读取优秀人数
add al,ah
xor ah,ah
call Dec_ASCII ;显示优秀人数
call Output_CTLF ;输出一个回车、换行
Output prompt_Str5 ;提示显示良好人数
lodsb ;读取良好人数
xor ah,ah
call Dec_ASCII
call Output_CTLF ;输出一个回车、换行
Output prompt_Str6 ;提示显示中等人数
lodsb ;读取中等人数
xor ah,ah
call Dec_ASCII ;显示中等人数
call Output_CTLF ;输出一个回车、换行
Output prompt_Str7 ;提示显示及格人数
lodsb ;读取及格人数
xor ah,ah
call Dec_ASCII ;显示及格人数
call Output_CTLF ;输出一个回车、换行
Output prompt_Str8 ;提示显示不及格人数
lodsb ;读取不及格人数
xor ah,ah
call Dec_ASCII ;显示不及格人数
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Output Press_Key
mov ah,1
int 21h
Exit_Proc: mov ah,4ch ;结束程序
int 21h
List_Score: ;学生成绩存储区
Code ENDS
END  Start ;编译到此结束

以上程序在命令行输入时只能输入整数型数据，不能输入带小数点的数据，导致平均数的计算结果不能有小数，请高手帮我分析一下，看那里需要改进，最好给出改正后的程序。谢谢啦！

4 个解决方案

#1

两种方法，用整数指令模拟带小数点的，叫定点小数。还有直接用浮点指令的。
第一种的实现比较简单，但精度不高，第二种学起来比较复杂，但精度高。
第一种直接搜索“定点小数”就行了，第二种搜索“FPU”

#2

建议直接用80387浮点数指令，很好用的。
需要注意的是不要搞得很复杂，否则很容易就会晕掉的……
哈哈……

#3

你可以调用浮点指令

#4

你这样的问题，涉及到的小数点没多少。建议：

1.专门写个处理输入小数点的

2.对于输入结果在内部都放大100倍运算。比如:97.13 内部都是当作 9713计算

3.输出的时候进行调整 加上小数点