IPB
ЛогинПароль:

> ПРАВИЛА РАЗДЕЛА!!!

1. Заголовок или название темы должно быть информативным
2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE]
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора.
5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM!
6. Проверяйте программы перед тем, как выложить их на форум!!

> задача на массивы, перестановка и подсчет сумм
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Начали изучать assembler, и сразу посыпались задачи перед сессией!!! Уважаемые форумчане, может кто сможет помочь решить задачу, а то я не бельмеса не могу сообразить! Кстати посоветуйте пожалуйста толковый учебник по assemblery!!
Задачки следующие:

1) массив из задаваемого количества элементов, переставить положител. эл. массива в обратном порядке(по убыванию), не меняя положения остальных.

2) определить положение мах и мин эл. массива до и после перестановки эл., посчитать сумму положит. и удалить их.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






монтик, вот смотри, что мне пришло в голову по поводу первой задачи. Идея очень простая: проходишь по массиву 2 раза: первый раз - при встрече положительного значения заталкиваешь его в стек (отрицательные просто пропускаешь), а при втором проходе - при встрече положительного меняешь его на то, которое вытаскивается из стека. Поскольку запись/чтение стека производятся с одного конца, то получится, что после второго прохода положительные значения будут записаны в обратном порядке, а отрицательные - не изменятся вообще. Вот программа, подпрограмму вывода числа на печать writeDEC возьми здесь: Обработка символьной информации

MODEL small

stack 100
.286

DATASEG

mass dw 1, -2, 3, -4, -5, 6, 7, -8, 9, 10
massLen dw 10
sInitial db 13, 10, 'Initial array: $'
sAfter db 13, 10, 'After replace: $'

count_of_digits dw 5 ; это для writeDEC

CODESEG

writeDEC proc
; ... тут добавь реализацию
writeDEC endp

start:
mov ax,@DATA
mov ds, ax
mov es, ax

mov ah, 09h
mov dx, offset sInitial
int 21h
mov cx, massLen
mov di, offset mass
print_item:
mov ax, word ptr [di]
call writeDEC
add di, 2
loop print_item

; при dx = 0 записываем в стек, при dx = 1 восстанавливаем
mov dx, 0
mov cx, 2
cycle:
mov bx, cx

mov di, offset mass ; начало массива
mov cx, massLen
save_replace:
mov ax, word ptr [di]
cmp ax, 0
jl next
cmp dx, 0
jne to_restore
push ax
jmp next
to_restore:
pop ax
mov word ptr [di], ax
next:
add di, 2
loop save_replace

mov cx, bx
inc dx
loop cycle

mov ah, 09h
mov dx, offset sAfter
int 21h

mov cx, massLen
mov di, offset mass
print_item_2:
mov ax, word ptr [di]
call writeDEC
add di, 2
loop print_item_2

exit_prog:
mov ah, 4ch
int 21h
end start


Цитата
Кстати посоветуйте пожалуйста толковый учебник по assemblery!!
Классика - Питер Абель: Ассемблер и программирование для IBM PC, сам с него начинал когда-то...
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.04.2024 18:47
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name