Навигация
Главная
Поиск
Форум
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
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Модуль Forms 65535
ТЕХНОЛОГИИ ДОСТ... 63052
Имитационное мо... 58358
Реклама
Сейчас на сайте
Гостей: 4
На сайте нет зарегистрированных пользователей

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

Игра Sokoban на Delphi + Блок схемы
Диплом - база данных поставщиков на Delphi (MS Sql Server)+ Пояснительна...
Моделирование ЭВМ на GPSS (три класса заданий) + Пояснительная записка

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
количество элементов в масиве
;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 13 2014 02:29:12 · 0 Комментариев · 1794 Прочтений · Для печати

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


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



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

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

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

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

Пароль



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

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

Случайные загрузки
Размещение элемен...
Файловый менеджер
RAS
Самоучитель PHP 5...
Run
Report
Delphi и технолог...
Иллюстрированный ...
«Философия» прогр...
Пятнашки и крести...
Delphi 7: Для про...
Пример работы с б...
Библиотека програ...
Самоучитель C++
BIOS
Preview
PDPcheck
Pass [Исходник на...
ATComponents
Х. М. Дейтел, П. ...

Топ загрузок
Приложение Клие... 100480
Delphi 7 Enterp... 87879
Converter AMR<-... 20082
GPSS World Stud... 13526
Borland C++Buil... 12061
Borland Delphi ... 8671
Turbo Pascal fo... 7048
Visual Studio 2... 5005
Калькулятор [Ис... 4911
FreeSMS v1.3.1 3545
Случайные статьи
БЛОКИ, ОПИСЫВАЮЩИЕ...
Международный алго...
Реальные стандарты...
ГЛАВА 6. ВСТРОЕНН...
Таблица данных
Удостоверьтесь, чт...
Играть в Кекс на с...
Прямая адресация
Использование стат...
168.10.
11.1. Сортировка в...
Класс Worker в кон...
Важные замечания п...
Класс TGraphicsObject
Game Boy Advance, ...
TABLE (ТАБЛИЦА)
Самопроверка непра...
Онлайновая инфогра...
Поиск в упорядочен...
Прототип метода
Уравновешивайте ра...
Современно – иннов...
Введение в язык XSLT
ресурсам Windows 2...
League for Program...
Статистика



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


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