24.06.2019, 15:48 [+3 UTC]
в нашей команде: 3 722 чел. | участники онлайн: 8 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
23.06.2019, 07:55

Последний вопрос:
24.06.2019, 11:28
Всего: 149865

Последний ответ:
24.06.2019, 13:48
Всего: 258631

Последняя рассылка:
24.06.2019, 09:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
02.03.2012, 19:45 »
Николай Тонкошкур
Меня интересовала MB Asus P8P67 WS Revolution rev.1.02, которую я получил от dostavka.ru Мне нужны были адреса с описанием и характеристиками именно ревизии 1.02 а не 3.0 [вопрос № 185530, ответ № 270116]
25.02.2010, 21:04 »
Кайдашов Александр Викторович
Спасибо, VVL! В очередной раз выручаете ))) Обязательно подумаем над таким вариантом [вопрос № 176891, ответ № 259731]

РАЗДЕЛ • Assembler

Создание программ на языке Assembler.

[администратор рассылки: Лысков Игорь Витальевич (Старший модератор)]

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 228
Коцюрбенко Алексей Владимирович
Статус: Модератор
Рейтинг: 219
Лысков Игорь Витальевич
Статус: Старший модератор
Рейтинг: 96

Перейти к консультации №:
 

Консультация онлайн # 195083
Раздел: • Assembler
Автор вопроса: mr.mad5 (Посетитель)
Отправлена: 30.03.2019, 10:24
Поступило ответов: 1

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

По запросу программы пользователь вводит с
клавиатуры целое положительное десятичное число N. По сле-
дующему запросу он вводит с клавиатуры N целых трехзначных
положительных десятичных чисел, разделенных пробелами.
Программа выводит последовательность этих же чисел, но
записанных в обратном порядке и в восьмеричной системе счис-
ления.

Состояние: Консультация закрыта

Здравствуйте, mr.mad5!

tasm, com-file.

Код (Assembler) :: выделить код
modeL	tiny,pascal
.code
org	100h
begin:	mov	ax,2
;Вводим количество
	mov	bx,1000
	call	inpNum,ax,bx,offset dbCount
;Запускаем цикл
	mov	cx,0
	call	main,ax,cx,bx
;Выходим из программы
	xor	ax,ax
	int	16h
	ret
dbCount		db	10,13,'Enter count:$'
dbNumber	db	10,13,'Enter number:$'
dbOctan		db	10,13,'Octan system:$'
;подпрограмма ввода числа
inpNum	proc	a:word,b:word,c:word
;a = minimum
;b = maximum
;c = message
	mov	ah,9
	mov	dx,c
	int	21h
	xor	di,di
	mov	si,10
@@01:	xor	ax,ax
	int	16h
	cmp	al,13
	jz	@@03
	cmp	al,'0'
	jb	@@01
	cmp	al,'9'
	ja	@@01
	xchg	ax,di
	xor	dx,dx
	mul	si
	cmp	ax,b
	jb	@@02
	div	si
	jmp	@@04
@@02:	xchg	ax,di
	push	ax
	int	29h
	pop	ax
	and	ax,0Fh
	add	di,ax
	jmp	@@01
@@03:	cmp	di,a
	jb	@@01
	mov	ax,di
@@04:	ret	
inpNum	endp
;подпрограмма вывода числа
outNum	proc	a:word,b:word,c:word
;a = number
;b = system
;с = message
	mov	ah,9
	mov	dx,c
	int	21h
	mov	si,b
	mov	ax,a
	xor	cx,cx
@@05:	xor	dx,dx
	div	si
	inc	cx
	push	dx
	or	ax,ax
	jnz	@@05
@@06:	pop	ax
	or	al,'0'
	int	29h
	loop	@@06
	ret
outNum	endp
;основной рекурсивный цикл
main	proc	a:word,b:word,c:word
;a = count
;b = minimum
;c = maximum
	call	inpNum,b,c,offset dbNumber
	push	ax
	mov	ax,a
	dec	ax
	jz	@@07
	call	main,ax,b,c
@@07:	pop	ax
	mov	bx,8
	call	outNum,ax,bx,offset dbOctan
	ret
main	endp
	end	begin

Удачи!


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

5
Спасибо, огромное!!!
-----
Дата оценки: 03.04.2019, 17:43

Рейтинг ответа:

+1

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.20436 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.77 от 31.05.2019
Версия JS: 1.34 | Версия CSS: 3.35