Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Ассемблер? Это просто! Учимся программировать

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 11.448 RSS
←   Июнь 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru
Открыта: 28-06-2000

Автор
Калашников О.А.

Статистика

11.448 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Ассемблер? Это просто! Учимся программировать


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Boriss
Статус: Академик
Рейтинг: 2492
∙ повысить рейтинг » 		_Ayl_
Статус: Профессионал
Рейтинг: 1893
∙ повысить рейтинг » 		vladisslav
Статус: 6-й класс
Рейтинг: 1227
∙ повысить рейтинг »

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

Номер выпуска:1360
Дата выхода:17.06.2010, 03:00
Администратор рассылки:Лысков Игорь Витальевич, Старший модератор
Подписчиков / экспертов:235 / 63
Вопросов / ответов:1 / 2
IRC-канал по теме:#assembler

Вопрос № 179054: Доброго времени суток, уважаемые эксперты! Помогите, пожалуйста решить ещё одну задачу для ТАСМ по теме "Прерывания": С клавиатуры вводится последовательность цифр. Нужно выдать на экран разность каждой предыдущей и последующей цифры,...

Вопрос № 179054:

Доброго времени суток, уважаемые эксперты!
Помогите, пожалуйста решить ещё одну задачу для ТАСМ по теме "Прерывания":
С клавиатуры вводится последовательность цифр. Нужно выдать на экран разность каждой предыдущей и последующей цифры, если эта разность отрицательное число.

Отправлен: 12.06.2010, 02:46
Вопрос задал: Даниил Цветков, Студент
Всего ответов: 2
Страница вопроса »

Отвечает Лысков Игорь Витальевич, Старший модератор :
Здравствуйте, Даниил Цветков.
Программа:
Код:

 .model small
 .data
;Структура для ввода строки по функции 0ah
max db 128  ;макс размер буфера
count db 0  ;реальный размер
string db 129 dup (0) ;буфер

;сообщения
sString db 'Enter
number string: $'
sSub db 0dh,0ah
sSub1 db 32 dup (0)
sAny db 0dh,0ah,'Press any key$'

 .code
 .286
 .startup  ;DS=@DATA
 mov ax, @DATA
 mov es, ax  ;нужно проинициализировать также и регистр ES

 lea dx, sString ;приглашение ввести строку
 mov ah, 9
 int 21h

 lea dx, max  ;вводим строку
 mov ah, 0ah
 int 21h

 xor cx, cx
 mov cl, count ;количество символов sub cx, 2  ;проходов на 2 меньше
 jle finish  ;если <3, то на выход
 lea si, string ;строка
num_loop:
 lodsb   ;al=очередной символ, si=si+1
 sub al, [si+1] ;отнимаем символ на 2 вперед
 jge next  ;если >= 0 , то на следующий
 neg al  ;разность отрицательная, мозьмем модуль числа
 mov ah, 0  ;байт в слово
 push ax  ;сохраним

 lea di, sSub1 ;сформируем строку
 mov al, [si-1] ;предыдущая цифра
 stosb
 mov al, '-'  ;минус
 stosb
 mov al, [si+1] ;последующая
цифра
 stosb
 mov ax, '= ' ;' ='
 stosw
 stosb   ;' '
 mov al, '-'  ;'-', число отрицательное!
 stosb
 pop ax  ;разность
 call PrDec  ;сформируем числовую строку
 mov al, '$'  ;закроем строку для 9-й функции
 stosb
 lea dx, sSub ;выведем
 mov ah, 9
 int 21h
next:
 loop num_loop ;по всем
finish:
 lea dx, sAny ;выводим 'Press any key'
 mov ah, 9
 int 
 21h

 mov ah, 8  ;ждем нажатия
 int 21h
 
 mov ax, 4c00h ;завершаемся
 int 21h

;выведем десятичное число
PrDec proc
 push cx
 xor cx, cx  ;количество цифр
 mov bx, 10  ;будем делить на 10
div_loop:
 xor dx, dx  ;подготавливаемся к делению
 div bx  ;dx:ax / bx
 push dx  ;сохраним остаток - очередную младшую цифру
 inc cx  ;считаем цифры
 test ax, ax  ;есть еще?
 jnz div_loop
out_loop:   ;выводим в обратном порядке
 pop ax  ;извлечем из стека
 or al,
'0'  ;превратим в символ
 stosb   ;сохраним в буфере очередной символ-цифру
 loop out_loop ;по всем
 pop cx
 ret
PrDec endp

 end
Вводим всю строку сразу с помощью функции 0ah
Символы не проверяются на цифры! Предполагается корректный ввод.
Затем в цикле считаются разности между "предыдущей и последующей цифрой", и если она отрицательная, то выводится строка,
в которой выводятся цифры, которые отн имаются и разность

Еще одно решение, аналогичное первому, но с функциями BIOS-а.
Дополнительно проверяем на ввод только цифр.
Код:

 .model small
 .data
;Структура для ввода строки
max db 128  ;макс размер
буфера
count db 0  ;реальный размер
string db 129 dup (0) ;буфер

;сообщения
sString db 'Enter number string: ',0
sSub db 0dh,0ah
sSub1 db 32 dup (0)
sAny db 0dh,0ah,'Press any key',0

 .code
 .286
 .startup  ;DS=@DATA
 mov ax, @DATA
 mov es, ax  ;нужно проинициализировать также и регистр ES

 lea si, sString ;приглашение ввести строку
 call PrString

 lea di, max  ;вводим строку
 call GetStr
 ing

 xor cx, cx
 mov cl, count ;количество символов
 sub cx, 2  ;проходов на 2 меньше
 jle finish  ;если <3, то на выхо
д
 lea si, string ;строка
num_loop:
 lodsb   ;al=очередной символ, si=si+1
 sub al, [si+1] ;отнимаем символ на 2 вперед
 jge next  ;если >= 0 , то на следующий
 neg al  ;разность отрицательная, мозьмем модуль числа
 mov ah, 0  ;байт в слово
 push ax  ;сохраним

 lea di, sSub1 ;сформируем строку
 mov al, [si-1] ;предыдущая цифра
 stosb
 mov al, '-'  ;минус
 stosb
 mov al, [si+1] ;последующая цифра
 stosb
 mov ax, '= ' ;' ='
 stosw
 stosb   ;'
'
 mov al, '-'  ;'-', число отрицательное!
 stosb
 pop ax  ;разность
 call PrDec  ;сформируем числовую строку
 mov al, 0  ;закроем строку
 stosb
 push si  ;сохраним адрес в строке
 lea si, sSub ;выведем
 call PrString
 pop si
next:
 loop num_loop ;по всем
finish:
 lea si, sAny ;выводим 'Press any key'
 call PrString

 mov ah, 0
 int 16h  ;ждем нажатия
 
 mov ax, 4c0
 0h ;завершаемся
 int 21h

PrString proc near ;выводим строку до 0
 mov ah, 0eh  ;ф-я вывода символа из al
PSLoop:
 lodsb
 cmp al, 0
 je PSRet
 int 10h
 jmp PSLoop
PSRet:
 ret
PrString endp

GetString proc  ;ф-я для ввода числовой строки (аналог ф-и 0ah прерывания 21h)
 xor bx, bx
GSLoop:
 mov ah, 0
 int 16h
 cmp al, 0dh  ;выход по 0dh
 je GSRet
 cmp al, 8  ;отработаем Backspace
 je GSBackSpace
 cmp bl, [di] ;проверим на максимум
 jae GSLoop
 cmp al,
'0'  ;проверим на цифры!
 jb GSLoop
 cmp al, '9'
 ja GSLoop
 mov [di+bx+2], al ;сохраним в String
 inc bx  ;длина строки
 mov ah, 0eh  ;выведем
 int 10h
 jmp GSLoop
GSBackSpace:
 test bx, bx  ;в начале строки низзя!
 jz GSLoop
 mov ax, 0e08h ;на позицию назад
 int 10h
 mov ax,0e20h ;пробел
 int 10h
 mov ax, 0e08h ;еще раз назад
 int 10h
 dec bx  ;уменьшаем счетчик
 jmp GSLoop
GS
 Ret:
 mov [di+1], bl ;count=bl
 mov byte ptr [di+bx+2], 0 ;закрываем нулем
 ret
GetString endp

;выведем десятичное число
PrDec proc
 push cx
 xor cx, cx  ;количество цифр
 mov bx, 10  ;будем делить на 10
div_loop:
 xor dx, dx  ;подготавливаемся к делению
 div bx  ;dx:ax / bx
 push dx  ;сохраним остаток - очередную младшую цифру
 inc cx  ;считаем цифры
 test ax, ax  ;есть еще?
 jnz div_loop
out_loop:   ;выводим в обратном порядке
 pop ax  ;извлечем из
стека
 or al, '0'  ;превратим в символ
 stosb   ;сохраним в буфере очередной символ-цифру
 loop out_loop ;по всем
 pop cx
 ret
PrDec endp

 end

-----
Удачи!

Ответ отправил: Лысков Игорь Витальевич, Старший модератор
Ответ отправлен: 14.06.2010, 16:18
Номер ответа: 262105
Украина, Кировоград
Тел.: +380957525051
ICQ # 234137952
Mail.ru-агент: igorlyskov@mail.ru
Абонент Skype: igorlyskov

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 262105 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Отвечает Зенченко Константин Николаевич, Модератор :
    Здравствуйте, Даниил Цветков.

    Смотрите приложение. Использованы только прерывания BIOS.
    Признаком окончания ввода последовательности, служат введенные два нуля.
    Удачи!

    Приложение:

    -----
    Итерация от человека. Рекурсия — от Бога. — Л. Питер Дойч

    Ответ отправил: Зенченко Константин Николаевич, Модератор
    Ответ отправлен: 14.06.2010, 17:33
    Номер ответа: 262107
    Украина, Киев
    Тел.: +38-097-953-66-19
    Адрес: Украина, Киев

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 262107 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.16 от 26.05.2010
    В избранное