нахождение произведения в массиве

[Sonyalex90]

Всем доброго дня. Задача заключается вот в чем. Необходимо найти произведение положительных элементов последовательности.
Массив слов.

data segment
rez dw ?
mass dw 1,2,3,-2,-96,4,-9,5,6,7
data ends
code segment
assume cs: code, ds: data
start: 
mov ax, data
mov ds, ax
lea bx, mass 
mov cx, 10
mov ax, [bx]
m1: cmp [bx], ax
jge m2
mull ax,[bx]
m2 : inc bx
        loop m1
       mov rez,ax
quit: mov ax,4C00h
int 21h
code ends
end start

программа не компилируется.... подскажите, может я вообще не тем путём пошёл... Заранее спасибо..

[Goodwin98]

может так

start: 
mov ax, data
mov ds, ax
lea bx, mass 
mov cx, 10
mov ax, [bx]
m1:
inc bx
inc bx
mul word ptr[bx]
loop m1
mov rez,ax

[Sonyalex90]

не то ((( выводит только в результате 1 хотя должен вывести 13BO

[Sonyalex90]

задача вроде легкая....

[Goodwin98]

А с чего вы взяли, что должно быть 13BO ?
Во-первых здесь идет переполнение. ax может вместить число не больше 65535, а получается гораздо больше.
Во-вторых даже если посчитать без переполнения, то получится 1с00 в конце.

mass dd 1,2,3,-2,-96,4,-9,5,6,7
data ends
code segment 'CODE'
assume cs: code, ds: data
start: 
.386
mov ax, data
mov ds, ax
lea bx, mass 
mov cx, 9
mov eax, [bx]
m1:
add bx,4
imul dword ptr[bx]
loop m1
mov rez,ax
quit:
mov ax,4C00h
int 21h
code ends
end start

[Sonyalex90]

[QUOTE=Goodwin98;354297]А с чего вы взяли, что должно быть 13BO ?
Во-первых здесь идет переполнение. ax может вместить число не больше 65535, а получается гораздо больше.
Во-вторых даже если посчитать без переполнения, то получится 1с00 в конце.

mass dd 1,2,3,-2,-96,4,-9,5,6,7
data ends
code segment 'CODE'
assume cs: code, ds: data
start: 
.386
mov ax, data
mov ds, ax
lea bx, mass 
mov cx, 9
mov eax, [bx]
m1:
add bx,4
imul dword ptr[bx]
loop m1
mov rez,ax
quit:
mov ax,4C00h
int 21h
code ends
end start

[/QUOTE




ну так мне нужно перемножить только положительные значения. в 10-ой форме это 5054 в 16-ой 13BO, три отрицательных значения программа должна пропустить

[Goodwin98]

Не заметил, что нужно только положительные умножать

mov ax, data
mov ds, ax
lea bx, mass 
mov cx, 9
mov ax, [bx]
m1:
inc bx
inc bx
cmp [bx], 0
jle m2
imul word ptr[bx]
m2:
loop m1
mov rez,ax

[Sonyalex90]

Спасибо огромное =)))) все работает =))))

одна проблема =((( если поставить первый элемент массива отрицательный, то программа работает неправильно, т.е. она умножает постоянно первый элемент массива на положительные... как это устранить

одна проблема =((( если поставить первый элемент массива отрицательный, то программа работает неправильно, т.е. она умножает постоянно первый элемент массива на положительные... как это устранить

[airyashov]

покажите код

[Goodwin98]

mov ax, data
mov ds, ax
lea bx, mass 
mov cx, 9
l1:
mov ax, [bx]
cmp ax,0
jg m1
inc bx
dec cx
inc bx
jmp l1
m1:
inc bx
inc bx
cmp [bx], 0
jle m2
imul word ptr[bx]
m2:
loop m1
mov rez,ax