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

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

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

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

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

Шевченко Александр Владимирович Статус: 3-й класс Рейтинг: 23 ∙ повысить рейтинг >>

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

Выпуск № 1145
от 27.12.2008, 06:35

Вопрос № 155188: здравствуйте. мне нужно написать программу числа фибоначчи(первые десять), но я не могу вывести их на экран помогите пожалуйста если несложно, то пришлите на nelkir@mail.ru БУДУ ОЧЕНЬ БЛАГОДАРЕН!!!...

Вопрос № 155.188

здравствуйте. мне нужно написать программу числа фибоначчи(первые десять), но я не могу вывести их на экран помогите пожалуйста если несложно, то пришлите на nelkir@mail.ru БУДУ ОЧЕНЬ БЛАГОДАРЕН!!! Приложение: wrdig macrodig mov dl,d mov ah,2 add dl,30h int 21h endm wrchr macro char mov ah,2 mov dl, char int 21,h endm assume cs:cseg, ds:cseg cseg segment org 100h code mov bx,1 wrdig bx wrchr ' ' mov dx,2 m1: mov cx,ax add cx, ax wrdig cx wrchr ' ' inc dx cmp dx,10 jz exit m2: mov ax,cx add ax,bx wrdig ax wrchr ' ' inc dx cmp dx,10 jz exit m3: mov bx,ax add bx,cx wrdig bx wrchr ' ' inc dx cmp dx,10 jz exit jnz m1 Exit: mov ah,4c00h int 21h main endp cseg ends end start

Отправлен: 21.12.2008, 10:20 Вопрос задал: Нелипин Кирилл Владимирович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Нелипин Кирилл Владимирович! Ваша основная проблема - пытались выводить числа как одну цифру, а это неверно Да и сам алгоритм требовал коррекции :) Программу смотрите в приложении Приложение: wrdig macro dig local div_loop, pr_loop xor cx, cx mov ax, dig mov dl, 10 div_loop: div dl push ax inc cx mov ah, 0 test ax, ax jnz div_loop pr_loop: pop ax mov dl, ah add dl, 30h mov ah, 2 int 21h loop pr_loop endm wrchr macro char mov ah,2 mov dl, char int 21h endm assume cs:cseg, ds:cseg cseg segment org 100h start: mov di, 1 wrdig di wrchr ' ' mov si, 1 wrdig si wrchr ' ' mov bx, 2 m1: mov ax, di mov di, si add si, ax wrdig si wrchr ' ' inc bx cmp bx, 10 jb m1 Exit: mov ax,4c00h int 21h cseg ends end start --------- Удачи!

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

Вопрос № 155.203

пожалуйста помогите!!! написать программу, которая принимает два числа в щестнадцатиричной системе исчисленияи на выходе выдает их сумму

Отправлен: 21.12.2008, 12:01 Вопрос задала: нижник анна александровна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, нижник анна александровна! Программа в приложении вводит два hex числа (размерностью 2 байта - слово), складывает и выводит результат в hex виде. При этом проверяется корректность ввода (при вводе не hex-цифры ввод обрывается) Удачи! Приложение: .model tiny .data max db 5 len db 0 hex db 5 dup (?) input1 db 'Enter first hex number : $' input2 db 0dh,0ah,'Enter second hex number : $' output db 0dh,0ah,'Sum = $' .code .186 .startup lea dx, input1 call GetHex mov bx, ax lea dx, input2 call GetHex add bx, ax lea dx, output call PutHex mov ax, 4c00h int 21h ; PutHex proc mov ah, 9 int 21h mov al, bh call PutHexByte mov al, bl PutHexByte: push ax shr al, 4 call PutHexDigit pop ax and al,0fh PutHexDigit: add al,90h daa adc al,040h daa mov dl, al mov ah, 2 int 21h ret PutHex endp ; GetHex proc mov ah, 9 int 21h lea dx, max mov ah, 0ah int 21h lea si, hex xor di, di xor cx, cx mov cl, len jcxz GetHex_ret mov ah, 0 FLoop: lodsb cmp al, '0' jb GetHex_ret cmp al, '9' ja abcdef sub al, '0' jmp CalcNumber abcdef: and al, 0dfh cmp al, 'A' jb GetHex_ret cmp al, 'F' ja GetHex_ret sub al, 'A'-10 CalcNumber: shl di, 4 and al, 0fh or di, ax loop FLoop GetHex_ret: mov ax, di ret Gethex endp end --------- Удачи!

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

Вопрос № 155.224

В поле байт найти порядковый номер последнего числа,являюегося полным квадратом.

Отправлен: 21.12.2008, 14:52 Вопрос задал: Blackrider07 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Blackrider07! Примерное решение в приложении Приложение: .model tiny .data string db 13, 121, 16, 23, 155, 225, 10 len equ $-string str_no_square db 'Square not found$' str_square_found db 'Last square is $' str_num db ' in $' str_last db ' position$' .code .startup ;Ищем последний элемент, являющийся полным квадратом, ; значит будем идти с конца mov si, len-1 ;индекс последнего элемента search_loop: mov bl, string[si] ;очередной элемент call cmp_square ;проверим, является ли полным квадратом jz result ;да! - идем на вывод результатов sub si, 1 ;подготавливаем индекс для следующей итерации jnz search_loop ;дошли до начала or si, 1 ;чтобы флаг Z был сброшен! - ничего не найдено result: jnz no_square ;на вывод сообщения, что не найдено lea dx, str_square_found ;Вывод 'Last square is ' mov ah, 9 int 21h mov al, string[si] ;выводим элемент (225) call print_num mov dl, '=' ;и чему он равен (=15*15) mov ah, 2 int 21h mov al, cl call print_num mov dl, '*' mov ah, 2 int 21h mov al, cl call print_num lea dx, str_num ;in mov ah, 9 int 21h lea ax, [si+1] ;номер строки (увеличенный на 1) call print_num lea dx, str_last ;position mov ah, 9 int 21h jmp exit no_square: lea dx, str_no_square ;не найдено mov ah, 9 int 21h exit: .exit 0 ; print_num proc ;вывод числа из al push cx xor cx, cx mov ah, 0 mov bl, 10 dloop: div bl push ax inc cx mov ah, 0 test ax, ax jnz dloop ploop: pop ax mov dl, ah or dl, '0' mov ah, 2 int 21h loop ploop pop cx ret print_num endp ; cmp_square proc ;проверяем, является ли bl полным квадратом xor cx, cx ;пробежим по 0**2-15**2 и сравнии с bl search_square_loop: mov al, cl mul al cmp al, bl je cmp_square_ret ;равно! inc cx cmp cx, 16 jb search_square_loop test cx, cx ;чтобы флаг Z был сброшен cmp_square_ret: ret cmp_square endp ; end --------- Удачи!

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

Вопрос № 155.230

Уважаемые эксперты, составить программу с моделью памяти small, которая формирует новый массив, исключая из исходного все символы " ; " . Исходный массив содержит 14 однобайтных символов.

Отправлен: 21.12.2008, 15:42 Вопрос задал: Dagra (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Dagra! Посмотрите программку в приложении... Приложение: .model small .data src db 'asd;asd;;ert;t' ;исходная строка dst db 14 dup (?) ;сюда запишем результат .code .startup mov ax, @data mov ds, ax ;проинициализируем сегментные регистры mov es, ax lea si, src ;адрес исходной строки lea di, dst ;адрес результата mov cx, 14 ;длина исходной строки copy_loop: lodsb ;очередной символ al = [si], si=si+1 cmp al ';' ;сравним с ';' je copy_next ;равно - не пишем stosb ;[di] = al, di=di+1 copy_next: loop copy_loop ;обработаем всю строку mov ax, 4c00h ;выход int 21h end --------- Удачи!

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

Вопрос № 155.233

тип ассемблера - masm 6.12 задача: Дана запись с именем NOTE, содержащая следующие поля: ∙ Фамилия, имя, ∙ Номер телефона, ∙ Дата рождения (массив из трех чисел) Написать программу, которая выполняет следующие действия: ∙ Ввод с клавиатуры данных из 8 элементов типа NOTE, и зане- сение их в файл данных ∙ Чтение данных из файла и вывод их на экран ∙ вывод в другой файл информации о людях, чьи дни рождения приходятся на месяц, значение которого введено с клавиатуры (если таких нет – вывести об этом сообщение) запранее благодарю

Отправлен: 21.12.2008, 15:55 Вопрос задал: Xaxa1 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Xaxa1! Решение в приложении. Удачи! Приложение: .model tiny DATE struc day db 3 dup (?) month db 3 dup (?) year db 3 dup (?) ;год - 2 цифры DATE ends NOTE struc sName db 32 dup (?) ;Имя, фамилия sPhone db 12 dup (?) ;Телефон birthday DATE <> ;день рождения NOTE ends .data? mans db 8 * (size DATE) dup (?) ; 8 записей NOTE .data ;буфер для приема строки с клавиатуры max db 32 ;макс размер len db 0 ;принятій размер buffer db 32 dup (?) ;собственно буфер fName db 'base.dat',0 fSName db 'search.dat',0 menu db 'Enter: 1. Fill base',0dh,0ah db ' 2. Read all base',0dh,0ah db ' 3. Search from base',0dh,0ah db ' 4. Exit',0dh,0ah db 'Your choice : $' StrNoBase db 'Base not found',0dh,0ah, '$' StrNotFound db 'Month not found', 0dh, 0ah, '$' StrRecord db 0ah,'Enter record ' StrRecordNum db '1', 0dh, 0ah, '$' StrGetName db 'Name : $' StrGetPhone db 0ah,'Phone: $' StrBirthday db 0ah,'Enter Birthday', 0dh, 0ah, '$' StrGetDay db 'Day : $' StrGetMonth db 0ah,'Month: $' StrGetYear db 0ah,'Year : $' fRead db 0 ;флаг того, что файл или создан, или прочитан bCount db 0 ;количество найденных записей .code .startup MainLoop: lea dx, menu ;меню на экран mov ah, 9 int 21h lea bx, mans ;адрес массива сруктур WaitKey: mov ah, 0 ;ждем выбор int 16h cmp al, '1' ;проверим на корректность 1-4 jb WaitKey cmp al, '4' ja WaitKey push ax mov dl, al ;выведем mov ah, 2 int 21h mov dl, 0dh int 21h mov dl, 0ah int 21h pop ax cmp al, '1' je FillBase ;Заполним базу cmp al, '2' je ReadBase ;Прочитаем cmp al, '3' je SearchBase ;Поиск по дате mov ax, 4c00h ;4 - выход int 21h FillBase: lea bx, mans ;адрес массива структур mov cx, 8 ;8 элементов FillBaseLoop: call GetData ;Запрос и ввод данных одной записи add bx, size NOTE ;на следующий элемент loop FillBaseLoop call WriteFile ;запишем в файл mov fRead, 1 ;Есть данные в памяти jmp MainLoop ;на меню ReadBase: call ReadFile ;прочитаем из файла jc MainLoop ;если ошибка, например, нет файла, то на начало lea bx, mans ;адрес массива структур mov cx, 8 ;8 элементов ReadBaseLoop: push cx call PrintData ;выведем на экран add bx, size NOTE ;на следующий элемент pop cx loop ReadBaseLoop mov fRead, 1 ;Есть данные в памяти jmp MainLoop ;на меню NoBase: lea dx, StrNoBase ;Нет базы mov ah, 9 int 21h jmp MainLoop SearchBase: call SearchMonth ;поиск записей с введенным месяцем jnz MainLoop ;Z=1 - не найдено lea dx, StrNotFound ;не найдено mov ah, 9 int 21h jmp MainLoop GetData proc ;ввод данных push cx lea dx, StrRecord ;Enter record mov ah, 9 int 21h lea dx, StrGetname ;Name mov ah, 9 int 21h mov max, 32 ;макс 31 символа + 0dh lea dx, max mov ah, 0ah int 21h ;вводим имя lea di, [bx].NOTE.sName lea si, buffer xor cx, cx mov cl, len rep movsb ;копируем mov byte ptr [di],0 ;закрываем нулем lea dx, StrGetPhone mov ah, 9 int 21h ;phone mov max, 12 ;макс 11 символа + 0dh lea dx, max mov ah, 0ah int 21h ;вводим телефон lea di, [bx].NOTE.sPhone lea si, buffer xor cx, cx mov cl, len rep movsb ;копируем mov byte ptr [di],0 ;закрываем нулем lea dx, StrBirthday ;enter birthday mov ah, 9 int 21h lea dx, StrGetDay ;day mov ah, 9 int 21h mov max, 3 ;макс 2 символа + 0dh lea dx, max mov ah, 0ah int 21h ;вводим день lea di, [bx].NOTE.birthday lea di, [di].DATE.day lea si, buffer xor cx, cx mov cl, len rep movsb ;копируем mov byte ptr [di],0 ;закрываем нулем lea dx, StrGetMonth ;month mov ah, 9 int 21h lea dx, max mov ah, 0ah int 21h ;вводим месяц lea di, [bx].NOTE.birthday lea di, [di].DATE.month lea si, buffer xor cx, cx mov cl, len rep movsb ;копируем mov byte ptr [di],0 ;закрываем нулем lea dx, StrGetYear ;year mov ah, 9 int 21h lea dx, max mov ah, 0ah int 21h ;вволим год 92 цифры lea di, [bx].NOTE.birthday lea di, [di].DATE.year lea si, buffer xor cx, cx mov cl, len rep movsb ;копируем mov byte ptr [di],0 ;закрываем нулем inc StrRecordNum pop cx ret GetData endp WriteFile proc ;запись в файл lea dx, fName ;имя файла mov ah, 3ch ;создаем xor cx, cx ;атрибут int 21h mov bx, ax ;handle lea dx, mans ;буфер mov cx, 8 * (size NOTE);длина mov ah, 40h ;ф-я записи int 21h mov ah, 3eh ;закрываем int 21h ret WriteFile endp ReadFile proc ;читаем из файла lea dx, fName ;имя файла mov ax, 3d00h ;открываем на чтение int 21h jc ReadFile_ret ;ошибка - нет файла mov bx, ax ;handle lea dx, mans ;куда читаем mov cx, 8 * (size NOTE);длина mov ah, 3fh ;ф-я чтения int 21h mov ah, 3eh ;закрыаем int 21h ReadFile_ret: ret ReadFile endp PrintData proc ;вывод на экран форматированной строки push bp sub sp, 100h mov bp, sp ;выделим буфер в стеке call FormRecord ;формируем данные в буфере [bp] mov al, '$' ;добавим $ для вывода по 9 ф-и stosb mov dx, bp mov ah, 9 int 21h ;на экран add sp, 100h pop bp ret PrintData endp WriteData proc ;вывод в файл форматированной строки push bp sub sp, 100h ;буфер в стеке mov bp, sp call FormRecord ;формируем данные в буфере [bp] push bx lea dx, fSName ;имя файла для найденных записей mov ax, 3d02h ;открываем на запись int 21h jnc SetSeek ;если ок, то дальше mov ah, 3ch ;если файла нет, создаем xor cx, cx int 21h SetSeek: mov bx, ax ;handle mov ax, 4202h ;установим указатель на конец файла xor cx, cx ;будем добавлять в конец файла xor dx, dx int 21h mov dx, bp ;пишем в файл mov ah, 40h mov cx, di sub cx, bp int 21h mov ah, 3eh ;закрываем int 21h pop bx add sp, 100h pop bp ret WriteData endp FormRecord proc ;формируем буфер с записью mov di, bp mov cx, size NOTE + 0fh mov al, ' ' rep stosb ;"опробелим" ;bx - адрес записи lea si, [bx].NOTE.sName ;из базы lea di, [bp].NOTE.sName ;в буфере PrintNameLoop: lodsb cmp al, 0 je PrintPhone stosb ;копируем имя jmp PrintNameLoop PrintPhone: lea si, [bx].NOTE.sPhone lea di, [bp].NOTE.sPhone PrintPhoneLoop: lodsb cmp al, 0 je PrintDate stosb ;телефон jmp PrintPhoneLoop PrintDate: lea si, [bx].NOTE.birthday lea si, [si].DATE.day lea di, [bp].NOTE.birthday lea di, [di].DATE.day PrintDayLoop: lodsb cmp al, 0 je PrintMonth stosb ;день jmp PrintDayLoop PrintMonth: mov al, '.' ;'.' stosb lea si, [bx].NOTE.birthday lea si, [si].DATE.month PrintMonthLoop: lodsb cmp al, 0 je PrintYear stosb ;месяц jmp PrintMonthLoop PrintYear: mov al,'.' ;'.' stosb lea si, [bx].NOTE.birthday lea si, [si].DATE.year PrintYearLoop: lodsb cmp al, 0 je PrintCR stosb ;год jmp PrintYearLoop PrintCR: mov ax,0a0dh ;перевод строки stosw ret FormRecord endp SearchMonth proc ;поиск в базе по месяцу lea dx, fSName ;удалим старый файл mov ah, 41h int 21h mov bCount, 0 ;обнулим счетчик найденных файлов cmp fRead, 0 ;данные есть в памяти? je SearchMonth_ret ;нет - уходим lea dx, StrGetMonth ;запрос месяца mov ah, 9 int 21h mov max, 3 lea dx, max mov ah, 0ah ;вводим int 21h mov dx, word ptr buffer ;два байта строки cmp dl, 0dh ;пустая строка? je SearchMonth_ret ;выходим cmp dh, 0dh ;1 символ? jne SearchMonthContinue mov dh, 0 ;обнулим SearchMonthContinue: lea bx, mans ;массив записей mov cx, 8 ;количество SearchMonthLoop: lea di, [bx].NOTE.birthday lea di, [di].DATE.month cmp dx, word ptr [di] ;сравним месяц jne SearchMonthNext ; на продолжение inc bCount ;увеличим счечик push cx pop dx call WriteData ;запишем на диск pop dx pop cx SearchMonthNext: add bx, size NOTE loop SearchMonthLoop ;по всем записям SearchMonth_ret: cmp bCount, 0 ;Если не найдено ничего, то Z будет 1 ret SearchMonth endp end --------- Удачи!

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

Вопрос № 155.259

Здравствуйте, эксперты! Помогите, пожалуйста, составить программу для процессора Intel 286, которая вводит строку в сегмент данных и выводит. Функция вывода - 02, ввод - 01, вывод - 06

Отправлен: 21.12.2008, 20:10 Вопрос задала: Agata (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Agata! Вас устроит программа в приложении? Приложение: .model small .data input db 'Enter string: ', 0 output db 0dh,0ah,'Your string: ', 0 string db 128 dup (0) .code .startup mov ax, @data mov ds, ax mov es, ax PrLoop: lea si, input call PrString ;напишем Enter stringЖ GetKeys: lea di, string ;сюда будем писать xor cx, cx ;счетчик символов KeysLoop: mov ah, 1 int 21h cmp al, 0dh ;выходим по Enter je PrStr cmp cx, 128 ;проверим на максимум (строка имет длину 128 байт) jae KeysLoop stosb ;сохраним inc cx ;посчиаем jmp KeysLoop PrStr: mov byte ptr [di], 0;закроем пробелом lea si, output ;напишем Your string: call PrString lea si, string ;выведем введенную строку call PrString mov ah, 2 ;перевод строки mov dl, 0dh int 21h mov dl, 0ah int 21h mov ah, 1 ;ждем любую клавишу int 21h mov ax, 4c00h int 21h PrString proc ;вывод строки до заверщающего 0 mov dl, [si] inc si cmp dl, 0 je PrStringRet mov ah, 2 int 21h jmp PrString PrStringRet: ret PrString endp end --------- Удачи!

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

© 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