Подсчитать количество нулевых и ненулевых элементов в заданном векторе

@Niobeus · Регистрация: 11.05.2017

Author24 — интернет-сервис помощи студентам

Здравствуйте, не могу разобраться, как вводить знаковые числа в массив.Само задание такое:
Подсчитать количество нулевых и ненулевых элементов в заданном векторе и определить, каких элементов в векторе больше
а) элементы вектора однобайтовые;
б) элементы вектора двухбайтовые.

Вот, что получилось для двухбайтового массива

Кликните здесь для просмотра всего текста

Assembler

.model small
.stack 100h
.data
Mas dw 10 dup (?)
len dw 10
Sch_0 dw 0 ;счетчик нулевых элементов вектора
Sch_otr dw 0
msg_z db "Null"
msg_o db "Otr"
msg_ravn db "Ravny"
.code
InputInt proc 
 
    mov ah,0ah
    xor di,di
    mov dx,offset buff ; аддрес буфера
    int 21h ; принимаем строку
    mov dl,0ah
    mov ah,02
    int 21h ; выводим перевода строки
    
; обрабатываем содержимое буфера
    mov si,offset buff+2 ; берем аддрес начала строки
    cmp byte ptr [si],"-" ; если первый символ минус
     jnz ii1
    mov di,1  ; устанавливаем флаг
    inc si    ; и пропускаем его
ii1:
    xor ax,ax
    mov bx,10  ; основание сc
ii2:
    mov cl,[si] ; берем символ из буфера
    cmp cl,0dh  ; проверяем не последний ли он
    jz endin
    
; если символ не последний, то проверяем его на правильность
    cmp cl,'0'  ; если введен неверный символ <0
    jb er
    cmp cl,'9'  ; если введен неверный символ >9
    ja er
 
    sub cl,'0' ; делаем из символа число 
    mul bx     ; умножаем на 10
    add ax,cx  ; прибавляем к остальным
    inc si     ; указатель на следующий символ
    jmp ii2     ; повторяем
 
er:   ; если была ошибка, то выводим сообщение об этом и выходим
    mov dx, offset error
    mov ah,09
    int 21h
    int 20h
 
; все символы из буфера обработаны число находится в ax
endin:
    cmp di,1 ; если установлен флаг, то
    jnz ii3
    neg ax   ; делаем число отрицательным
ii3:
    ret
 
error db "incorrect number$"
buff    db 6,7 Dup(?)
InputInt endp
 
main proc
Mov cx, len ;инициализация счетчика цикла
Xor si,si ;инициализация индексного регистра
Cyc:call InputInt
mov mas[si],ax
inc si
dec cx
jz dal
jmp cyc
dal:Mov cx, len ;инициализация счетчика цикла
mov si,0
Xor si,si ;инициализация индексного регистра
Cycl: cmp mas[si],0 ;сравниваем элемент вектора с 0
Jz zero ;нуль-элементы считаем в блоке zero
Inc Sch_otr ;увеличиваем счетчик элементов <0
Jmp kon_cycl
Zero: Inc Sch_0 ;увеличиваем счетчик нулевых элементов
kon_cycl: inc si ;
loop cycl
mov ax, sch_otr
mov bx, sch_0
cmp ax,bx
jz ravn
Jg pol
mov ax,@data
    mov ds,ax
    mov ah,9
    mov dx,OFFSET msg_z
    int 21h
    mov ah,4ch
    int 21h
jmp konec
pol: mov ax,@data
    mov ds,ax
    mov ah,9
    mov dx,OFFSET msg_o
    int 21h
    mov ah,4ch
    int 21h
jmp konec
ravn: mov ax,@data
    mov ds,ax
    mov ah,9
    mov dx,OFFSET msg_ravn
    int 21h
    mov ah,4ch
    int 21h
konec: nop
main endp
end main

ФедосеевПавел · 11.05.2017, 21:20

В чём проблема:
- совсем не получается ввести двухбайтовое целое со знаком
- просто число получается, но не получается заполнить массив

Добавлено через 6 минут
Возьмите следующий образец ввода числа из той же темы - к нему два примера вызова.

Ошибки у вас я вижу, но исправлять не очень хочу.

@Niobeus · 12.05.2017, 23:22 **[ТС]**

Исправил. Вроде работает. Только один вопрос: почему для правильной работы нужно каждый раз заново ассемблировать и компилировать файл?

Кликните здесь для просмотра всего текста

Assembler

.model small
.stack 100h
.data
Mas dw 10 dup (?)
Sch_0 db 0 ;счетчик нулевых элементов вектора
Sch_otr db 0
msg_z db "Null", 13,10,'$' 
msg_o db "Otr", 13,10,'$'
.code
InputInt proc 
    mov ah,0ah
    xor di,di
    mov dx,offset buff ; аддрес буфера
    int 21h ; принимаем строку
    mov dl,0ah
    mov ah,02
    int 21h ; выводим перевода строки
    
; обрабатываем содержимое буфера
    mov si,offset buff+2 ; берем аддрес начала строки
    cmp byte ptr [si],"-" ; если первый символ минус
    jnz ii1
    mov di,1  ; устанавливаем флаг
    inc si    ; и пропускаем его
ii1:
    xor ax,ax
    mov bx,10  ; основание сc
ii2:
    mov cl,[si] ; берем символ из буфера
    cmp cl,0dh  ; проверяем не последний ли он
    jz endin
    
; если символ не последний, то проверяем его на правильность
    cmp cl,'0'  ; если введен неверный символ <0
    jb er
    cmp cl,'9'  ; если введен неверный символ >9
    ja er
 
    sub cl,'0' ; делаем из символа число 
    mul bx     ; умножаем на 10
    add ax,cx  ; прибавляем к остальным
    inc si     ; указатель на следующий символ
    jmp ii2     ; повторяем
 
er:   ; если была ошибка, то выводим сообщение об этом и выходим
    mov dx, offset error
    mov ah,09
    int 21h
    int 20h
 
; все символы из буфера обработаны число находится в ax
endin:
    cmp di,1 ; если установлен флаг, то
    jnz ii3
    neg ax   ; делаем число отрицательным
ii3:
    ret
 
error db "incorrect number$"
buff    db 6,7 Dup(?)
InputInt endp
 
main proc
Xor si,si ;инициализация индексного регистра
Mov cx, 10 ;инициализация счетчика цикла
cycl1:
push cx
call InputInt
mov mas[si], ax
inc si
pop cx
loop cycl1
Mov cx, 10 ;инициализация счетчика цикла
Xor si,si ;инициализация индексного регистра
Cycl: cmp mas[si],0 ;сравниваем элемент вектора с 0
Jz zero ;нуль-элементы считаем в блоке zero
Inc Sch_otr ;увеличиваем счетчик элементов <0
Jmp kon_cycl
Zero: Inc Sch_0 ;увеличиваем счетчик нулевых элементов
Jmp kon_cycl
kon_cycl: inc si ;переходим к следующему элементу
;вектора
loop cycl
mov ax,word ptr sch_0
mov bx,word ptr sch_otr
cmp ax,bx
Jl otrb
mov ax,@data
    mov ds,ax
    mov ah,9
mov dx,OFFSET msg_z
    int 21h
    mov ah,4ch
    int 21h
jmp konec
otrb:
mov ax,@data 
    mov ds,ax
    mov ah,9
mov dx,OFFSET msg_o
    int 21h
    mov ah,4ch
    int 21h
konec: mov ax,0
main endp
end main

ФедосеевПавел · 12.05.2017, 23:41

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

почему для правильной работы нужно каждый раз заново ассемблировать и компилировать файл?

Зачем? У вас же создаётся исполняемый файл *.exe.
Могу лишь предположить, что вы работаете в DOSBox. И этот DOSBox своеобразно настроен.

Добавлено через 3 минуты
--------
Ничего вы не исправили.
Для DOS exe иная структура программы. https://www.cyberforum.ru/post9602973.html

@Niobeus · 13.05.2017, 10:50 **[ТС]**

Вот другая программа без ввода чисел. Она работает (проверил несколько раз).

Кликните здесь для просмотра всего текста

Assembler

.model small
.stack 100h
.data
 
Mas dw 1, 0, 0, 0, 0, 0, -9, 0, -7, 9
Sch_0 dw 0 ;счетчик нулевых элементов вектора
Sch_otr dw 0
 
msg_z db "Null", 13,10,'$' 
msg_o db "Otr", 13,10,'$'
 
.code
 
main:
mov ax, @data
mov ds, ax
xor ax,ax
Mov cx, 10 ;инициализация счетчика цикла
Xor si,si ;инициализация индексного регистра
 
Cycl: cmp mas[si],0 ;сравниваем элемент вектора с 0
Jz zero ;нуль-элементы считаем в блоке zero
jl otr
jmp kon_cycl
otr:Inc Sch_otr ;увеличиваем счетчик элементов <0
Jmp kon_cycl
Zero: Inc Sch_0 ;увеличиваем счетчик нулевых элементов
kon_cycl: inc si ;переходим к следующему элементу
;вектора
loop cycl
 
mov bx, sch_0
mov ax, sch_otr
cmp ax,bx
Jg otrb
mov ax,@data
    mov ds,ax
    mov ah,9
mov dx,OFFSET msg_z
    int 21h
    mov ah,4ch
    int 21h
jmp konec
otrb:
mov ax,@data 
    mov ds,ax
    mov ah,9
mov dx,OFFSET msg_o
    int 21h
    mov ah,4ch
    int 21h
konec:
end main

Почему, когда я вставляю ввод чисел, программа не хочет работать?

Кликните здесь для просмотра всего текста

Assembler

.model small
.stack 100h
.data
 
Mas dw 10 dup (?)
Sch_0 dw 0 ;счетчик нулевых элементов вектора
Sch_otr dw 0
 
msg_z db "Null", 13,10,'$' 
msg_o db "Otr", 13,10,'$'
 
.code
jmp main
InputInt proc 
    mov ah,0ah
    xor di,di
    mov dx,offset buff ; аддрес буфера
    int 21h ; принимаем строку
    mov dl,0ah
    mov ah,02
    int 21h ; выводим перевода строки
    
; обрабатываем содержимое буфера
    mov si,offset buff+2 ; берем аддрес начала строки
    cmp byte ptr [si],"-" ; если первый символ минус
    jnz ii1
    mov di,1  ; устанавливаем флаг
    inc si    ; и пропускаем его
ii1:
    xor ax,ax
    mov bx,10  ; основание сc
ii2:
    mov cl,[si] ; берем символ из буфера
    cmp cl,0dh  ; проверяем не последний ли он
    jz endin
 
    sub cl,'0' ; делаем из символа число 
    mul bx     ; умножаем на 10
    add ax,cx  ; прибавляем к остальным
    inc si     ; указатель на следующий символ
    jmp ii2     ; повторяем
 
; все символы из буфера обработаны число находится в ax
endin:
    cmp di,1 ; если установлен флаг, то
    jnz ii3
    neg ax   ; делаем число отрицательным
ii3:
    ret
 
buff    db 6,7 Dup(?)
InputInt endp
 
main:
mov ax, @data
mov ds, ax
xor ax,ax
Xor si,si ;инициализация индексного регистра
Mov cx, 10 ;инициализация счетчика цикла
 
cycl1:
push cx
call InputInt
mov mas[si], ax
inc si
pop cx
loop cycl1
 
xor ax,ax
Mov cx, 10 ;инициализация счетчика цикла
Xor si,si ;инициализация индексного регистра
 
Cycl: cmp mas[si],0 ;сравниваем элемент вектора с 0
Jz zero ;нуль-элементы считаем в блоке zero
jl otr
jmp kon_cycl
otr:Inc Sch_otr ;увеличиваем счетчик элементов <0
Jmp kon_cycl
Zero: Inc Sch_0 ;увеличиваем счетчик нулевых элементов
kon_cycl: inc si ;переходим к следующему элементу
;вектора
loop cycl
 
mov bx, sch_0
mov ax, sch_otr
cmp ax,bx
Jg otrb
mov ax,@data
    mov ds,ax
    mov ah,9
mov dx,OFFSET msg_z
    int 21h
    mov ah,4ch
    int 21h
jmp konec
otrb:
mov ax,@data 
    mov ds,ax
    mov ah,9
mov dx,OFFSET msg_o
    int 21h
    mov ah,4ch
    int 21h
konec:
end main

@Argogo · 13.05.2017, 13:48

Niobeus, Может быть от того, что буфер для ввода ты сделал в сегменте кода, а не данных. А может не только из-за этого.

@Niobeus · 13.05.2017, 15:41 **[ТС]**

Argogo, не из-за этого. Похоже, что счетчик Sch_0 всегда больше Sch_otr. А из-за чего так произошло, я не знаю

@Argogo · 13.05.2017, 16:27

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

Argogo, не из-за этого.

Из-за этого программа получает не введённые тобой числа, а случайный мусор.

Далее, в строке 64 ты сохраняешь слово, а в строке 65 увеличиваешь указатель на 1. Внимание, вопрос: к чему это приведёт? Можешь не отвечать на него, пока не исправишь ошибку, на которую я указал в предыдущем посте.

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	11.05.2017, 21:20	2
	В чём проблема: - совсем не получается ввести двухбайтовое целое со знаком - просто число получается, но не получается заполнить массив Добавлено через 6 минут Возьмите следующий образец ввода числа из той же темы - к нему два примера вызова. Ошибки у вас я вижу, но исправлять не очень хочу. 0

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	12.05.2017, 23:41	4
	Сообщение от Niobeus почему для правильной работы нужно каждый раз заново ассемблировать и компилировать файл? Зачем? У вас же создаётся исполняемый файл .exe. Могу лишь предположить, что вы работаете в DOSBox. И этот DOSBox своеобразно настроен. Добавлено через 3 минуты* -------- Ничего вы не исправили. Для DOS exe иная структура программы. https://www.cyberforum.ru/post9602973.html 0

@Argogo 593 / 390 / 70 Регистрация: 29.03.2013 Сообщений: 813
	13.05.2017, 13:48	6
	Niobeus, Может быть от того, что буфер для ввода ты сделал в сегменте кода, а не данных. А может не только из-за этого. 0

@Niobeus 0 / 0 / 0 Регистрация: 11.05.2017 Сообщений: 13
	13.05.2017, 15:41 [ТС]	7
	Argogo, не из-за этого. Похоже, что счетчик Sch_0 всегда больше Sch_otr. А из-за чего так произошло, я не знаю 0

@Argogo 593 / 390 / 70 Регистрация: 29.03.2013 Сообщений: 813
	13.05.2017, 16:27	8
	Сообщение от Niobeus Argogo, не из-за этого. Из-за этого программа получает не введённые тобой числа, а случайный мусор. Далее, в строке 64 ты сохраняешь слово, а в строке 65 увеличиваешь указатель на 1. Внимание, вопрос: к чему это приведёт? Можешь не отвечать на него, пока не исправишь ошибку, на которую я указал в предыдущем посте. 1