Работа с массивом (assembler)

[sirex]

Дан массив из 6 элементов. Подсчитать сколько раз в нем встречается минимальное по величине число. пожалуйста помогите.

[Serge_Bliznykov]

алгоритм простейший - двухпроходный.
первый раз ищем минимальное число. запоминаем (хоть в переменную/память, хоть в регистре.
второй проход - считаем совпадаения чисел с найденным минимальным значением.

p.s. писать всё с нуля - лень да и времени нет.
поищите тут же, на форуме примеры, подправьте под себя.

или за деньги (очень небольшие) Вам легко помогут.

[sirex]

обыскал все, похожих не нашел

[Sparky]

Вот так

;поиск min в массиве по базе со смещением
.model tiny
.code
org 100h
main:
	mov di,1
	xor ax,ax
	xor si,si
	mov bx,offset arr
	mov ax,word ptr [bx] ;занесли первый элеменент, на регистр, ax=min
	mov cx,5 ;так как первый элемент уже обработан количество повторений=n-1
cyc:
	add si,2 ;переходим на следующий эелемент
	cmp word ptr [bx+si],ax ;сравниваем текущее значение с min, word ptr используется так как нам нужен не 1 байт а 2
	jnl no ;если элемент >= min переходим на no
	mov ax,[bx+si]
no:
	loop cyc
	
	mov si,-2
	mov bx,offset arr
	mov cx,6 
cyc2:
	add si,2 ;переходим на следующий эелемент
	cmp word ptr [bx+si],ax ;сравниваем текущее значение с min, word ptr используется так как нам нужен не 1 байт а 2
	je yes ;если элемент >= min переходим на no
	
	loop cyc2
	jmp oi1
yes:
	inc di
	loop cyc2
	
	mov ax,di
;вывод результата
oi1:  
      xor     cx, cx
      mov     bx, 10

oi2:   
      cwd
      div     bx	;Делим число на десять. В остатке получается последняя цифра. Сразу выводить её нельзя, поэтому сохраним её в стэке.
      push    dx
      inc     cx

; А с частным повторяем то же самое, отделяя от него очередную
; цифру справа, пока не останется ноль, что значит, что дальше
; слева только нули.
	test    ax, ax
      jnz     oi2

; Теперь приступим к выводу.
	mov     ah, 02h
oi3:   
	pop     dx
	; Извлекаем очередную цифру, переводим её в символ и выводим.
      add     dl, 30h
      int     21h
; Повторим ровно столько раз, сколько цифр насчитали.
      loop    oi3
        
	int 20h
	ret

	arr dw 1,2,3,4,5,6
end main

[Goodwin98]

Можно и за 1 цикл...

  mov si,offset arr
  mov bx,[si]
  mov ax,1
  mov cx,5
  inc si
  inc si
cyc:
  cmp bx,[si]
  jbe no
  
  mov bx,[si]
  xor ax,ax

no:
  jne no2
  inc ax
no2:
  inc si
  inc si
  loop cyc

[sirex]

Сообщение от Sparky

Вот так

;поиск min в массиве по базе со смещением
.model tiny
.code
org 100h
main:
	mov di,1
	xor ax,ax
	xor si,si
	mov bx,offset arr
	mov ax,word ptr [bx] ;занесли первый элеменент, на регистр, ax=min
	mov cx,5 ;так как первый элемент уже обработан количество повторений=n-1
cyc:
	add si,2 ;переходим на следующий эелемент
	cmp word ptr [bx+si],ax ;сравниваем текущее значение с min, word ptr используется так как нам нужен не 1 байт а 2
	jnl no ;если элемент >= min переходим на no
	mov ax,[bx+si]
no:
	loop cyc
	
	mov si,-2
	mov bx,offset arr
	mov cx,6 
cyc2:
	add si,2 ;переходим на следующий эелемент
	cmp word ptr [bx+si],ax ;сравниваем текущее значение с min, word ptr используется так как нам нужен не 1 байт а 2
	je yes ;если элемент >= min переходим на no
	
	loop cyc2
	jmp oi1
yes:
	inc di
	loop cyc2
	
	mov ax,di
;вывод результата
oi1:  
      xor     cx, cx
      mov     bx, 10

oi2:   
      cwd
      div     bx	;Делим число на десять. В остатке получается последняя цифра. Сразу выводить её нельзя, поэтому сохраним её в стэке.
      push    dx
      inc     cx

; А с частным повторяем то же самое, отделяя от него очередную
; цифру справа, пока не останется ноль, что значит, что дальше
; слева только нули.
	test    ax, ax
      jnz     oi2

; Теперь приступим к выводу.
	mov     ah, 02h
oi3:   
	pop     dx
	; Извлекаем очередную цифру, переводим её в символ и выводим.
      add     dl, 30h
      int     21h
; Повторим ровно столько раз, сколько цифр насчитали.
      loop    oi3
        
	int 20h
	ret

	arr dw 1,2,3,4,5,6
end main

спасибо. но при компиляции выдает warning:no stack, пытался вставлять в конец программы не получается

[Mikl___]

sirex
warning не ошибка а предупреждение, если программа работает так как ожидалось, то можно не дергаться
по тексту: выход из COM-программы происходит или по команде RET или по команде INT 20h -- друг под другом их писать как в листинге Sparky ни к чему

[sirex]

а так одно без другого не работает, даже если переместить ret или удалить вовсе

[Mikl___]

sirex
С чего бы это? А как ты узнал что, не работает -- компьютер завис?

[sirex]

asm зависает и выводит 2строчки errora и вылет