PDA

View Full Version : سوال: برنامه فاكتوريل به زبان اسمبلي



msaeedd
شنبه 08 آبان 1389, 09:26 صبح
سلام كسي برنامه فاكتوريل به زبان اسمبلي رو داره؟
فوري فوري
لازم دارم

msaeedd
شنبه 08 آبان 1389, 12:18 عصر
كسي ميتونه كمكم كنه؟
عجله ايه

Mokhless
شنبه 08 آبان 1389, 12:50 عصر
كسي ميتونه كمكم كنه؟
عجله ايه
درخواست کد ممنوع !!! :عصبانی++:
اینو الان نوشتم , فاکتوریل عدد 5 رو حساب میکنه ! دیگه ورودی و بزک کردنش با خودت ! در ضمن واسه عددای بزرگتر فسسش در میاد :قهقهه:! نهایتاَ تا 7-8 جواب میده !


stseg segment 'stack'
db 64 dup(?)
stseg ends
data segment
fact dw 1
asciinum db 5 dup(?),'$'
data ends
cdseg segment 'code'
assume ss:stseg,ds:data,cs:cdseg
main proc far
mov ax,data
mov DS,ax
;/////////////////////////////////////////////////////////////////
lea di,fact
mov cx,5
more:
mov ax,[di]
mul cx
mov [di],ax
loop more
mov si,4
mov bl,0ah
mov cx,3
mov ax,[di]
num2asc :
div bl
or ah,30h
mov asciinum[si],ah
dec si
xor ah,ah
loop num2asc
mov ah,09h
lea dx,asciinum
int 21h

mov ax,4c00h
int 21h
main endp
cdseg ends
end main
sub