Последние записи
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
2nd
Май
Вычислить сумму элементов массива, имеющих четные номера
Posted by obzor under assembler
FASM. Задан одномерный массив. Вычислить сумму элементов массива, имеющих четные номера.
1. бери цифру,
2. дели её на 2,
3. если делится без остатка, то складывай с предыдущей
4. если есть остаток, то пропускай её
..реализуется это приблизительно так (результат в DL):
array db 2,5,7,4,3,1,8,6,9
mov si,array ; скопируем массив
mov bl,2 ; делитель
mov cx,9 ; длинна массива
sLoop:
mov al,byte[si] ; возьмём элемент массива
div bl ; разделим его на 2
cmp ah,0 ; проверим остаток
jz summ ; если остатка нет, то суммируем
xor ax,ax ; сбрасываем AX
inc si ; переходим к следующему элементу
lopp sLoop ; мотаем цикл 9 раз
end:
xor ax,ax ; ждём клавишу
int 16h
ret ; и на выход
summ:
add dl,al ; копим сумму в DL
inc si ; переходим к следующему элементу
jmp sLoop ; мотаем цикл
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)