Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
21 ошибка прогр... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Имитационное мо... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Реклама
Сейчас на сайте
Гостей: 30
На сайте нет зарегистрированных пользователей

Пользователей: 13,372
новичок: vausoz
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Медиа плейер на Delphi + Пояснительная записка
Метод конечных разностей для интерполяции/экстраполяции на Delphi
Диплом RSA, ЭЦП, сертификаты, шифрование на C#

количество элементов в масиве
;11455
;1334
;1=3
;4=2
format mz
begin:
mov ax,cs
mov ds,ax
mov es,ax
cld ;установили направление поика


mov si,mass1

;;;;;;;;;;;;;;;;;
mov cx,2 ;???????????????????????????
mov ax,[kolm1]
mul cx

mov [endmas],ax ;???????????????????????????
add [endmas],si



LODSW

mpoisk:



mov cx,[kolm2]
mov di,mass2
call poisk


cmp dx,0
je net

;------------

mov bx,ax
@@:
inc dx
LODSW

cmp si,[endmas]
ja @f

cmp ax,bx
je @r


@@:
push ax
mov ax,bx ;???????????????????????????
call vuvrez
pop ax

cmp si,[endmas]
ja exitp
;------------
jmp vso

net:
mov bx,ax

@@:
inc dx ;???????????????????????????
LODSW

cmp si,[endmas]
ja exitp

cmp ax,bx
je @r


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

vso:
jmp mpoisk



exitp:


mov ah,0x4C ;эта функция завершает программу
mov al,0 ;код возврата 0
int 0x21 ;вызываем ядро операционной системы

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;========================= данные в массиве
endl db 10,13,'$'
mass1 dw 1,2,3,3,3,6,7,80,90,100
;mass1 dw 1,1,4,5,5

mass2 dw 1,2,3,40,50,60,70,80,90,90,100
;mass2 dw 1,3,3,4

kolm1 dw 10 ;количество элементов первого масива
kolm2 dw 11;количество элементов второго масива
endmas dw ?
buf db 10 dup (0)


;-------------------------------------------
;выводим результат
vuvrez:
;ах = элемент масива
;dx = число его повторений
push cx
push si
push di
push bx

push dx
mov si,buf
call dgtTostr

mov ah,9
mov dx,buf ;???????????????????????????
int 21h

mov ah,2
mov dl,'='
int 21h

pop ax
mov si,buf
call dgtTostr

mov ah,9
mov dx,buf
int 21h

mov ah,9
mov dx,endl
int 21h

pop bx
pop di
pop si
pop cx

ret

;===========================================
;метод переводит число в строку

dgtTostr: ;число в строку
;ax=число
;si=строка

mov dl,'$'
push dx



vuv_chisla_s:
mov dx,0
mov bx,10
div bx


add dl,30h

push dx

cmp ax,0
jne vuv_chisla_s
; ;теперь числа вынимаеи из стека
gopop:
pop dx
mov [si],dl
cmp dl,'$'
pushf
inc si ;???????????????????????????
popf
jne gopop

ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;метод возвращяет количество элементов в данном масиве
;;c учетом что масив отсортирован в возрастающем порядке
;;di - начало масива
;;ax элемент поиска
;;cx -количество элементов в масиве
;;вернем количество в dx
poisk:
xor dx,dx
;mov di,mass1
;mov ax,3
;mov cx,9

inc cx
repnz SCASW ;пока не равно повторяем

jne .exit
mov dx,cx
repe SCASW ;повторяем пока равно
sub dx,cx

.exit:

ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



Опубликовал Kest May 12 2014 22:29:12 · 0 Комментариев · 3019 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Панель для реклам...
Панель Календарь
DirHTMLReportBuil...
PHP 5. Практика с...
База данных: Книж...
RbControls
Berg
БД студентов
Самоучитель PHP 4
Открытие Cd-ROM'a...
Проигрыватель Mp3
База данных фильм...
Просмотр файлов и...
OnlineIP
DiZsubmit
Библия хакера 2 К...
ScreenSaver [Исхо...
Zoom [Исходник на...
Шаблон для новост...
Billenium Effects...

Топ загрузок
Приложение Клие... 100803
Delphi 7 Enterp... 98089
Converter AMR<-... 20309
GPSS World Stud... 17086
Borland C++Buil... 14268
Borland Delphi ... 10395
Turbo Pascal fo... 7400
Калькулятор [Ис... 6097
Visual Studio 2... 5244
Microsoft SQL S... 3678
Случайные статьи
Получи www.anythin...
Что содержит конфи...
Установка дистанци...
Интерфейс доступа ...
Open-GL Графика в ...
Обычно они указыва...
TRANSFER (ПЕРЕДАТЬ)
Сложение и непосре...
Анализатор протокола
Мы ознакомимся с о...
Применение элемент...
Система РВМ
Анализ слов
Списки потомков + ...
Блок TEST
Управление потокам...
Собираем мышь
Термоядерный синтез
Модификации проток...
Изобразить на экра...
Классификация эксп...
Постановка задачи
Отрисовка связных ...
— закрытый ключ 80...
ЛОГИЧЕСКИЕ КЛЮЧИ В...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?