описать процедуру, которая уменьшает вдвое отрицательные элементы массива.

@an2503 · Регистрация: 22.04.2010

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

Подскажите в чем ошибка

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
%nolist
include mac.lib
%list
A_DATA  segment para
A   DW  10 dup(?)
SPp DW  ?
K   DW  ?
Y   DW  ?
mes1    DB  10,13,'введите элементы массива*:$'
mes2    DB  10,13,'ввод элементов массива:$'
mes3    DB  10,13,'введите$'
mes4    DB  10,13,10,13,'Y=$'
lili    DB  10,13,'‚ў®¤ ¬*ббЁў*$'
mes5    DB  10,13,'Good BYE!$'
A_DATA  ENDS
A_STACK SEGMENT PARA
    DB  128 dup(?)
A_STACK ENDS
A_CODE  SEGMENT PARA
assume  DS:A_DATA,CS:A_CODE,SS:A_STACK
vvod    proc near
message mes2
key_$2BIN
 
   ret
vvod    endp
begin:  mov AX,A_DATA
        mov DS,AX
message mes1
call    vvod
mov K,AX
MOV SI,2
MOV CX,K
CIKL:
call    vvod
mov A[SI],AX
idiv    SI
LOOP CIKL
 
 
MOV CX,K
MOV BX,0
MOV DI,2
M1: cmp A[DI],0
jge NEXT
idiv    BX
NEXT: idiv  DI
LOOP    M1
MOV SPP,BX
Message mes3
MOV AX,BX
print_number
mov Ah,4ch
int 21h
A_CODE ends
End begin

murderer · 20.01.2011, 07:50

вместо

Assembler
1
2
3
4
5
6
7
8
MOV     CX,K
MOV     BX,0
MOV     DI,2
M1: cmp A[DI],0
jge     NEXT
idiv    BX
NEXT: idiv      DI
LOOP    M1

попробуй так

Assembler
1
2
3
4
5
6
mov bx,K*2-2
M1:mov cx,[A+bx]
   shr cx,15
   sar [A+bx],cl
   sub bx,2
jne M1

@an2503 · 20.01.2011, 08:03 **[ТС]**

показывает что ошибка в строке mov bx,K*2-2 хотя K уже выше описана

murderer · 20.01.2011, 09:42

Я подумал, что K - константа.

тогда

Assembler
1
2
3
mov bx,K
shl bx,1
sub bx,2

@an2503 · 20.01.2011, 11:27 **[ТС]**

нифига не работает все равно(((

murderer · 20.01.2011, 12:30

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
begin:
  mov   ax,A_DATA
  mov   ds,ax
  mov   es,ax
  message mes1
  call vvod
  mov  [K],AX
  mov  di,offset A
  mov  cx,ax
  CIKL:call vvod
       stosw
  LOOP CIKL
 
  mov  bx,K
  shl  bx,1
  sub  bx,2
  M1:mov  cx,[A+bx]
     shr  cx,15
     sar  [A+bx],cl
     sub  bx,2
  jne M1
 
  mov  ah,4Ch
  int  21h
A_CODE ends
End begin

@an2503 · 20.01.2011, 13:15 **[ТС]**

ошибки нет, но на два не делит((

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@an2503 0 / 0 / 0 Регистрация: 22.04.2010 Сообщений: 8
	20.01.2011, 08:03 [ТС]
	показывает что ошибка в строке mov bx,K*2-2 хотя K уже выше описана 0

@an2503 0 / 0 / 0 Регистрация: 22.04.2010 Сообщений: 8
	20.01.2011, 11:27 [ТС]
	нифига не работает все равно((( 0

@an2503 0 / 0 / 0 Регистрация: 22.04.2010 Сообщений: 8
	20.01.2011, 13:15 [ТС]
	ошибки нет, но на два не делит(( 0