/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 969
от 05.02.2008, 19:05

Вопрос № 120.924

Написать программу перевода чисел в 10-ю, 16-ю, 2-ю системы исчисления

Отправлен: 30.01.2008, 21:11 Вопрос задала: Балковая Наталья Юриевна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 12)

Отвечает: Boriss Здравствуйте, Балковая Наталья Юриевна! Вот посмотрите вариант - число для преобразования num Все оформлено в виде подпрограмм, параметры передаются через стек - так удобнее потом из выводить. Сначала число загружается, а потом адрес строки Давайте в минифоруме обсуждать, что Вам не понятно Приложение: .model tiny LOCALS @@ .code .386 org 100h start: mov ax, 3 int 10h push num lea dx, str_dec push dx CALL toDEC mov ah, 9 int 21h CALL crlf push num lea dx, str_bin push dx CALL toBIN mov ah, 9 int 21h CALL crlf push num lea dx, str_hex push dx CALL toHEX mov ah, 9 int 21h int 20h toDEC proc push bp mov bp, sp push ax push bx push cx push dx push di mov ax, [bp+6] mov di, [bp+4] cld xor cx, cx mov bx, 10 @1: xor dx, dx div bx push dx inc cx or ax, ax jnz @@1 @2: pop ax add al, '0' stosb LOOP @@2 mov al, '$' stosb pop di pop dx pop cx pop bx pop ax pop bp ret 4 toDEC endp toBIN proc push bp mov bp, sp push ax push bx push cx push di cld mov bx, [bp+6] mov di, [bp+4] mov cx, 16 @1: mov al, '0' rol bx, 1 jnc @@2 inc al @2: stosb LOOP @@1 mov al, '$' stosb pop di pop cx pop bx pop ax pop bp ret 4 toBIN endp toHEX proc push bp mov bp, sp push ax push bx push cx push di push si mov si, [bp+6] ; copy of number mov di, [bp+4] mov bx, 0F000h ; mask mov cx, 12 ; shifts cld @1: mov ax, si and ax, bx shr ax, cl ; magical sequence cmp al, 10 sbb al, 69h das stosb shr bx, 4 sub cx, 4 or bx, bx jnz @@1 mov al, '$' stosb pop si pop di pop cx pop bx pop ax pop bp ret 4 toHEX endp CRLF proc push ax mov al, 13 int 29h mov al, 10 int 29h pop ax ret CRLF endp ;============= num dw 1234h str_dec db 32 dup ('0') str_bin db 32 dup (0) str_hex db 32 dup (0) end start --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 31.01.2008, 14:04

Отвечает: Зенченко Константин Николаевич Здравствуйте, Балковая Наталья Юриевна! Выводом числа в различных системах занимается одна подпрограмма OutNumber, на входе в АХ само число, в SI система счисления. При вводе числа программа реагирует только на цифры Удачи! Приложение: ;tasm pr ;tlink pr /t MASM;IDEAL or MASM MODEL tiny .186 CODESEG org 100h ;перходим в 3-ий текстовый режим start: mov ax,3 int 10h ;приглашаем к вводу mov ah,9 mov dx,offset dbEnter int 21h ;сбрасываем вводимое число xor di,di ;вводим без эхо NoNumber: mov ah,07 int 21h ;проверяем зкончился ли ввод cmp al,13 jz StopNumber ;все что не цифры отбрасываем cmp al,'0' jb NoNumber cmp al,'9' ja NoNumber ;выводим нажатую цифру push ax int 29h pop ax ;переводим код символа в число and ax,0fh ;меняем местами 2-а регистра xchg di,ax ;ранее введенное число умножает на 10 mov bx,10 mul bx ;и теперь суммируем с последним введенным числом add di,ax jmp short NoNumber ;начинаем вывод в различных системах StopNumber: mov ax,di;копируем выводимое число mov si,2;назначаем систему счисления call OutNumber ;тоже для 8-ой mov ax,di mov si,8 call OutNumber ;тоже для 10-ой mov ax,di mov si,10 call OutNumber ;тоже для 16-ой mov ax,di mov si,16 ;выход из программы происходит по команде ret когда отработает подпрограмма ;вывод числа и системы счисления ;запоминаем в стеке число и ситему счисления OutNumber: push ax push si ;переводим строку mov al,13 int 29h mov al,10 int 29h ;выводим систему счисления в 10-ой системе mov ax,si mov si,10 ;вывод числа call isNumber ;выводим сообщение System mov ah,09 mov dx,offset dbSystem int 21h ;востанавливаем систему счисления и само число pop si pop ax ;сбрасываем счетчик isNumber: xor cx,cx ;получаем младшую цифру div10: xor dx,dx div si ;и запоминаем в стеке push dx ;считаем кол-во цмфр inc cx ;если АХ=0, то выходим из цикла деления or ax,ax jnz div10 ;начинаем вывод числа в нужном порядке out10: pop ax ;преобразовываем цифру в символ or al,30h ;проверяем систему больше 10-ой cmp al,'9' jbe no16 ;пропускаем знаки между "9" и "А" add al,7 ;выводим цифру no16: int 29h ;все делаем в цикле loop out10 ret dbEnter db 13,10,'Enter number:$' dbSystem db ' system :$' end start --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 31.01.2008, 15:31

Вопрос № 121.020

=======================ОЧЕНЬ НУЖНО=================== Если вам не трудно то напишыте мне кусок кода который вычисляет длинну строчки которая заканчивается на '$'

Отправлен: 31.01.2008, 13:33 Вопрос задал: Сашко (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Сашко! Вот код: xor cx,cx mov si,offset dbString cld isLoop: lodsb inc cx cmp al,'$' jnz isLoop dec cx На выходе в СХ длина строки без учета знака "$" Удачи! --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 31.01.2008, 13:41 Оценка за ответ: 5 Комментарий оценки: БЛАГОДАРЮ БЛАГОДАРЮ БЛАГОДАРЮ БЛАГОДАРЮ БЛАГОДАРЮ БЛАГОДАРЮ БЛАГОДАРЮ БЛАГОДАРЮ

Вопрос № 121.030

плизз вот ищо одна задачка но ее уже нужно полностью написать (a+b)/(c-d) типы переменных целые

Отправлен: 31.01.2008, 14:34 Вопрос задал: Сашко (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Boriss Здравствуйте, Сашко! Посмотри такой вариант. Использую ввод и вывод только положительных чисел. Это, конечно, недостаток, но ... тогда уж писать надо Можно эффективно решить задачу с помощью математического сопроцессора Приложение: ; Title NEW .model tiny LOCALS @@ JUMPS .386 .code org 100h start: push offset a CALL inNum push offset b CALL inNum push offset c CALL inNUM push offset d CALL inNum mov bx, c sub bx, d or bx, bx jnz @@1 lea dx, isNULL mov ah, 9 int 21h jmp @@exit @1: mov ax, a add ax, b xor dx, dx div bx mov res, ax push res lea dx, str_res push dx CALL toDEC mov ah, 9 int 21h CALL CRLF @exit: lea dx, press mov ah, 9 int 21h mov ah, 8 int 21h int 20h ;===================== ; пишу комментарии только к это подпрограмме inNum proc ; Ввод десятир. и по фиксированному адресу в num ; сохраняем используемые регистры - всегда лучше это делать push bp mov bp, sp push ax push bx push dx push si push di ; для сохранения lea dx, prompt ; вывод приглашения на ввод числа mov ah, 9 ; 9-я функция MS-DOS выводит строку, от DS:DX до символа $ int 21h xor si, si ; здесь будет аккумулятор mov bx, 10 ; алгоритм такой: что было умножаем на 10 (BX) и ; прибавляем новое число ; ввод следующего числа @1: mov ah, 8 ; ввод символа без эхо int 21h ; результат в AL cmp al, 13 ; если ENTER, то закончили ввод je @@ret cmp al, '0' ; пропускаем все символы меньше 0 jb @@1 cmp al, '9' ; пропускаем все символы больше 9 ja @@1 int 29h ; показываем введенное число sub al, '0' ; переводим в число xor ah, ah ; в AH остался номер функции - а нам нужно, чтобы ; весь AX был введенным числом mov di, ax ; сохранил число. Сейчас будем умножать ; на 10, возможно переполнение ; а для умножения нужен регистр AX mov ax, si ; записываем в AX прежнее число mul bx ; умножаем его на 10. Результат в DX:AX jo @@ret ; переполнение. В DX что-то перешло, а намно только слово ; по-этому записываем результат в память и завершаем ввод mov si, ax ; запись произведения в аккумулятор. Переполнения не было add si, di ; добавляем вновь введенное число jmp @@1 ; переход к вводу новго число @ret: mov di, [bp + 4] mov [di], si ; Ввод завершен. Переносим результат в num call CRLF ; Переходим на следующую строку pop di ; восстанавливаем содержимое регистров pop si pop dx pop bx pop ax pop bp ret 2 inNum endp ; подпрограмма записи десятиричного представления числа в строку ; в стеке два параметра: значение числа и адрес (смещение) строки ; куда писать toDEC proc push bp mov bp, sp ; обращаются к числам стеке через сегмент ВР ; для это его прежнее значение сохраняем ; и переносим в ВР текущее значение адреса вершины стека push ax push bx push cx push dx push di mov ax, [bp+6] ; то, что число находится здесь, лучше всего ; посмотреть с помощью отладчика ; или: в стеке адрес возврата и сохраненное ВР - ; здесь первый параметр mov di, [bp+4] ; здесь второй add di, str_sh ; пропускаеи информационную часть строки ; не было в первом варианте cld ; очищаем флаг направления. Записывать будет с ; помощью строковой инструкции STOSB, которая ; содержимое AL записывает в DS:DI и после этого ; ТЕПЕРЬ увеличит значение DI на единицу - следующий байт xor cx, cx ; счетчик цифр числа mov bx, 10 ; получать числа будет делением на 10 - вот и записали @1: xor dx, dx ; делим на BX - делится DX:AX, в DX должен быть ноль div bx ; результат в AX, остаток в DX - нам нужен только он push dx ; сохраняем в стек остаток inc cx ; увеличиваем счетчик цифр or ax, ax ; проверяем, остались ли цифры в числе jnz @@1 ; если остались и AX не равно нулю то повторяем все @2: ; поделили все - пора записывать pop ax ; из стека извлекаем остаток - сначала это ; самая старшая цифра add al, '0' ; число отличается от символа на код символа - добаляем stosb ; запись AL в строку, точнее по адресу DS:DI LOOP @@2 ; повтор СХ раз. Очень "удачно" что именно на СХ был организован ; счетчик занесенных в стек остатков mov al, '$' ; будем использовать для показа 9-ю функцию ; для нее дописываем этот символ после всех цифр stosb pop di pop dx pop cx pop bx pop ax pop bp ret 4 ; из стека удаляются четырые байта = два слова = параметры toDEC endp CRLF proc push ax mov al, 13 int 29h mov al, 10 int 29h pop ax ret CRLF endp a dw ? b dw ? c dw ? d dw ? res dw ? str_res db 'результат: ', 10 dup (0) str_sh dw 12 ; это смещение от начала строки, где будет начинаться число prompt db 13,10,'Введите целое число: $' isNull db 13,10,'Вычисления невозможны: знаменатель равен нулю$' isOver db 13,10,'Переполнение при вычислениях$' press db 13,10,'Нажмите любую клавишу...$' end start --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 01.02.2008, 11:03

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.70 от 17.01.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru