Все выпуски  

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


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

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

Коцюрбенко Алексей aka Жерар
Статус: Мастер-Эксперт
Рейтинг: 19
∙ повысить рейтинг »
Evgen aka Chuma
Статус: 6-й класс
Рейтинг: 14
∙ повысить рейтинг »
Kdsfofwe21
Статус: 1-й класс
Рейтинг: 0
∙ повысить рейтинг »

∙ Assembler

Номер выпуска:1722
Дата выхода:13.12.2018, 23:45
Администратор рассылки:Лысков Игорь Витальевич (Старший модератор)
Подписчиков / экспертов:66 / 21
Вопросов / ответов:1 / 1

Консультация # 194142: Здравствуйте, уважаемые эксперты! Прошу помощи в следующем вопросе: Три массива в памяти заданы начальными адресами и длинами. Вычислить и вывести на устройство вывода среднее арифметическое параметров этих массивов. Параметр массивов это минимальное положительное число. CompModel, Модель ЭВМ. Есть такой код, но здесь необходимо сд...

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

Здравствуйте, уважаемые эксперты! Прошу помощи в следующем вопросе:
Три массива в памяти заданы начальными адресами и длинами. Вычислить и вывести на устройство вывода среднее арифметическое параметров этих массивов. Параметр массивов это минимальное положительное число. CompModel, Модель ЭВМ.

Есть такой код, но здесь необходимо сделать поиск минимального из положительных.

Код (Assembler) :: выделить код
RD #040 ;загрузка начального адреса массива
WR 030  ;в ячейку 030
RD #14  ;загрузка параметра цикла k=14 в ячейку 031
WR 031
RD #0   ;загрузка искомого минимального положительного числа нулём
WR 032  ;в ячейку 032
M1: RD @030 ;берём очередной элемент массива
SUB #1  ;сравниваем с 1 - т.е. проверяем на положительность
JNS M2  ; если положительное - завершаем поиск первого положительного
RD 30    ; увеличиваем адрес массива на 1 (переходим к следующему элементу)
ADD #1
WR 30
RD 031 ; Уменьшаем счётчик (параметр цикла) на 1
SUB #1
WR 031
JNZ M1 ; Если цикл не закончился - переходим к рассмотрению следующего элемента массива
M2:


Заранее, благодарю.

Дата отправки: 08.12.2018, 23:22
Вопрос задал: lmk (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


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

Здравствуйте, lmk!
Примерно так...
Думаю, разберетесь... В тексте достаточно комментариев.

Код (Assembler) :: выделить код
RD #3 ;количество массивов и минимальных положительных 
WR R4 ;(для подсчета среднего арифметического)
RD #40 ;загрузка начального адреса первого массива 
WR R0  ;в регистр R0 
RD #5  ;загрузка длины массива k=5 в регистр R2 
WR R2
CALL MINPOS ;ищем минимальное положительное в массиве
WR R3 ;накапливаем сумму для среднего арифметического

RD #50 ;загрузка начального адреса второго массива 
WR R0  ;в регистр R0 
RD #4  ;загрузка длины массива k=4 в регистр R2 
WR R2
CALL MINPOS
ADD R3 ;накапливаем сумму для среднего арифметического
WR R3

RD #60 ;загрузка начального адреса второго массива 
WR R0  ;в регистр R0 
RD #5  ;загрузка длины массива k=5 в регистр R2 
WR R2
CALL MINPOS
ADD R3 ;накапливаем сумму для среднего арифметического

DIV R4 ;делим на количество
OUT ;выводим среднее арифметическое
HLT ;останов

MINPOS:RD #0 ;обнуляем минимальное положительное
WR R5
M1:RD @R0+ ;берём очередной элемент массива (с автоинкрементом адреса)
JS NEXT ;отрицательные
JZ NEXT ; и нулевые пропускаем
WR R6 ;сохраним в R6
RD R5 ;проверим текущее минимальное положительное на 0
JZ NEW ;если найдено первое положительное, то просто сохраняем в R5
RD R6 ;только что прочитанное положительное число
SUB R5 ;сравниваем с минимальным
JNS NEXT ;если >= , то на следующее
NEW:MOV R5,R6 ;нашли очередное минимальное
NEXT:JRNZ R2,M1 ;циклим по всем элементам массива
RD R5 ;возвращаем результат в аккумуляторе
RET

Консультировал: Лысков Игорь Витальевич (Старший модератор)
Дата отправки: 10.12.2018, 16:58

5
Премного благодарен)

-----
Дата оценки: 10.12.2018, 19:20

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

НЕ одобряю +1 одобряю!


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

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

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


В избранное