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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 11.445 RSS
←   Октябрь 2021   →
 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
31


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


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

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

Статистика

11.445 подписчиков
-1 за неделю
←   Все выпуски   →

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


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

Лучшие эксперты в разделе

Лысков Игорь Витальевич
Статус: Мастер-Эксперт
Рейтинг: 0
∙ повысить рейтинг » 		Evgen aka Chuma
Статус: 6-й класс
Рейтинг: 0
∙ повысить рейтинг » 		cain52
Статус: 3-й класс
Рейтинг: 0
∙ повысить рейтинг »

Assembler

Номер выпуска:1797
Дата выхода:27.10.2021, 10:15
Администратор рассылки:Зенченко Константин Николаевич (Старший модератор)
Подписчиков / экспертов:8 / 25
Вопросов / ответов:1 / 1

Консультация # 201533: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Каким образом можно преобразовать строку в число на TASM? За день перепробовал кучу функций из интернета, ни одна не работает корректно....

Консультация # 201533:

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Каким образом можно преобразовать строку в число на TASM? За день перепробовал кучу функций из интернета, ни одна не работает корректно.

Дата отправки: 22.10.2021, 10:03
Вопрос задал: Iriska13 (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Зенченко Константин Николаевич (Старший модератор):

Доброе время суток!

В приложении, код Tasm:

Код [Assembler]
model	tiny,pascal
locals @@
code
org	100h
begin:	call	inputNum,offset dbInput
	or	ax,ax
	jz	@@01
	call	outputNum,ax,2,offset dboutput
	call	outputNum,ax,8,offset dboutput
	call	outputNum,ax,10,offset dboutput
	call	outputNum,ax,16,offset dboutput
	jmp	begin
@@01:	ret
outputNum	proc,a:word,b:word,c:word
uses	ax,bx,cx,dx
	mov	ah,9
	mov	dx,c
	int	21h
	mov	ax,b
	aam
	or	ax,'00'
	push	ax
	xchg	ah,al
	int	29h
	pop	ax
	int	29h
	mov	al,')'
	int	29h
	mov	ax,a
	mov	bx,b
	xor	cx,cx
@@02:	xor	dx,dx
	div	bx
	push	dx
	inc	cx
	or	ax,ax
	jnz	@@02
@@03:	pop	ax
	cmp	al,10
	jb	@@04
	add	al,7
@@04:	add	al,'0'
	int	29h
	loop	@@03
	ret
outputNum	endp
dbInput		db	10,13,'number>$'
dbOutput	db	10,13,'system($'
inputNum	proc,a:word
uses	bx,cx,dx,si
	mov	ah,9
	mov	dx,a
	int	21h
	xor	si,si
	xor	di,di
	mov	bx,10
@@01:	xor	ax,ax
	int	16h
	cmp	al,13
	jz	@@03
	cmp	al,'-'
	jnz	@@02
	or	si,si
	jnz	@@01
	or	di,di
	jnz	@@01
	int	29h
	mov	di,-1
	jmp	@@01
@@02:	cmp	al,'0'
	jb	@@01
	cmp	al,'9'
	ja	@@01
	push	ax
	int	29h
	pop	ax
	and	ax,0Fh
	xchg	ax,si
	xor	dx,dx
	mul	bx
	add	si,ax
	jmp	@@01
@@03:	mov	ax,si
	or	di,di
	jz	@@04
	neg	ax
@@04:	ret
inputNum	endp
	end	begin

Контролируется ввод, попробуйте ввести, что-то вроде 12-23 или --1234.
Удачи!

Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 26.10.2021, 12:20
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное