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

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

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

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

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

Boriss Статус: Профессор Рейтинг: 25 ∙ повысить рейтинг >>

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

Выпуск № 1151
от 02.01.2009, 13:35

Вопрос № 155991: Здравствуйте!Нужна помощь в написании программы. <b>Дана произвольная строчка. Нужно переставить все пробелы в центр, не используя дополнительных строк, и вывести количество пробелов на печать.</b>...

Вопрос № 155.991

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

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Klayd! Примерная реализация в приложении. Небольшие ограничения: 1) Нельзя при вводе использовать $ 2) Строка просматриваются с двух сторон и только до середины строки (если будет строка, у которой с одной стороны больше половины пробелов, то они так останутся с края) Приложение: .model tiny .data buffer label byte max db 128 len db 0 string db 128 dup (?) prompt db 'Enter string : $' result db 0dh,0ah,'Result : $' count db 0dh,0ah,'Count of spaces : $' .code .startup lea dx, prompt ;подсказка для ввода mov ah, 9 int 21h lea dx, buffer ;запрос строки mov ah, 0ah int 21h lea si, string ;адрес строки xor bx, bx mov bl, len ;длина строки mov byte ptr [bx+si],'$' ;для вывода строки по 9 функции lea bx, [bx+si-1] ;адрс последнего байта lea cx, [bx+si] shr cx, 1 ;адрес середины сроки ;si - адрес с начала строки ;bx - адрес с конца строки MLoop: cmp si, bx ;прошли ли всю строку (с двух сторон) jae output ;на вывод cmp byte ptr [si], ' ' ;проверим на пробел jne Right ;на просмотр с конца ;ищем "непробел" lea di, [si+1] ;адрес следующего байта SLeft: cmp di, cx ;проверим на середину строки ja Right ;если в середине, то тут и оставим cmp byte ptr [di], ' ' ;если байт пробел je chLNext ;то на следующий адрес xchg al, [si] ;обмениваем байты xchg al, [di] ;[si] и [di] xchg al, [si] jmp Right ;на просмотр с конца chLNext:inc di ;инкремент адреса следующего байта jmp SLeft ;продолжим поиск Right: cmp byte ptr [bx], ' ' ;тоже самое с конца jne MNext ; только движемся назад lea di, [bx-1] SRight: cmp di, cx jb MNext cmp byte ptr [di], ' ' je chRNext xchg al, [bx] xchg al, [di] xchg al, [bx] jmp MNext chRNext:dec di jmp SRight MNext: inc si ;изменяем адреса dec bx jmp MLoop ;повторяем, пока не пройдем всю строку output: lea dx, result ;вывод на экран mov ah, 9 int 21h lea dx, string mov ah, 9 int 21h lea si, string ;посчитаем пробелы xor cx, cx SearchSpaceLoop: lodsb cmp al, '$' ;конец строки? je PrintCount cmp al, ' ' jne SearchSpaceNext inc cx ;инкремент количества SearchSpaceNext: jmp SearchSpaceLoop PrintCount: lea dx, count ;вывод на экран количества пробелов mov ah, 9 int 21h mov ax, cx ;пребразуем число пробелов в строку mov bl, 10 xor cx, cx 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 mov ah, 0 ;чтобы сразу не ушло с экрана int 16h .exit 0 end --------- Удачи!

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

Вопрос № 156.000

Здраствуйте Уважаемые эксперты. У меня два вопроса по утройству памяти. Не знаю более подходящей рассылки чем эта. Вопросы: 1. Определите физический адрес ячеек памяти: 0F0Fh:0122h; 0A00h:10CCh; A920h:10C1h. 2. Определите размер файла в памяти, если первый и последний байт имеют логические адреса: 0b20h:0000h, 1200h:00D0h Заранее благодарен.

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Molodec! 0F0Fh:0122h = 0F0Fh * 10h + 0122h = 0f0f0h + 0122h = 0f212h 0A00h:10CCh = 0A00h * 10h + 10CCh = 0a000h + 10cch = 0b0cch A920h:10C1h = a920h * 10h + 10c1h = a9200h + 10c1h = aa2c1h 0b20h:0000h = 0b200h 1200h:00D0h = 120d0h size = 120d0h - 0b200h + 1 = 6ED1H --------- Удачи!

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

Вопрос № 156.090

Уважаемые эксперты, напишите пожалуйста 2 следующие программы в текстовом режиме под DOS на TASM: 1) В центре экрана расположено два «шарика». При нажатии на кнопки со стрелками вверх и вниз, первый начинает двигаться вверх или вниз соответственно, оставляя за собой на экране след. При нажатии на кнопки со стрелками вправо и влево, второй начинает двигаться вправо или влево соответственно, НЕ оставляя за собой на экране след. При достижении шариком края экрана, он останавливается. 2) В центре экрана расположен «шарик». При нажатии на кнопки со стрелками влево и вправо, он начинает двигаться влево или вправо соответственно, НЕ оставляя за собой на экране след. При достижении шариком края экрана, он отражается и меняет своё направление движения на противоположное, при этом он также меняет свой цвет на любой другой. Продемонстрировать, как минимум, пять отражений шарика (пять проходов).

Отправлен: 28.12.2008, 12:15 Вопрос задала: Егорова Катерина Федоровна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Егорова Катерина Федоровна! Обе программы в приложении В первой "шарик" движется только когда коавиши нажаты Во второй "шарик" начинает движение самостоятельно после нажатия на клавишу. Приложение: 1)-------------------------------------------------------- .model tiny .code .startup mov ax, 0003h int 10h mov ax, 3508h ;будем рисовать в прерывании таймера int 21h mov word ptr old08, bx ;сохраним старый обработчик mov word ptr old08+2, es lea dx, new08 ;новый mov ax, 2508h int 21h mov ax, 3509h ;перехватим вектор прерывания клавиатуры int 21h mov word ptr old09, bx mov word ptr old09+2, es lea dx, new09 ;новый mov ax, 2509h int 21h wait_command: mov ah, 0 ;выход по Esc int 16h cmp ah, 1 jne wait_command finish: lds dx, old08 ;восстановим перехваченные вектора прерываний mov ax, 2508h int 21h lds dx, cs:old09 mov ax, 2509h int 21h .exit 0 PAUSE_COUNT equ 9 ;движение ~2 раза в секунду old08 dd 0 ;старый 08 вектор (таймер) old09 dd 0 ;старый 09 вектор (клавиатура) pos1 dw 0c27h ;позиция первого "шарика" pos2 dw 0c28h ;позиция второго "шарика" symb dw 0b6fh ;'o' цвета циан count db PAUSE_COUNT ;счетчик срабатывания движения fUpDo db 0 ;шаг движения вверх/вниз fLeRi db 0 ;шаг движения влево/вправо new08: pushf call cs:[old08] ;отработаем старый вектор sub cs:count, 1 jz new08_next iret ;ждем, когда отсчитает нужное число раз new08_next: mov cs:count, PAUSE_COUNT ;проинициализируем счетчик push es di ax mov ax, 0b800h ;пишем напрямую в видеопамять mov es, ax mov al, cs:fUpDo ;добавим шаг вверх/вниз add al, byte ptr cs:[pos1+1] js print_symbol1 ;в верхней позиции cmp al, 24 ja print_symbol1 ;и нижней ничего не далаем mov byte ptr cs:[pos1+1], al print_symbol1: mov al, 80 ;вычисляем позицию mul byte ptr cs:[pos1+1] add al, byte ptr cs:[pos1] adc ah, 0 shl ax, 1 mov di, ax mov ax, cs:symb ;выводим символ mov es:[di], ax print_second: cmp cs:fLeRi, 0 ;если нет движения, то просто рисуем je print_symbol2 cmp byte ptr cs:[pos2],0 ;слева je print_symbol2 cmp byte ptr cs:[pos2],79 ;и справа je print_symbol2 ;просто рисуем mov al, 80 ;вычисляем старую позицию mul byte ptr cs:[pos2+1] add al, byte ptr cs:[pos2] adc ah, 0 shl ax, 1 mov di, ax mov es:[di], 0720h ;и пишем пробел (вытираем) mov al, cs:fLeRi add byte ptr cs:[pos2], al ;меняем позицию print_symbol2: mov al, 80 ;вычисляем новую позицию mul byte ptr cs:[pos2+1] add al, byte ptr cs:[pos2] adc ah, 0 shl ax, 1 mov di, ax mov ax, cs:symb ;и пишем символ 'o' mov es:[di], ax new08_ret: pop ax di es new08_iret: iret new09: ;прерывание клавиатуры push ax in al, 60h ;прочитаем код test al, 80h ;код отпускания? jnz release_key cmp al, 48h ;вверх jne cmp_down mov cs:fUpDo, -1 ;шаг вверх jmp new09_ret cmp_down: cmp al, 50h ;вниз jne cmp_left mov cs:fUpDo, 1 ;шаг вниз jmp new09_ret cmp_left: cmp al, 4bh ;влево jne cmp_right mov cs:fLeRi, -1 ;шаг влево jmp new09_ret cmp_right: cmp al, 4dh ;вправо jne new09_ret mov cs:fLeRi, 1 ;шаг вправо jmp new09_ret release_key: ;по отпусканию обнуляем соответствующий шаг cmp al, 48h+80h ;вверх je UpDownUp cmp al, 50h+80h ;вниз je UpDownUp cmp al, 4bh+80h ;влево je LeftRightUp cmp al, 4dh+80h ;вправо jne new09_ret LeftRightUp: mov cs:fLeRi, 0 ;в результате 'o' замрет jmp new09_ret UpDownUp: mov cs:fUpDo, 0 ;аналогично new09_ret: pop ax jmp cs:[old09] ;на старый обработчик end 2)----------------------------------------------------------------------------- .model tiny .code .startup mov ax, 0003h int 10h mov ax, 3508h ;Будем рисовать "шарик" в прерывании таймера int 21h mov word ptr old08, bx ;сохраним старый вектор mov word ptr old08+2, es lea dx, new08 ;установим новый mov ax, 2508h int 21h mov ax, 3509h ;перехватим и вектор клавиатуры int 21h mov word ptr old09, bx mov word ptr old09+2, es lea dx, new09 ;новый mov ax, 2509h int 21h wait_command: mov ah, 0 ;выходим по Escape int 16h cmp ah, 1 jne wait_command finish: lds dx, old08 ;восстановим вектора mov ax, 2508h int 21h lds dx, cs:old09 mov ax, 2509h int 21h .exit 0 PAUSE_COUNT equ 9 ;движение ~2 раза в секунду old08 dd 0 old09 dd 0 pos dw 0c27h ;позиция в середине экрана symb dw 0b6fh ;буковка 'o' с цветом циан count db PAUSE_COUNT ;счетсчик входа в прерывание таймера fLeRi db 0 ;флаг напрвавления new08: pushf ;прерывания таймера call cs:[old08] ;вызовем старый обработчик sub cs:count, 1 ;декремент счетчика jz new08_next iret ;отрабатываем 1 раз из PAUSE_COUNT=9 (раз в полсекунды) new08_next: mov cs:count, PAUSE_COUNT ;восстановим счетчик push es di ax mov ax, 0b800h ;будем писать в видеопамять напрямую mov es, ax cmp cs:fLeRi, 0 ;если не задано, то просто нарисовать je print_symbol cmp byte ptr cs:[pos],0 ;если на левой границе или je change_color cmp byte ptr cs:[pos],79 ;на правой, то меняем цвет и направление jb clear_old ;иначе на вытирание символа в старой позиции change_color: neg cs:fLeRi ;меняем флаг направления add byte ptr cs:[symb+1],02h;меняем цвет and byte ptr cs:[symb+1],0fh;чтобы было 01h-0fh clear_old: mov al, 80 ;вычисляем позицию mul byte ptr cs:[pos+1] add al, byte ptr cs:[pos] adc ah, 0 shl ax, 1 mov di, ax mov es:[di], 0720h ;пробел mov al, cs:fLeRi add byte ptr cs:[pos], al ;изменим колонку print_symbol: mov al, 80 ;вычислим новую позицию mul byte ptr cs:[pos+1] add al, byte ptr cs:[pos] adc ah, 0 shl ax, 1 mov di, ax mov ax, cs:symb ;нарисуем 'o' mov es:[di], ax new08_ret: pop ax di es new08_iret: iret new09: ;прерывание клавиатуры push ax in al, 60h ;прочитаем код cmp al, 4bh ;стрелка влево? jne cmp_right mov cs:fLeRi, -1 ;приращение колонки jmp new09_ret cmp_right: cmp al, 4dh ;стрелка вправо? jne new09_ret mov cs:fLeRi, 1 ;приращение колонки new09_ret: pop ax jmp cs:[old09] ;на старый обработчик end --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 30.12.2008, 01:36 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 240027 на номер 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