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

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

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

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

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

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

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

Выпуск № 1174
от 04.02.2009, 01:05

Вопрос № 159058: Программа выполняет следующие действия: - ввод массива целых положительных и отрицательных чисел. - вычисление суммы тех чисел из массива, которые одновременно нечетны и отрицательны; - вывод исходного массива чисел и полученного значен...

Вопрос № 159.058

Программа выполняет следующие действия: - ввод массива целых положительных и отрицательных чисел. - вычисление суммы тех чисел из массива, которые одновременно нечетны и отрицательны; - вывод исходного массива чисел и полученного значения суммы на экран терминала.

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

Отвечает: Boriss Здравствуйте, Alex24! Вот посмотрите в приложении. Немного (совсем немного комментировал) - лучше спросите, что не понятно Ввод каждого числа завершается ENTER Если нужно изменить размерность массива, то ищите в конце и исправьте константу numbers_count Приложение: .model tiny LOCALS @@ JUMPS 386 code org 100h start: mov ax, 3 int 10h ; ввод каждого числа с новой строки mov cx, numbers_count lea di, LastLabel cld @_new_number: lea dx, msg_input mov ah, 9 int 21h CALL inputWord_signed stosw LOOP @@_new_number ; посчет суммы mov cx, numbers_count xor bx, bx lea si, LastLabel @_next: lodsw ; загружаем слово в AX test ax, 1 ; нечетность - проверка младшего бита jz @@_LOOP or ax, ax jns @@_LOOP ; не является отрицательным add bx, ax @_LOOP: mov summ, bx LOOP @@_next ; вывод суммы lea dx, msg_summ mov ah, 9 int 21h mov ax, summ CALL writeWordDEC_signed ; вывод всего массива mov cx, numbers_count lea dx, msg_mass mov ah, 9 int 21h lea si, LastLabel @_get_next: lodsw CALL writeWordDEC_signed ; два пробела mov al, ' ' int 29h int 29h LOOP @@_get_next lea dx, msg_press mov ah, 9 int 21h xor ax, ax int 16h int 20h nextLine proc push ax mov al, 10 int 29h mov al, 13 int 29h pop ax ret nextLine endp writeWordDEC proc near ; вывод на экран слова в AX, воспринимается как беззнаковое push ax push bx push dx push cx mov bx, 10 xor cx, cx @1: xor dx, dx div bx push dx inc cx or ax, ax jnz @@1 @@2: pop ax add al, '0' int 29h LOOP @@2 pop cx pop dx pop bx pop ax ret writeWordDEC endp WriteWordDEC_signed proc ; вывод на экран слова в AX как знакового or ax, ax jns @@_no_sign push ax mov al, '-' int 29h pop ax neg ax ; изменение знака на + @_no_sign: CALL writeWordDEC ret WriteWordDEC_signed endp inputWord_signed proc ; Ввод числа со знаком в AX ; нецифры игнорируются, кроме минуса в начале push bx push cx push dx push si ; накопитель push di ; если не 0, то число отрицательное xor si, si xor di, di mov bx, 10 @1: mov ah, 7 int 21h ; ввод без эхо xor ah, ah cmp al, '-' jne @@2 int 29h ; показали inc di ; установили флаг и дальше jmp @@_next_char ; следующий символ @2: cmp al, 13 ; ENTER = конец ввода je @@_finish cmp al, '0' jb @@_next_char cmp al, '9' ja @@_next_char mov cl, al ; сохраняем для вывода, если все будет нормально sub al, '0' ; превращаем в число or si, si ; это первое число? jnz @@_not_new or al, al ;если первая цифра 0, то ... jnz @@_not_zerou jmp @@_next_char @_not_zerou: mov si, ax or di, di jz @@_positive neg si @_positive: mov al, cl int 29h jmp @@_next_char @_not_new: push ax ; накопитель умножаем на 10 mov ax, si imul bx ; знаковое умножение jc @@_finish ; переполение = конец ввода mov di, ax ; произведение в dx mov al, cl int 29h pop ax or di, di jns @@_add sub di, ax jo @@_finish jmp @@_ok @_add: add di, ax jo @@_finish @_ok: mov si, di ; все в порядке = результат помещаем в si @_next_char: mov ah, 7 int 21h xor ah, ah jmp @@2 @_finish: mov ax, si pop di pop si pop dx pop cx pop bx ret inputWord_signed endp summ dw 0 ; будем полагать, что сумма уместится в слово. Иначе нужно вывод на EAX переделывать ; несложно, но ... numbers_count equ 5 ; 5 слов будет - измените, если нужно msg_input db 13,10,'Введите целое число: $' msg_summ db 13,10,'Сумма = $' msg_mass db 13,10,'Массив:',13,10,'$' msg_press db 13,10,10,'Нажмите любую клавишу ...$' LastLabel: ; последняя метка в файле. Дальше - сводобно end start --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ICQ: 320096696 ---- Ответ отправлен: 30.01.2009, 16:26 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 242554 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 159.117

Здравствуйте Пишу программу на ассемблере - заполнение массива данными A = {ai} (i = 1..20) a[i] = (i/5 + i/3) +50 По идее, в результате должны выдаваться значения: 50 51 51 52 52 53 53 54 54 55 55 56 56 57 58 58 59 59 60 60 Программа же выдает другие значения 0 50 50 51 51 52 53 53 53 54 55 55 56 56 56 58 58 58 59 59 61 Помогите, пожалуйста, разобраться. Откуда взялся 0, ведь я начал с i = 1, и почему остальные значения другие? Приложение: MODEL small STACK 256 286 data mes db 0ah,0dh,'Massiv: ','$' mas db 20 dup (?) ;исходный массив i db 1 s3 db 3 ii db '1' s4 db 5 s50 db 50 code main: xor ax,ax mov ax,@data mov ds,ax xor ax,ax ;обнуление ax mov cx,20 ;значение счетчика цикла в cx mov si,1 ;индекс начального элемента в cx mov dl, 1 ;номер элемента (это наша i) go: xor ax,ax ;цикл инициализации mov al, dl ;i в al div s4 ;делим i на 5 mov mas[si],al ;запись в массив i xor ax,ax mov al, dl div s3 add al, mas[si] add al, s50 mov mas[si],al inc i ;инкремент i inc dl inc si ;продвижение к следующему loop go ;вывод на экран получившегося массива mov cx,20 mov si,1 mov ah,09h lea dx,mes int 21h mov cx,21 mov si,offset mas show: lodsb call outNumber loop show exit: mov ax,4c00h ;стандартный выход int 21h outNumber: pusha and ax,0ffh ;десятичная система mov bx,10 ;счетчик цифр в числе xor cx,cx ;делим число на 10 isDiv: xor dx,dx div bx ;запоминаем в стеке остаток от деления push dx ;считаем количество запоминаемых символов inc cx ;продолжаем пока АХ не равно 0 or ax,ax jnz isDiv ;выводим из стека цифры в нужном порядке isOutNum: pop ax ;перводим в цифру в символ or al,30h ;выводим в режиме телетайпа ;эта функция аналогична mov ah,02 - int 21h ;только места меньше занимает int 29h ;повторяем вывод в цикле loop isOutNum mov al,20h int 29h popa ret end main ;конец программы

Отправлен: 29.01.2009, 19:22 Вопрос задал: Койбаев Олег Артурович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Airyashov Здравствуйте, Койбаев Олег Артурович! массив нумеруется с 0 mov si,1 ;индекс начального элемента в cx div это целочисленное деление

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

Отвечает: Лысков Игорь Витальевич Здравствуйте, Койбаев Олег Артурович! Как верно заметил Airyashov, массив нумеруется с 0, а не с 1. Кроме того, Вы его заполняете с 1 элемента, а выводите с нулевого, вот этот непроинициализированный элемент равный 0, мы и видим. Это первое. Второе. "Другие значения" - это результат целочисленного деления с отбрасыванием остатка. Но...нужный результат можно достичь! Только для этого надо немного изменить формулу (этим мы уменьшим погрешность!) i/5 +i/3 = (8*i)/15 = (i<<3)/15 В последнем выражении умножение на 8 я заменил на сдвиг влево на 3 бита. Программа в приложении, реализующая эту формулу, выводит нужные числа... Приложение: MODEL small STACK 256 286 data mes db 0ah,0dh,'Massiv: ','$' mas db 20 dup (?) ;исходный массив s15 db 15 s50 db 50 code main: mov ax,@data mov ds,ax mov cx,20 ;значение счетчика цикла в cx xor si,si ;индекс начального элемента,одновременно i-1 go: lea ax,[si+1] ;ax=i shl ax,3 ;ax=8*i div s15 ;делим 8*i/15 = i/5 + i/3 add al,s50 ;al = i/5 + i/3 + 50 mov mas[si],al ;запись в массив inc si ;продвижение к следующему loop go ;вывод на экран получившегося массива mov ah,09h lea dx,mes int 21h mov cx,20 mov si,offset mas show: lodsb call outNumber loop show exit: mov ax,4c00h ;стандартный выход int 21h outNumber: pusha and ax,0ffh ;десятичная система mov bx,10 ;счетчик цифр в числе xor cx,cx ;делим число на 10 isDiv: xor dx,dx div bx ;запоминаем в стеке остаток от деления push dx ;считаем количество запоминаемых символов inc cx ;продолжаем пока АХ не равно 0 or ax,ax jnz isDiv ;выводим из стека цифры в нужном порядке isOutNum: pop ax ;перводим в цифру в символ or al,30h ;выводим в режиме телетайпа ;эта функция аналогична mov ah,02 - int 21h ;только места меньше занимает int 29h ;повторяем вывод в цикле loop isOutNum mov al,20h int 29h popa ret end main ;конец программы --------- Удачи!

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

Вопрос № 159.149

Большое спасибо, ваши советы очень помогли. Осталась последняя проблема. Я дополнил программу, теперь она заполняет массив по схеме: A = {ai} (i = 1..20) ai = 3*i + i/3 0 < i < 11 ai = (i/5 + i/3) + 50 10 < i < 21 Работает все вроде бы правильно. Теперь нужно в этом массиве найти все простые элементы. Нашел в интернете алгоритмы типа решето Эратосфена. Алгоритм вроде бы простой, но как его реализовать на Ассемблере и вставить в свою программу не знаю. Или может быть есть другие алгоритмы? Подскажите, пожалуйста. Приложение: MODEL small STACK 256 286 data mes db 0ah,0dh,'Massiv: ','$' mas db 20 dup (?) ;исходный массив s15 db 15 s50 db 50 s3 db 3 s5 db 5 code main: mov ax,@data mov ds,ax mov cx,20 ;значение счетчика цикла в cx xor si, si ;индекс начального элемента,одновременно i-1 go: lea ax,[si+1] ;ax=i div s3 mov mas[si],al ;запись в массив xor ax, ax lea ax,[si+1] imul s3 add mas[si],al inc si cmp si, 11 ;если si < 11, то вычисляем следующий jl go main2: mov ax,@data mov ds,ax mov cx,20 ;значение счетчика цикла в cx mov si, 10 ;индекс начального элемента,одновременно i-1 go2: lea ax,[si+1] ;ax=i shl ax,3 ;ax=8*i div s15 ;делим 8*i/15 = i/5 + i/3 add al,s50 ;al = i/5 + i/3 + 50 mov mas[si],al ;запись в массив inc si ;продвижение к следующему cmp si, 20 ;если i < 21, то вычисляем следующий i jl go2 ;вывод на экран получившегося массива mov ah,09h lea dx,mes int 21h mov cx,20 mov si,offset mas show: lodsb call outNumber loop show exit: mov ax,4c00h ;стандартный выход int 21h outNumber: pusha and ax,0ffh ;десятичная система mov bx,10 ;счетчик цифр в числе xor cx,cx ;делим число на 10 isDiv: xor dx,dx div bx ;запоминаем в стеке остаток от деления push dx ;считаем количество запоминаемых символов inc cx ;продолжаем пока АХ не равно 0 or ax,ax jnz isDiv ;выводим из стека цифры в нужном порядке isOutNum: pop ax ;перводим в цифру в символ or al,30h ;выводим в режиме телетайпа ;эта функция аналогична mov ah,02 - int 21h ;только места меньше занимает int 29h ;повторяем вывод в цикле loop isOutNum mov al,20h int 29h popa ret end main ;конец программы

Отправлен: 30.01.2009, 00:12 Вопрос задал: Койбаев Олег Артурович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 13)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Койбаев Олег Артурович! А вот и решение. Простые числа ищутся по алгоритму Эратосфена. Сначала строится массив, в котором находятся все числа от 2 до максимального. Затем все составные заменяются на 0. Все элементы нашего массива ищутся в построенном массиве, если нашелся, значит - простое. В качестве бонуса, дополнительно реализовал формирование массива простых чисел по алгоритму Сундарама :) Описание в Википедии Вызов подпрограммы вместо решета Эратосфена закомментирован... Если не надо, то можно просто удалить... Приложение: MODEL small 286 data mes db 0ah,0dh,'Massiv: $' simples db 0ah,0dh,'Simples: $' mas db 20 dup (?) ;исходный массив s15 db 15 s50 db 50 s3 db 3 max db 0 nums label byte code main: mov ax,@data mov ds,ax mov es,ax xor si, si ;индекс начального элемента,одновременно i-1 go: lea ax,[si+1] ;ax=i div s3 mov mas[si],al ;запись в массив lea ax,[si+1] imul s3 add al,mas[si] mov mas[si],al cmp al, max ;одновременно ищем максимальный jbe next mov max,al next: inc si cmp si, 10 ;если si < 10 (i<11), то вычисляем следующий jl go go2: ;si как раз равно 10! lea ax,[si+1] ;ax=i shl ax,3 ;ax=8*i div s15 ;делим 8*i/15 = i/5 + i/3 add al,s50 ;al = i/5 + i/3 + 50 mov mas[si],al ;запись в массив cmp al, max jbe next2 mov max,al next2: inc si ;продвижение к следующему cmp si, 20 ;если i < 21, то вычисляем следующий i jl go2 ;вывод на экран получившегося массива mov ah,09h lea dx,mes int 21h mov cx,20 mov si,offset mas show: lodsb call outNumber loop show call Eratosphen ; call Sundaram mov ah,09h lea dx,simples int 21h mov cx,20 mov si,offset mas SimpleShow: lodsb ;наше число push cx ;проверим на совпадение в массиве простых lea di, nums mov cl, max sub cl, 2 ;длина массива repne scasb ;ищем pop cx jnz SimpleNext ;не нашли - составное call outNumber ;простое выводим SimpleNext: loop SimpleShow exit: mov ax,4c00h ;стандартный выход int 21h Eratosphen: xor si,si ;заполним массив чисел 2...max mov cl,max mov al,2 sub cl,al ;на 2 меньше (0 и 1) store: mov nums[si],al inc al inc si cmp si,cx jb store xor ax,ax ;очередное найденное простое число mov si,ax ;индекс ErLoop: cmp si,cx ;сравним с максимальным значением jae ErRet mov al,nums[si] ;берем очередное число test al,al jz ErNext ;непростое обходим mov bx,si ;текущий адрес ErClear: add bx,ax ;добавляем значение простого mov nums[bx],0 ;и отсеиваем составные (даже если уже было помечено) cmp bx,cx ;проверим с максимальным jb ErClear ErNext: inc si ;на следующее число jmp ErLoop ErRet: ret ;составные стали нулями! Sundaram: lea di,nums mov cl,max mov al,0 rep stosb mov cx,1 ;i jmp cmp_i start_j: mov bx,1 ;j jmp cmp_j set_num: mov nums[di],1 inc bx cmp_j: mov ax,cx mul bx shl ax,1 add ax,cx add ax,bx mov di,ax cmp al,max jae next_i cmp bx,cx jbe set_num next_i: inc cx cmp_i: mov ax,3 mul cx inc ax cmp al,max jb start_j lea si,nums mov di,si mov cl,max form_simple: lodsb cmp al,1 je form_next mov ax,si sub ax,offset nums+1 shl al,1 inc al stosb form_next: loop form_simple ret outNumber: pusha and ax,0ffh ;десятичная система mov bx,10 ;счетчик цифр в числе xor cx,cx ;делим число на 10 isDiv: xor dx,dx div bx ;запоминаем в стеке остаток от деления push dx ;считаем количество запоминаемых символов inc cx ;продолжаем пока АХ не равно 0 or ax,ax jnz isDiv ;выводим из стека цифры в нужном порядке isOutNum: pop ax ;перводим в цифру в символ or al,30h ;выводим в режиме телетайпа ;эта функция аналогична mov ah,02 - int 21h ;только места меньше занимает int 29h ;повторяем вывод в цикле loop isOutNum mov al,20h int 29h popa ret end main ;конец программы --------- Удачи!

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

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