|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.09.2009, 19:39 | #11 |
Участник клуба
Регистрация: 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
Единственное, что ограничивает полет мысли программиста-компилятор
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск в массиве | 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 |