汇编 给定所有素数因子.doc

;要求，输入一个整数，求出其所有素因子，并表现为乘积方式，求因子的算法用子程序来实现
;例如：输入480，输出，480=2*2*2*2*2*3*5。

; 如何编译链接该程序
; 本程序需使用masm32来编译，若你的masm32安装在c盘，请设置如下环境变量
; set include=c:\masm32\include
; set lib=c:\masm32\lib
; set PATH=c:\masm32\bin;%PATH%

; 若本程序名为test.asm,则运行如下命令编译和链接和运行
;ml /c /coff test.asm
; link /subsystem:console test.obj
; test.exe

.386
.model flat,stdcall ; 32 bit memory model
option casemap :none ; case sensitive

include windows.inc
include user32.inc
includelib user32.lib
include kernel32.inc
includelib kernel32.lib

.data
inBuffer db 256 dup(?) ;输入缓冲区
outBuffer db 256 dup(?) ;输出缓冲区
number dd ? ;被分解的数
sqrtNum dd ? ;被分解的数的平方
dwLen dd ? ;字符串长度
tLen dd ? ;
hInput dd ? ;标准输入设备句柄
hOutput dd ? ;标准输入设备句柄

facTab dd 32 dup(?) ;number的所有素因子
facCount dd ? ;number的所有素因子的个数
currFac dd ? ;number的当前因子
.const
szFmtInOut db '%d',0
szFmtOut1 db 'Please input a number n(0<=n<=000000000)',13,10
szFmtOut2 db '%d=',0
szFmtOut4 db '*%d',0

.code

main proc far
start:
invoke GetStdHandle,STD_OUTPUT_HANDLE ; 获取控制台输出设备的句柄
mov hOutput,eax
invoke WriteConsole,hOutput,addr szFmtOut1,sizeof szFmtOut1,addr tLen,0

invoke GetStdHandle,STD_INPUT_HANDLE ; 获取控制台输入设备的句柄
mov hInput, eax
invoke ReadFile,hInput,addr inBuffer,sizeof inBuffer,ADDR tLen,NULL

lea esi, inBuffer
call myAtoi ;转化字符串为一个数
mov number, eax ;将这个数存入number

call mySqrt ;求number的平方根，
mov sqrtNum,eax ;存入sqrtNum

call dcomp ;调用因子分解子程序，分解后的因子个数存入facCount,各个因子存入facTab

call output_fac ;调用output_fac打印number的分解式
xor eax, eax
invoke ExitProcess,eax ;退出进程
ret
main endp

dcomp proc fac
push esi
push edi
push ebx

decompose_fac:
mov currFac,2 ;用第一个素因子2去试商
xor ecx,ecx ;素因子个数
mov ebx,number ;需要被分解的数

dcom_loop:
xor edx,edx
mov eax,ebx
cmp ebx,1 ;若需要被分解的数r为1，结束循环
jz dcom_exit

mov esi, currFac
div esi ;需要分解的数r除以currFac,商存入eax,余数存入edx
or edx,edx
jnz case_02 ;余数不为0，转case_02

case_01: ;余数为0
;case 1, ebx / currFac==0
mov edx, currFac ;当前素因子存入因子表facTab
mov facTab[ecx*4],edx
inc ecx ;素因子数+1

mov ebx, eax ;更新需分解的数r, r=r/currFac
jmp dcom_loop ;继续分解r

;case 2: ebx /currFac !=0
case_02: ;r % currNum !=0
mov edx,currFac
inc edx
mov currFac,edx ;当前因子+1
cmp edx,sqrtNum ;如当前因子大于number的平方根，则退出循环
jle dcom_loop

;currFac>sqrt(number)
mov facTab[ecx*4],ebx ;将带分解的数r存储素因子表
inc ecx ;素因子数+1

dcom_exit:
mov facCount,ecx ;素因子数存入facCount

pop ebx
pop edi
pop esi
ret
dcomp endp

; esi : in parameter, the address of string
; eax : out parameter,the value of string
; convert from a string to a integer
myAtoi proc fac
push ebx
push ecx

xor eax,eax
xor ecx,ecx
mov ebx,10

loop_read_char:
mov cl,byte ptr [esi] ; get a char from in_buff
sub cl,'0'
cmp cl,9
ja input_exit ;if the char <'0' or >'9', then jump out loop

mul ebx
add eax,ecx

inc esi
jmp loop_read_char

input_exit:
pop ecx
pop ebx
ret
myAtoi endp

; number: in parameter
; facTab: in paramter
; facCount: factor count
; hInstance: input device handle
output_fac proc far
push esi ;保存寄存器
push edi
push ebx

lea edi, outBuffer
invoke wsprintf, edi, addr szFmtOut2,number
add edi, eax

xor ebx,ebx
convert_loop:
mov eax,facTab[ebx*4]
or ebx,ebx
jnz case2

case1: ;第一个因子，直接输出“因子“到outBuffer
invoke wsprintf, edi,addr szFmtInOut,eax
add edi, eax ;edi the write pointer in next time ; 下次输出时的地址送如edi
jmp next_cmp

case2: ;非第一个因子，输出“×因子“到outBuffer
invoke wsprintf,edi,addr szFmtOut4,eax
add edi, eax ;edi the write pointer in next ; 下次输出时的地址送edi

next_cmp:
inc ebx
cmp ebx, facCount
jb convert_loop

print:
lea esi, outBuffer
sub edi, esi
mov dwLen,edi ;计算输出的字符串的长度，存入dwLen
invoke WriteConsole,hOutput,addr outBuffer,dwLen,addr tLen,0 ;在控制台输出

pop ebx ;恢复寄存器
pop edi
pop esi
ret
output_fac endp

; eax : in parameter, a 32 bit integer
; eax : out parameter, return sqrt(a),
mySqrt proc fac
push ecx ;保存寄存器
push ebx

mov ecx,eax
mov ebx,1 ;平方根的初始值为1

loop_mysqrt:
mov eax,ebx ;计算ebx * ebx,结果存入eax
mov edx,ebx
mul edx
cmp eax,ecx ;ebx的平方大于被开方数？

ja mysqrt_exit ;若平方根的平方大于被开方数，推出循环
inc ebx ;平方根+1
jmp loop_mysqrt

mysqrt_exit:
dec ebx ;因为ebx的平方大于被开方数，故此减1
mov eax,ebx

pop ebx ;恢复寄存器
pop ecx
ret
mySqrt endp

end main