求任意输入的一个数的阶乘?

[alpa]

求任意输入的一个数的阶乘,谁有这样的程序给我一个.谢谢!
如9的阶乘等于9*8*7*6*5*4*3*2*1,

[zuolihua]

任意输入的一个数的阶乘
不可能啊,你必须指定一个范围

[teal]

大概是这样吧，用41个字节得空间来保存结果
每乘一次，都从结果中取出两个字节，与bx得内容相乘
cx:
di: 记录低两字节向高两字节得进位情况
si: 结果的指针
bx: 乘数


data segment
result db 41 dup(0)

data ends
code segment
assume cs:code ,ds:data
mov ax,data
mov ds,ax

start: xor dx,dx
mov bx, n
mov ax, n
lop: mov si,offset result
mov di,0
mov cx,20
lop1: mov [si],dx
mul bx ;连乘:AX*BX，结果高位字存DX，低位字存AX
add ax,di
mov di,0
add [si],ax
jnc pass
mov di,1
pass:
mov ax,[si+2]
inc si
inc si
dec cx
loop lop1
dec bx
jnz lop

ja exit
jmp lop
exit: mov ah,4ch
int 21h
code ends
end start

[teal]

呵呵，忘了，n就是自己给定的，n也不要太大呀，当结果超过了41个字节能表示的范围也会溢出得
当然 可以把 结果再定义大一点

[xiaott]

茶茶哥，你的程序是死循环啊，如果方便的话请写上注释或用编译器调一下，谢谢！

[用户 昵称]

http://homepages.ius.edu/rwisman/c335/Html/Chapter5-1.htm

[xiaott]

;以下代码可满足求9的阶乘,若大于9应如何处理呢？
;如：10,11,……99,100,甚至更大，请高手指点！！
code segment
assume cs:code
start: xor dx,dx
mov cx,9
mov ax,2
mov bx,ax
inc bx
lop: mul bx ;连乘:AX*BX，结果高位字存DX，低位字存AX
inc bx
cmp bx,cx
ja exit
jmp lop
exit: mov ah,4ch
int 21h
code ends
end start