Навигация
Главная
Поиск
Форум
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

Игра Sokoban на Delphi + Блок схемы
Моделирование автовокзала + Отчет + Блок схема
Расчет обратной матрицы на Delphi + Пояснительная записка

количество элементов в масиве
;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 Комментариев · 3018 Прочтений · Для печати

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


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



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

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

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

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

Пароль



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

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

Случайные загрузки
Delphi7 Для профе...
Усложнённый кальк...
Программирование ...
AJAX и PHP. разра...
около 291 статьи ...
Самоучитель PHP 5...
Обучение Borland ...
FreeNet
Приемы программир...
TsHintManager
Dealer
Применение жадног...
Игра змейка
База для Allsubmi...
RbControls
IMtale
JanReplace
Task Shedule
Библия для програ...
Род Стивенс. Delp...

Топ загрузок
Приложение Клие... 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
Случайные статьи
Как вставить растр...
«пользователь всег...
РезюмеПриступая к ...
Поиск чисел удовле...
ОСНОВНЫЕ РАЗЛИЧИЯ ...
Управление изменен...
БЛОКИ ДЛЯ СБОРА СТ...
Этап 3 - сколемизация
Обобщенное програм...
• Рабочая станция ...
Обзор истории язык...
Контроллер
Кумулятивные суммы
Метод Чёрчмена-Акофа
Режим с обострением
Другие связанные с...
информационно – сп...
Разработка Web-фо...
Туры в Уолфиш-Бей,...
Детская одежда
Содержимое объекта...
Поток информации и...
8.1. Задача и прос...
сертификация соотв...
Типичные примеры в...
Статистика



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


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