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

Выпуск № 749
от 13.05.2007, 16:35

Вопрос № 85.886

Извините за дублирование, но предыдущий акк заблокировали( Здравствуйте Дорогие Эксперты! У меня вопрос. Мне нужно в программе вывести на экран слова в столбик, учитывая, что я ввёо их ранее. Т.е., как я понял, нужно, чтобы программа находила в символах что я ввожу код пробела и после того, как его нашла, курсор переходил на другую строку и выводил слово? Вот полный текст: ввести с клавы строку, сосотоящую из нескольких слов. Вывести на экран каждое слово с новой строки, т.е. в столбик. Заранее спасибо за помощь

Отправлен: 07.05.2007, 16:41 Вопрос задал: Vasia_Mamedov (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Vasia_Mamedov! Смотрите приложение. Вывод происходит в режиме телетайпа(функция 29h) Удачи! Приложение: MODEL small stack 50 DATASEG myString db 100 db ? db 100 dup(?) CODESEG ;настройка на сегменты start: mov ax,@DATA mov ds,ax mov es,ax ;вводим строку mov ah,0ah mov dx,offset myString int 21h ;просто чистим экран mov ax,0600h mov bh,07h xor cx,cx mov dx,2379h int 10h ;настраиваемся для вывода xor cx,cx mov al,myString+1 mov cl,al mov si,offset myString+2 cld ;цикл вывода out_loop: lodsb cmp al,' ' jnz out_char ;переходим на новую строку mov al,13 int 29h mov al,10 ;выводим символ out_char: int 29h loop out_loop ;выход в дос mov ah,4ch int 21h end start --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 07.05.2007, 20:10

Отвечает: P@lach Здравствуйте, Vasia_Mamedov! Вот прога! :) cseg segment assume cs:cseg,ds:cseg,es:cseg,ss:cseg org 100h _code: mov dx,offset mes1 mov ah,9 int 21h mov bx,offset st_r ent_str: ;Ввод символов mov ah,10h int 16h cmp al,0dh je end_str;Если нажали Enter то выходим из ввода символов xor ah,ah mov byte ptr [bx],al inc bx mov dl,al mov ah,2 int 21h jmp ent_str end_str: mov dx,offset mes2 mov ah,9 int 21h mov bx,offset st_r out_str1:;вывод слов на новой строке mov byte ptr dl,[bx] cmp dl,0 je exit cmp dl,20h je new_str mov ah,2 int 21h inc bx jmp out_str1 new_str: mov dx,offset mes2 mov ah,9 int 21h inc bx jmp out_str1 exit: ret mes1 db 'Enter string:',0dh,0ah,'$';Введите строку mes2 db 0dh,0ah,'$' st_r db 255 dup(0) cseg ends end _code

Ответ отправил: P@lach (статус: 3-ий класс) Ответ отправлен: 08.05.2007, 11:20

Отвечает: An42 Здравствуйте, Vasia_Mamedov! Да, вы правильно поняли пример ниже Удачи Приложение: title № 85886 code segment assume cs:code org 100h begin: jmp main ;---- mesmax db 255 meslen db ? mesptr db 255 dup(' ');Буфер ввода для функции 0ah nstr db 0dh,0ah,'$' ;--- main: mov ah,0ah mov dx,offset mesmax int 21h mov bx,offset mesptr call da10pr cicl: cmp meslen,0 ;если равно нулю то выход je exit cmp byte ptr[bx],20h;если символ пробел jne m10 ; то переходим в процедуру call da10pr ; и переводим строку jmp m20 m10: call da2pr ;Если символ не пробел, то выводим на экран m20: dec meslen inc bx jmp cicl exit: mov ah,4ch int 21h da2pr proc mov ah,02 mov dl,byte ptr[bx] int 21h ret da2pr endp da10pr proc mov ah,09 lea dx,nstr int 21h ret da10pr endp code ends end begin

Ответ отправил: An42 (статус: 2-ой класс) Ответ отправлен: 08.05.2007, 16:10

Вопрос № 85.998

Подскажите пожалуйста, как сделать программу для ввода с клавиатуры шестизначного числа в 2-ой системе счисления, при этом, сформировав значение этого числа в памяти и произвести вывод этого числа на экран дисплея.

Отправлен: 08.05.2007, 13:29 Вопрос задал: Ketor (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ketor! т.к. Вы не указали в какой виде выводить результат в приложении программа которая вводит 6(или меньше если нажмете ВВОД) цифр 2-ой системы и потом выводит в 2-ой,16-ой и 10-ой системах. Если в строке start: mov cx,6 вместо 6 поставить 16, то можно переводить числа в диапазоне от 0 до 65535 вместо 6:63 Удачи! Приложение: MODEL tiny .186 .code org 100h assume cs:@code ;будем вводить 6 цифр 2-го кода start: mov cx,6 xor dx,dx ;вводим input_numb: mov ah,07h int 21h cmp al,13 jz out_number ;проверяем введеную цифру только 0 или 1 остальное игнорируем cmp al,'0' jl input_numb cmp al,'1' jg input_numb ;0 или 1 выводим mov bl,al int 29h ;формируем число and bx,01h shl dx,1 add dx,bx loop input_numb ;выводим в 2-ой форме out_number: call out_bin_word ;выводим в 16-ой форме call out_hex_word ;выводим в 10-ой форме call out_dec ;выходим из программы ret ;вывод в 2-ой форме out_bin_word: mov al,13;переводим строку int 29h mov al,10 int 29h mov cx,16;выводим 16 бит числа mov bx,dx ;сам вывод out_bin: xor al,al shl bx,1 adc al,'0' int 29h loop out_bin ret ;вывод в 16-ой форме out_hex_word: mov al,13;перевод строки int 29h mov al,10 int 29h mov al,dh;выводим старший байт call out_hex_byte mov al,dl;теперь младший out_hex_byte: push ax;вывод байта shr al,4;старшой половины байта call out_hex_half pop ax;теперь младшую половину out_hex_half: and al,0fh;преобразуем в символ or al,'0' cmp al,3ah;корректируем 16-ю цифру jl out_hex add al,7 out_hex: int 29h ret ;вывод в 10-ой форме out_dec: mov al,13;перевод строки int 29h mov al,10 int 29h xor cx,cx mov ax,dx mov bx,10 out_dec_div: xor dx,dx div bx or dx,30h;остаток от деления push dx;сохраняем в стеке inc cx;считаем кол-во цифр or ax,ax;пока не 0 делим jnz out_dec_div out_dec_out: pop ax;извлекаем из стека int 29h;и выводим псчитанное кол-во цифр loop out_dec_out ret end start --------- И только наступив на грабли мы преобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Студент) Ответ отправлен: 08.05.2007, 17:00

Отвечает: An42 Здравствуйте, Ketor! В программе пояснения думаю, что будет понятно Удачи Приложение: title 85998 stacksg segment stack dw 32 dup(?) stacksg ends ;--- data segment string db 6 dup(' ');Буфер ввода двоичного чила 6-ть знаков shest db ? ;Сформированное шест.число tabl db 0,'0' ;Таблица перевода шестнад. в ascii код db 1,'1' db 2,'2' db 3,'3' db 4,'4' db 5,'5' db 6,'6' db 7,'7' db 8,'8' db 9,'9' db 0ah,'a' db 0bh,'b' db 0ch,'c' db 0dh,'d' db 0eh,'e' db 0fh,'f' messh db 0dh,0ah,'Число в шестнадцатиричном виде' shesstr db 2 dup(' '),'$' ;Буфер для перевода в ascii-код data ends ;--- code segment assume cs:code,ds:data,ss:stacksg,es:data begin: mov ax,data mov ds,ax sub cx,cx mov cl,6 ;Вводим 6-ть цифр, не меньше, не больше lea si,string ;Ввод 6-и символов b10: mov ah,0 int 16h cmp al,31h ;Если меньше 30h то звонок jbe b20 call ah02 jmp b10 ; и повтор ввода b20: ; иначе проверка на больше 31h cmp al,30h jae b30 call ah02 jmp b10 b30: ;Вывод на экран вводимого символа mov ah,02 mov dl,al int 21h ;Преобразование в двоичное число and al,0fh mov [si],al inc si dec cl jne b10 ;Получаем шестнадцатиричное число sub ax,ax mov ch,2 mov cl,05 lea si,string c10loop: add al,byte ptr[si] mul ch inc si dec cl jne c10loop add al,byte ptr[si] mov shest,al call asciicod ;Процедура перевода шест.числа в ascii-код ;Вывод результата на экран mov ah,09 lea dx,messh int 21h mov ah,4ch int 21h ;-- Процедуры ah02 proc mov ah,02 mov dl,07 int 21h ret ah02 endp asciicod proc mov si,offset tabl mov di,offset shesstr mov cl,04 mov al,shest ;Ищем совпадения в таблице shl ax,cl shr al,cl mov ch,02 mov cl,16 a10loop: cmp ah,byte ptr[si] jne a20 inc si mov ah,byte ptr[si] mov byte ptr[di],ah ;если есть то сохраняем ascii-код inc di dec ch cmp ch,0 je exitloop mov si,offset tabl mov ah,al mov cl,16 jmp a10loop a20: inc si inc si dec cl jmp a10loop exitloop: ret asciicod endp code ends end begin

Ответ отправил: An42 (статус: 2-ой класс) Ответ отправлен: 09.05.2007, 16:51

Вопрос № 86.011

Программу надо решеть с использованием Int21h помогите ктонить!! Ввести с клавиатуры строку. Ввести с клавиатуры коротенькую строку - шаблон. Найти шаблон во введенной строке. Вывести на экран “ДА”, если шаблон есть и “НЕТ”, если нет.

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

Отвечает: P@lach Здравствуйте, Makes! Вот прога: cseg segment assume cs:cseg,ds:cseg,es:cseg,ss:cseg org 100h _code: mov dx,offset mes1 mov ah,9 int 21h mov bx,offset st_r1 out_str1:;Ввод 1-ой строки mov ah,10h int 16h cmp al,0dh je end_str1 inc j;длина 1-ой строки mov byte ptr [bx],al inc bx mov dl,al mov ah,2 int 21h jmp out_str1 end_str1:;закончили ввод 1-ой строки mov dx,offset mes2 mov ah,9 int 21h mov bx,offset st_r2 out_str2:;Ввод 2-ой строки (шаблона) mov ah,10h int 16h cmp al,0dh je end_str2 inc i;Длина 2-ой строки mov byte ptr [bx],al inc cx mov dl,al mov ah,2 int 21h jmp out_str2 end_str2: mov di,offset st_r1 mov si,offset st_r2 mov byte ptr al,[si] mov byte ptr ah,[di] cmp_1: push di cmp al,ah jne cmp_1_con cmp_2: inc si mov byte ptr al,[si] cmp al,0 je ok inc di mov byte ptr ah,[di] cmp al,ah je cmp_2 cmp_1_con: pop di inc di mov byte ptr ah,[di] cmp ah,0 je error mov si,offset st_r2 mov byte ptr al,[si] jmp cmp_1 ok: mov dx,offset mes3 mov ah,9 int 21h jmp short exit error: mov dx,offset mes4 mov ah,9 int 21h exit: int 20h mes1 db 'Enter string:',13,10,'$' mes2 db 13,10,'Enter other string:',13,10,'$' mes3 db 13,10,'Yes$' mes4 db 13,10,'No$' st_r1 db 255 dup(0) st_r2 db 255 dup(0) i db 0 j db 0 cseg ends end _code

Ответ отправил: P@lach (статус: 3-ий класс) Ответ отправлен: 08.05.2007, 17:14

Отвечает: An42 Здравствуйте, Makes! Высылаю программу по данному вопросу в ней комментарии должно быть понятно Удачи Приложение: title 86011 stseg segment stack dw 32 dup(?) stseg ends ;--- data segment strokamax db 255 ;Буфер для строки ввода strokalen db ? strokaptr db 255 dup(' ') shtampmax db 50 ;Буфер для ввода шаблона shtamplen db ? shtampptr db 50 dup(' ') mesok db '**** OK ****','$' mesno db '**** NO ****','$' stda db 0dh,0ah,'$' data ends ;--- code segment assume cs:code,ds:data,ss:stseg,es:data begin: mov ax,data mov ds,ax mov es,ax ;Вводим строку mov ah,0ah mov dx,offset strokamax int 21h ;Переход на новую строку mov ah,09 mov dx,offset stda int 21h ;Ввод шаблона mov ah,0ah lea dx,shtampmax int 21h ;Переход на новую строку mov ah,09 lea dx,stda int 21h ;Проверка длины строки и шаблона mov al,strokalen cmp al,shtamplen jb error ;Поиск совпадения lea di,strokaptr lea si,shtampptr ;Поиск совпадения 1-го символа шаблона с символом строки sub cx,cx ;Опеделяем длину поиска mov cl,strokalen sub cl,shtamplen cicl: mov ah,byte ptr[di] mov al,byte ptr[si] cmp ah,al ;Если начальное совпадение jne p10 push cx ; сохраняем в стеке push di ; push si ; call p10poisk; и переходим в процедуру далнейшей проверки pop si ;Если совпадения шаблона нет, то pop di ; востанавливаем данные из стека pop cx p10: inc di ; и ищем дальше первое совпадения в строке loop cicl error: mov ah,09 lea dx,mesno int 21h jmp exit exit: mov ah,4ch int 21h p10poisk proc sub cx,cx ;Длина шаблона минус 1 mov cl,shtamplen dec cl inc si inc di ckl: mov ah,byte ptr[di] mov al,byte ptr[si] cmp ah,al jne p20 inc si inc di loop ckl ;Если цикл прошол полностью,то есть совпадения шаблона mov ah,09 ;Выводим сообщение lea dx,mesok ; что мы его нашли int 21h ; и выходим из программы jmp exit p20: ret p10poisk endp code ends end begin

Ответ отправил: An42 (статус: 2-ой класс) Ответ отправлен: 08.05.2007, 17:52

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.52 от 02.05.2007