輸入一個正數，該數減去遞增奇數（從1開始）直至小于等于零為止，計算該數減去奇數的個數

程序運行：

?

代碼：

datas segmentNUM dw 17ANS dw 0NUM_string db 0ffh, 0 ,100 dup(?)inputNUM db 'input NUM=$'error_number db 0dh,0ah,'error number$'outputANS db 0dh,0ah,'ANS=$'datas endsstacks segment stackdb 100h dup(?)stacks endscodes segmentassume cs:codes,ds:datas,ss:stacks main proc far start:push dsmov ax,0hpush axmov ax,datas ;初始化dsmov ds,ax;輸入a提示lea dx,inputNUMmov ah,9int 21h;輸入alea dx,NUM_stringmov ah,10int 21h;a轉成十進制數lea si,NUM_string+1call translate_to_numbermov NUM,ax;mov ax,NUMmov bx,1 mov cx,0 s:sub ax,bx ;減去奇數inc cx add bx,2 ;奇數加2cmp ax,0 ;判斷ax是否大于0jg s ;若大于0，循環繼續mov ANS,cx lea dx,outputANS ;輸出ANSmov ah,9int 21hmov ax,ANScall decimalretmain endp;字符串轉換為十進制數 translate_to_number proc near ;si:lenght firstpush cx push dx push bx push si push di mov di,10mov ax,0mov cl,[si]mov ch,0 cmp cx,0 jz errinc sitran:mov bl,[si]inc sicmp bl,'0'jb errcmp bl,'9'ja err sub bl,30hxor bh,bh mul di add ax,bx loop tranjmp exiterr:lea dx,error_numbermov ah,9int 21h mov ax,4c00hint 21hexit:pop di pop si pop bx pop dxpop cx ret translate_to_number endpdecimal proc nearpush axpush cxpush dxpush bxcmp ax,0jge plusmov bx,axmov dl,'-'mov ah,2int 21hneg bxmov ax,bxplus:mov cx,0mov bx,10de:xor dx,dxdiv bxpush dxinc cxcmp ax,0jnz dede1:pop dxadd dl,30hmov ah,2 int 21h loop de1 pop bxpop dxpop cxpop axret decimal endp codes endsend main

?

總結

以上是生活随笔為你收集整理的汇编语言（二十二）之统计减去奇数的个数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。