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

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

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

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

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

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

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
.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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
.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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
.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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
.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. Внимание, вопрос: к чему это приведёт? Можешь не отвечать на него, пока не исправишь ошибку, на которую я указал в предыдущем посте.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

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

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

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