Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Лысков Игорь Витальевич Статус: Специалист Рейтинг: 122 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 80 ∙ повысить рейтинг >>

Airyashov Статус: Студент Рейтинг: 26 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 1134
от 15.12.2008, 20:35

Вопрос № 153684: Здравствуйте, уважаемые. Мне необходимо решить такую задачу: определить количество элементов в каждой убывающей последовательности массива А(20) Найти максимальный из них. Если есть конструктивные предложения, то стучите в асю 477626455, я в долгу не...

Вопрос № 153.684

Здравствуйте, уважаемые. Мне необходимо решить такую задачу: определить количество элементов в каждой убывающей последовательности массива А(20) Найти максимальный из них. Если есть конструктивные предложения, то стучите в асю 477626455, я в долгу не останусь.

Отправлен: 10.12.2008, 01:52 Вопрос задал: Кулик Александр Сергеевич (статус: 2-й класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Кулик Александр Сергеевич! Решение в приложении. Приложение: .model tiny .data buf label byte ; буфер для приема строки с клавиатуры (по ф-и 0ah) max db 128 ; максимальная длина строки len db 0 ; реальная длина введенной строки string db 128 dup (?) ; сама строка .code .startup lea dx, buf mov ah, 0ah int 21h ; вводим строку call next_row ; перевод на новую строку lea si, string ; адрес строки xor cx, cx mov cl, len ; длина строки xor di, di ; максимальное количество из длин последовательностей mov dl, 0 ; чтобы первый байт просто сохранить jcxz print_max ; если введена пустая строка search_loop: lodsb ; очередной символ test dl, dl ; самый первый байт? jz group_start cmp al, dl ; сравним с сохраненным jae next_group ; если очередной >= сохраненного, то начинается новая группа inc bx ; считаем jmp search_next next_group: push ax ; сохраним в стеке символ (чтобы потом корректно сохранить в dl) mov ax, bx call print_num ; выведем число из bx и одновременно ищем максимальное (в di) pop ax group_start: mov bx, 1 ; счетчик в текущей убывающей последовательности search_next: mov dl, al ; сохраним текущий первый символ loop search_loop ; с начала новой последовательности mov ax, bx call print_num ; выведем счетчик последней последовательности print_max: ; дошли до конца call next_row ; перевод на новую строку mov ax, di call print_num ; выведем максимальное количество call next_row ; перевод на новую строку mov ah, 0 ; ждем нажатие на клавишу, int 16h ; чтобы окно не пропадало сразу в Windows :) .exit 0 ; преобразуем число из AX в последовательность символов ; у нас число 0-127 (последний байт под код 0dh) ; поэтому для преобразовании нам достаточно делить на байт 10 ; одновременно ищем максимальное (в регистре di) print_num proc push dx bx cx ; сохраним использованные регистры cmp ax, di ; сравним с максимальным jbe form_str mov di, ax ; новое значение form_str: mov bl, 10 ; будем делить на 10 xor cx, cx ; счетчик цифр div_loop: ; цикл получения десятичных разрядов div bl ; в ah остаток - очередной десятичный разряд push ax ; сохраним в стеке (от младшего к старшему) inc cx ; посчитаем mov ah, 0 ; подготовимся для следующего деления (отбросим остаток) test ax, ax ; есть еще десятичные разряды? jnz div_loop ; продолжим pr_loop: ; цикл вывода десятичных цифр-символов pop ax ; востановим очередной разряд (от старшего к младшему) mov dl, ah ; сформируем в dl add dl, '0' ; символ цифры mov ah, 2 ; ф-я вывода символа из dl на экран int 21h ; вывод loop pr_loop ; по всем цифрам mov dl, ' ' ; выведем отделяющий пробел mov ah, 2 int 21h pop cx bx dx ret print_num endp next_row proc ; перевод на следующую строку push dx mov ah, 2 mov dl, 0dh int 21h mov ah, 2 mov dl, 0ah int 21h pop dx ret next_row endp end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 10.12.2008, 14:37 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238205 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Большое спасибо за помощь

Вопрос № 153.819

Здравствуйте! Вопрос: как получить два параметра(стоку и число) из командный строки(PSP,DTA) и записать в соответствующие переменные? (TASM)

Отправлен: 10.12.2008, 17:59 Вопрос задал: Меляшинский Алексей Вячеславович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 9)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Меляшинский Алексей Вячеславович! Решение в приложении ожидается ввод двух величин: строки и числа, именно в такой последовательности Делается пропуск незначащих пробелов, ввод числа обрывается при "нецифре" При незадании параметра(ов) предусмотрено значение по-умолчанию: пустая строка и число 0 Приложение: .model tiny .data sName db 'file.txt',0 string db 128 dup (?) ; сюда запишем строку number dw 0 ; сюда число .code .startup call getParms ; обработаем строку параметров call saveFile ; сохраним в файл sName number раз строку string (с переводом строки) mov ax,4c00h int 21h ; getParms proc mov si, 81h ; адрес строки параметров lea di, string ; адрес, куда перепишем первый параметр - строку search_string_start: ; пропустим лидирующие пробелы lodsb cmp al, 0dh ; дошли до конца строки параметров? je close_string ; закрываем строку нулем cmp al, ' ' je search_string_start ; ищем, пока не пробел и не конец строки jmp save_string ; встретили значаший символ copy_path_loop: lodsb cmp al, ' ' je close_string ; по пробелу и концу строки заканчиваем копирование cmp al, 0dh je close_string save_string: stosb ; сохраним jmp copy_path_loop ; циклим, пока не дойдем до пробела или конца строки close_string: mov byte ptr [di], 0; закрываем строку - параметр (если не было указано параметра, то получится пустая строка) mov number, 0 ; проинициализируем параметр-число нулем mov di, 10 ; при преобразовании строки в число будем умножать на di=10 cmp al, 0dh ; если дошли до конца строки (не было указан второй параметр или даже и первый, jz getParms_ret ; то на выход (останется 0) ; найдем и преобразуем числовую строку в число ; предполагаем, что число < 65536 (помещается в слово) ; любой символ "не цифра" завершает преобразование строки в число search_number_start: ; пропустим разделяющие пробелы lodsb cmp al, 0dh ; дошли до конца строки je getParms_ret ; на выход cmp al, ' ' je search_number_start ; ищем, пока не пробел и не конец строки jmp cmp_number ; значащий символ - на проверку, цифра ли... form_number_loop: ; цикл преобразования строки в число lodsb ; читаем очередной символ cmp_number: cmp al, '0' ; проверим интервал символа '0'-'9' jb getParms_ret ; на выход cmp al, '9' ; число останется таким, до какого значения ja getParms_ret ; дошло преобразование form_number: ; все ок - цифра! and ax, 0fh ; символ '0'-'9' в число 0-9 xchg ax, number ; ax = предыдущему значению, number = текущему разряду mul di ; dx:ax = ax * 10 add number, ax ; number = предыдущее значение * 10 + новый десятичный разряд jmp form_number_loop; на ввод следующей цифры getParms_ret: ret getParms endp ; savefile proc lea di, string ; найдем длину строки mov cx, 0ffffh ; заведомо большое число mov al, 0 ; строка заканчивается 0 repne scasb ; ищем байт из al sub di, offset string + 1 ; в конце поиска di указывает на байт за 0 ; после команды di - длина строки mov word ptr string[di], 0a0dh ; допишем до строки 0d0ah add di, 2 ; увеличим длину строку на 2 байта 0d0a lea dx, sName ; имя файла mov ah, 3ch ; функция создания файла xor cx, cx ; атрибут int 21h mov bx, ax ; описатель файла, в который уже можно писать! lea dx, string ; адрес буфера mov cx, number ; количество строк, которые мы запишем write_loop: push cx ; сохраним в стеке mov cx, di ; длина строки, которую пишем mov ah, 40h ; функция записи int 21h pop cx ; восстановим счетчик loop write_loop ; на повтор mov ah,3eh ; закрываем файл ! int 21h ret savefile endp ; end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 12.12.2008, 11:42 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238398 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 153.831

Помогите сделать программу! Поиск файлов по шаблону на всем диске, в избранном каталоге, вывод списка всех найденых, возможность перехода к избранному файлу.

Отправлен: 10.12.2008, 19:25 Вопрос задал: Sergey M. (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Sergey M.! В приложения программа, выводящая на экран список найденных файлов Параметром передается полный путь начального каталога с маской Например, prg.com c:somepath*.txt PS Программа работает только с короткими именами 8.3 Приложение: .model tiny, C ; _DTA struc ; структура, описывающая поля dta bRes db 21 dup (?) bAttr db ? ; атрибут wTime dw ? ; время wDate dw ? ; дата dSize dd ? ; размер bName db 13 dup (?) ; имя в формате 8.3 db ? ; для выравнивания на границу слова _DTA ends ; _ADDR struc ; структура для хранения длинного указателя o dw ? ; смещение s dw ? ; сегмент _ADDR ends ; COPYSTR MACRO string ; макро копирует указанную строку в [di], в конце di указывает на 0 local @@copy_loop mov si, string @copy_loop: lodsb stosb test al, al jnz @@copy_loop dec di ; подправим di, чтобы указывало на 0 ENDM ; (надо, чтобы корректно "приклеивать" следующую строку) ; .data sMaskAll db '*.*',0 .data? sPath db 256 dup (?) sMask db 256 dup (?) .code .186 .startup call parsing_parm ;разберем строку параметров call find_mask, offset sPath ;делаем поиск mov ax, 4c00h int 21h ; ; Разбор строки параметров, при этом ; формируются две строки: sPath - стартовый каталог поиска ; при необходимости добавляем в конце , ; может быть и пустой (первый байт 0) ; sMask - маска поиска, ; если не задано, то *.* parsing_parm proc xor bx, bx ; bx - длина строки параметров, mov bl, ds:[80h] ; будем использовать, как индекс байта с конца search_mask_loop: test bx, bx ; дошли до начала (например, пустая строка параметров)? jz copy_parts ; на копирование ; ищем последний , чтобы отделить маску от пути cmp byte ptr [bx+80h],'' je copy_parts ; нашли cmp byte ptr [bx+80h],':' je copy_parts ; нашли : (было задано только диск, например, c:) dec bx ; ничего не нашли, переходим на предыдущий байт jmp search_mask_loop ; ищем дальше copy_parts: lea dx, [bx+81h] ; dx - адрес конца пути (за ), нужно для copy_path call copy_mask ; формируем строку маски call copy_path ; путь ret parsing_parm endp ; copy_mask proc ; формируем строку маски lea di, sMask ; адрес строки search_start_mask: ; цикл поиска первого значащего байта ; (если путь не задали, то надо пропустить начальные пробелы) mov al, [bx+81h] ; читаем байт inc bx ; сдвигаем индекс cmp al, ' ' ; пробел? je search_start_mask jmp cmp_next_mask ; нашли не пробел - проверим на конец строки copy_mask_loop: ; цикл копирования маски mov al, [bx+81h] inc bx cmp al, ' ' ; проверим на конечный пробел je end_mask ; на проверку, есть что-то? cmp_next_mask: cmp al, 0dh ; конец строки? je end_mask ; на проверку, есть что-то? stosb ; все остальное копируем jmp copy_mask_loop ; продолжим end_mask: cmp di, offset sMask ; сравним с начальным адресом jne set_mask_last_zero ; если не равны, значит, что-то там есть lea ax, sMaskAll COPYSTR ax ; иначе, скопируем *.* set_mask_last_zero: mov byte ptr [di], 0 ; завершающий 0 ret copy_mask endp ; copy_path proc ; формируем строку пути mov si, 81h ; начало строки параметров lea di, sPath ; адрес строки пути search_start_path: ; цикл поиска первого значащего байта ; (надо пропустить начальные пробелы) cmp si, dx ; dx - адрес конца пути в строке параметров jae cmp_comon ; дошли до конца пути lodsb cmp al, ' ' ; пропускаем лидирующие пробелы je search_start_path jmp save_path ; не пробел copy_path_loop: ; цикл копирования пути cmp si, dx ; дошли до конца? jae cmp_comon lodsb ; читаем очередной байт save_path: stosb ; сохраняем jmp copy_path_loop ; циклим, пока не дойдем до конца cmp_comon: cmp byte ptr [di-1], ':' ; проверим, надо ли добавить завершающий (для случая "c:") jne set_path_last_zero mov al, '' stosb set_path_last_zero: mov byte ptr [di], 0 ; завершающий 0 ret copy_path endp ; ; собственно поиск по маске и вывод на экран ; параметр pPath - путь поиска ; будем искать рекурсивно, поэтому надо передавать путь поиска через стек find_mask proc pPath:word local sNewPath:byte:256, ; временная строка текущего поиска (путь+маска) и для вывода на экран dta:_DTA, ; dta для поиска в текущем каталоге olddta:_ADDR ; адрес предыдущего dta push es ; сохраним es mov ah, 2fh ; сохраним адрес dta int 21h mov olddta.o, bx mov olddta.s, es pop es lea dx, dta ; установим свою dta mov ah,1ah int 21h lea di, sNewPath ; сформируем плный путь поиска (путь+маска) COPYSTR pPath ; путь каждый раз свой (получаем из параметра) lea ax, sMask ; маска общая для всех в глобальной переменной sMask COPYSTR ax mov ah, 4eh ; начинаем поиск mov cx, 27h ; атрибуты (все, кроме директорий) lea dx, sNewPath ; маска поиска find_mask_loop: int 21h jc find_subdir ; конец поиска mov si, pPath ; сформируем полный путь найденного файла call print_string lea si, dta.bName ; добавим имя файла call print_string ; выведем на экран call new_line ; перевод строки mov ah, 4fh ; функция продолжения поиска jmp find_mask_loop find_subdir: ; нормальная ошибка - 12h (ничего не найдено по поиску) ; все остальное надо бы проанализировать... lea di, sNewPath ; сформируем маску поиска всех поддиректорий COPYSTR pPath lea ax, sMaskAll COPYSTR ax mov ah, 4eh ; начинаем поиск поддиректорий mov cx, 37h ; атрибут lea dx, sNewPath ; адрес маски find_mask_subdir_loop: int 21h jc find_exit ; конец поиска test dta.bAttr, 10h ; проверим, нашли директорию? jz find_mask_subdir_next ; файлы обходим cmp byte ptr dta.bName, '.' ; обойдем и поддиректории '.' и '..' je find_mask_subdir_next lea di, sNewPath ; сформируем путь поиска в найденной поддиректории COPYSTR pPath lea ax, dta.bName ; имя поддиректории COPYSTR ax mov word ptr [di], '' ; добавляем завершающие с нулем (word!) lea ax, snewPath ; имя пути поддиректории call find_mask, ax ; рекурсивный вызов самой себя для поиска в поддиректории find_mask_subdir_next: mov ah, 4fh ; продолжим поиск jmp find_mask_subdir_loop find_exit: ; поиск закончен push ds lds dx, dword ptr olddta ; восстановим dta mov ah, 1ah ; чтобы вызвавшая подпрограмма могла продолжить поиск в своей директории! int 21h pop ds ret find_mask endp ; print_string proc ; вывод на экран строки, заканчивающейся 0 mov dl, [si] inc si test dl, dl jz print_string_ret mov ah, 2 int 21h jmp print_string print_string_ret: ret print_string endp ; new_line proc ; перевод строки mov ah, 2 mov dl,0dh int 21h mov dl,0ah int 21h ret new_line endp ; end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 12.12.2008, 10:38 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238392 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru