Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.09.2009, 19:39   #11
Sparky
Участник клуба
 
Аватар для Sparky
 
Регистрация: 15.05.2009
Сообщений: 1,222
По умолчанию

Мало ли кому-то тоже понадобится такая задача, выложу весь код
.model tiny
.code
org 100h
main:
xor ax,ax
xor si,si
mov bx,offset arr
mov ax,word ptr [bx] ;занесли первый элеменент, на регистр, ax=min
mov cx,4 ;так как первый элемент уже обработан количество повторений=n-1
cyc:
add si,2 ;переходим на следующий эелемент
cmp word ptr [bx+si],ax ;сравниваем текущее значение с min, word ptr используется так как нам нужен не 1 байт а 2
jnl skeep ;если элемент >= min переходим на skeep
mov ax,[bx+si]
skeep:
loop cyc

oi1:
xor cx, cx
mov bx, 10

oi2:
cwd
div bx ;Делим число на десять. В остатке получается последняя цифра. Сразу выводить её нельзя, поэтому сохраним её в стэке.
push dx
inc cx

; А с частным повторяем то же самое, отделяя от него очередную
; цифру справа, пока не останется ноль, что значит, что дальше
; слева только нули.
test ax, ax
jnz oi2

; Теперь приступим к выводу.
mov ah, 02h
oi3:
pop dx
; Извлекаем очередную цифру, переводим её в символ и выводим.
add dl, 30h
int 21h
; Повторим ровно столько раз, сколько цифр насчитали.
loop oi3

int 20h
ret

arr dw 2,4,0,3,6
end main
Единственное, что ограничивает полет мысли программиста-компилятор
Sparky вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск в массиве ADSoft PHP 1 07.08.2009 11:17
Програма на Pascal: нахождение минимума с помощью процедуры в 2мерном массиве. Нужна помощь. Lopirion Помощь студентам 2 28.12.2008 21:23
Нахождение минимума и максимума в трехмерном массиве 1234 Помощь студентам 11 26.05.2008 16:23
Поиск минимума Иринкаа Помощь студентам 1 19.11.2007 22:00
Задача на поиск минимума Stan Паскаль, Turbo Pascal, PascalABC.NET 3 25.06.2007 19:23