Деление чисел - Assembler (223561)

Узнай цену своей работы

Формулировка задачи:

Надо найти результат деления двух целых пятизначных чисел, которые представлены в десятичном формате. Числа ввести с клавиатуры, результат вывести в виде Z = XXX . XXX (целая часть.дробная часть). Написал ввод с клавиатуры и некое подобие вывода на экран, а вот с делением пятизначных не очень понимаю, ведь у нас число может быть до 65535, а если пользователь введет 99999? В общем, помогите, пожалуйста.
Листинг программы 
  1. .model small                  
  2. .stack 16h                    
  3. .data  
  4. msgA db 'Enter A = ', '$ '
  5. msgB db 13,10,'Enter B = ', '$ '              
  6. msg label byte              ;массив для ввода символов
  7. maxnum db 6             ;длина массива
  8. reallen db ?
  9. numfld db 5 dup(30h)
  10. mult10 dw 0
  11. ascval db 10 dup(30h),13,10,'$'     ;массив символов для вывода*
  12.   x  dw  ?              ;результат
  13.   a  dw  0                             ;коэффициенты
  14.   b  dw  0
  15.   z dw 0
  16. .code                        
  17. start: mov ax, @data          
  18.        mov ds, ax   
  19.        mov ah,9
  20.        lea dx, msgA
  21.        int 21H; просим ввести A
  22.  
  23.        mov ah,0AH
  24.        lea dx,msg
  25.        int 21H   
  26.        call asbin
  27.        mov ax,z
  28.        mov a,ax ; вводим A
  29.  
  30.        mov ah,9
  31.        lea dx, msgB
  32.        int 21H; просим ввести И
  33.  
  34.        mov ah,0AH
  35.        lea dx,msg
  36.        int 21H   
  37.        call asbin
  38.        mov ax,z
  39.        mov b,ax ; вводим B
  40.  
  41.       ;здесь должны быть вычисления
  42.  
  43.        call outp              ; вывод результата на экран 
  44.      
  45.        mov ah, 4ch            
  46.        int 21h     
  47.                   
  48. asbin proc ; запись с клавиатуры
  49.         
  50.        mov mult10,0001
  51.        mov z,0
  52.        mov cx,10
  53.        lea si,numfld-1
  54.        mov bl,reallen
  55.        sub bh,bh
  56. b20:
  57.        mov al,[si+bx]
  58.        and ax,000fh
  59.        mul mult10
  60.        add z,ax
  61.        mov ax,mult10
  62.        mul cx
  63.        mov mult10,ax
  64.        dec bx
  65.        jnz b20
  66.        ret
  67. asbin  endp
  68.  
  69. outp proc       ; Начало тела процедуры "вывод"
  70.        mov cx,10                ; система счисления
  71.        lea si, ascval+9         ; Установка указателя на конец массива ascval
  72.        mov ax, x                ; Результат х занести в ax
  73. c20:   cmp ax,10                ; Сравнить результат с числом 10
  74.        jb c30                   ; Если меньше то преобразовывать не надо
  75.        xor dx,dx                ; Очистка регистра dx для команды деления
  76.        div cx                   ; Делим на 10
  77.        or dl, 30h               ; Преобразование остатка к ASCII коду
  78.        mov [si], dl             ; Занесение остатка от деления в массив ascval
  79.        dec si                   ; Перемещение указателя массива на 1 байт влево
  80.        jmp c20                  ; Переход на начало для преобразования след. цифры
  81. c30:   or al, 30h               ; Если остаток меньше 10, то вывод результата на экран
  82.        mov [si], al             ; дисплея командами (см. ниже)
  83.        lea dx, ascval           ; Загрузка адреса массива
  84.        mov ah, 9                ; Вызов 9-ой функции MS-DOS 
  85.        int 21h
  86.        ret                      ; Возврат в головную программу из п/программы
  87. outp endp               ; Конец процедуры
  88. end start
Вот уже даже с делением, но больше 32000 он не принимает
Листинг программы 
  1. .model small                  
  2. .stack 16h                    
  3. .data  
  4. msgA db 'Enter A = ', '$ '
  5. msgB db 13,10,'Enter B = ', '$ '
  6.  
  7. msg5 db 13,10,'Result X = ', '$ '                
  8. msg label byte              ;массив для ввода символов
  9. maxnum db 6             ;длина массива
  10. reallen db ?
  11. numfld db 5 dup(30h)
  12. mult10 dw 0
  13. ascval db 10 dup(30h),13,10,'$'     ;массив символов для вывода*
  14.   x  dw  ?              ;результат
  15.   a  dw  0                             ;коэффициенты
  16.   b  dw  0
  17.   z dw 0
  18. .code                        
  19. start: mov ax, @data          
  20.        mov ds, ax   
  21.        mov ah,9
  22.        lea dx, msgA
  23.        int 21H;
  24.  
  25.        mov ah,0AH
  26.        lea dx,msg
  27.        int 21H   
  28.        call asbin
  29.        mov ax,z
  30.        mov a,ax
  31.  
  32.        mov ah,9
  33.        lea dx, msgB
  34.        int 21H;
  35.  
  36.        mov ah,0AH
  37.        lea dx,msg
  38.        int 21H   
  39.        call asbin
  40.        mov ax,z
  41.        mov b,ax
  42.  
  43.        mov ah,9
  44.        lea dx, msg5
  45.        int 21H;       
  46.  
  47.        mov bx, dx
  48.        mov cx, ax             
  49.  
  50.        mov ax, a   
  51.     mov dx,0       
  52.        idiv b                 
  53.        mov x, ax
  54.  
  55.        call outp              ; вывод результата на экран 
  56.      
  57.        mov ah, 4ch            
  58.        int 21h     
  59.                   
  60. asbin proc
  61.         
  62.        mov mult10,0001
  63.        mov z,0
  64.        mov cx,10
  65.        lea si,numfld-1
  66.        mov bl,reallen
  67.        sub bh,bh
  68. b20:
  69.        mov al,[si+bx]
  70.        and ax,000fh
  71.        mul mult10
  72.        add z,ax
  73.        mov ax,mult10
  74.        mul cx
  75.        mov mult10,ax
  76.        dec bx
  77.        jnz b20
  78.        ret
  79. asbin  endp
  80. outp proc       ; Начало тела процедуры "вывод"
  81.        mov cx,10                ; система счисления
  82.        lea si, ascval+9         ; Установка указателя на конец массива ascval
  83.        mov ax, x                ; Результат х занести в ax
  84. c20:   cmp ax,10                ; Сравнить результат с числом 10
  85.        jb c30                   ; Если меньше то преобразовывать не надо
  86.         xor dx,dx   ; Очистка регистра dx для команды деления
  87.        div cx                   ; Делим на 10
  88.        or dl, 30h               ; Преобразование остатка к ASCII коду
  89.        mov [si], dl             ; Занесение остатка от деления в массив ascval
  90.        dec si                   ; Перемещение указателя массива на 1 байт влево
  91.        jmp c20                  ; Переход на начало для преобразования след. цифры
  92. c30:   or al, 30h               ; Если остаток меньше 10, то вывод результата на экран
  93.        mov [si], al             ; дисплея командами (см. ниже)
  94.        lea dx, ascval           ; Загрузка адреса массива
  95.        mov ah, 9                ; Вызов 9-ой функции MS-DOS 
  96.        int 21h
  97.        ret                      ; Возврат в головную программу из п/программы
  98. outp endp               ; Конец процедуры
  99. end start
Теперь до 65000
Листинг программы 
  1. .model small                  
  2. .stack 16h                    
  3. .data  
  4. msgA db 'Enter A = ', '$ '
  5. msgB db 13,10,'Enter B = ', '$ '
  6.  
  7. msg5 db 13,10,'Result X = ', '$ '                
  8. msg label byte              ;массив для ввода символов
  9. maxnum db 6             ;длина массива
  10. reallen db ?
  11. numfld db 5 dup(30h)
  12. mult10 dw 0
  13. ascval db 10 dup(30h),13,10,'$'     ;массив символов для вывода*
  14.   x  dw  ?              ;результат
  15.   a  dw  0                             ;коэффициенты
  16.   b  dw  0
  17. c dw 1000
  18.   z dw 0
  19. u dw 0
  20.  
  21. .code                        
  22. start: mov ax, @data          
  23.        mov ds, ax   
  24.        mov ah,9
  25.        lea dx, msgA
  26.        int 21H;
  27.  
  28.        mov ah,0AH
  29.        lea dx,msg
  30.        int 21H   
  31.        call asbin
  32.        mov ax,z
  33.        mov a,ax
  34.  
  35.        mov ah,9
  36.        lea dx, msgB
  37.        int 21H;
  38.  
  39.        mov ah,0AH
  40.        lea dx,msg
  41.        int 21H   
  42.        call asbin
  43.        mov ax,z
  44.        mov b,ax
  45.  
  46.        mov ah,9
  47.        lea dx, msg5
  48.        int 21H;       
  49.  
  50.        mov bx, dx
  51.        mov cx, ax             
  52.  
  53.        xor dx,dx
  54.        mov ax, a         
  55.        idiv b                 
  56.        mov x, ax
  57. ;mov ax,dx
  58. ;imul c
  59. ;idiv x
  60. ;mov u,ax
  61.  
  62.        call outp              ; вывод результата на экран            
  63.      
  64.        mov ah, 4ch            
  65.        int 21h     
  66.                   
  67. asbin proc
  68.         
  69.        mov mult10,0001
  70.        mov z,0
  71.        mov cx,10
  72.        lea si,numfld-1
  73.        mov bl,reallen
  74.        sub bh,bh
  75. b20:
  76.        mov al,[si+bx]
  77.        and ax,000fh
  78.        mul mult10
  79.        add z,ax
  80.        mov ax,mult10
  81.        mul cx
  82.        mov mult10,ax
  83.        dec bx
  84.        jnz b20
  85.        ret
  86. asbin  endp
  87. outp proc       ; Начало тела процедуры "вывод"
  88.        mov cx,10                ; система счисления
  89.        lea si, ascval+9         ; Установка указателя на конец массива ascval
  90.        mov ax, x                ; Результат х занести в ax
  91. c20:   cmp ax,10                ; Сравнить результат с числом 10
  92.        jb c30                   ; Если меньше то преобразовывать не надо
  93.         xor dx,dx   ; Очистка регистра dx для команды деления
  94.        div cx                   ; Делим на 10
  95.        or dl, 30h               ; Преобразование остатка к ASCII коду
  96.        mov [si], dl             ; Занесение остатка от деления в массив ascval
  97.        dec si                   ; Перемещение указателя массива на 1 байт влево
  98.        jmp c20                  ; Переход на начало для преобразования след. цифры
  99. c30:   or al, 30h               ; Если остаток меньше 10, то вывод результата на экран
  100.        mov [si], al             ; дисплея командами (см. ниже)
  101.        lea dx, ascval           ; Загрузка адреса массива
  102.        mov ah, 9                ; Вызов 9-ой функции MS-DOS 
  103.        int 21h
  104.        ret                      ; Возврат в головную программу из п/программы
  105. outp endp               ; Конец процедуры
  106. end start

Решение задачи: «Деление чисел»

textual
Листинг программы 
  1. asbin proc ; Процедура ввода с клавиатуры
  2.        mov mult10,0001
  3.        mov z,0
  4.        mov cx,10 
  5.        lea si,numfld-1
  6.        mov bl,reallen
  7.        sub bh,bh
  8. b20:
  9.        mov al,[si+bx]
  10.        and ax,000fh    
  11.        mul mult10
  12.        cmp ax,'-'   ;если минус, то
  13.        jne b30
  14.        mov dh,1     ;устанавливаем признак минуса
  15.        sub ax,'-'
  16.        jmp b20
  17. b30:   add z,ax
  18.        mov ax,mult10
  19.        mul cx
  20.        mov mult10,ax
  21.        dec bx
  22.        jnz b20
  23.        test dh,dh   ;если установлен признак отрицательного числа
  24.        jne b40
  25.        neg z        ;то меняем знак
  26. b40:   ret
  27. asbin  endp

Объяснение кода листинга программы

  1. Процедура ввода с клавиатуры.
  2. Переменная mult10 содержит значение 10.
  3. Переменная z содержит результат деления.
  4. Переменная cx содержит количество разрядов числа.
  5. Переменная si содержит адрес поля ввода числа.
  6. Переменная bl содержит значение реального числа.
  7. Переменная bh содержит знак реального числа.
  8. Переменная ax содержит результат операции.
  9. Переменная dh содержит признак отрицательного числа.
  10. Переменная numfld содержит адрес поля ввода числа.
  11. При выходе из процедуры ввода, значение переменной z обновляется.
  12. Если введенное число отрицательное, то устанавливается признак отрицательного числа.
  13. Результат деления сохраняется в переменной z.
  14. Если введенное число не является числом, то процедура продолжается до тех пор, пока не будет введено число.
  15. Результат умножения числа на 10 сохраняется в переменной ax.
  16. Переменная mult10 обновляется значением ax.
  17. Уменьшается значение переменной bx на единицу.
  18. Если значение переменной bx больше нуля, то процедура продолжается до тех пор, пока не будет введено число.
  19. Если введенное число является отрицательным, то результат деления изменяется на противоположный.
  20. Конец процедуры ввода с клавиатуры.

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.917 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы