зеля.толстый щур! :))))
0 подписчиков
вот мои задачи )
1.
assume cs:c,ds:d,ss:s
s
segment Stack
dw 128 dup(?)
s
ends
d
segment
A dw 256 dup(?)
B dw 256 dup(?)
ABX dw 256 dup(?)
n dw ?
k dw ?
two dw 2
max dw 0
msg0 db '‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® н«Ґ¬Ґв®ў ¬ ббЁў A (1..256): $'
msg1 db cr,lf,'‚ўҐ¤ЁвҐ н«Ґ¬Ґвл ¬ ббЁў Ђ (-32768..32767)',cr,lf,'$'
msg03 db cr,lf,'‚ўҐ¤ЁвҐ н«Ґ¬Ґвл ¬ ббЁў B (-32768..32767)',cr,lf,'$'
msg01 db '‚ўҐ¤ЁвҐ Є®«ЁзҐбвў н«Ґ¬Ґв®ў ¬ ббЁў B (1..256): $'
msg2 db cr,lf,'‚л ўўҐ«Ё ¬ ббЁў A: $'
msg02 db cr,lf,'‚л ўўҐ«Ё ¬ ббЁў B: $'
msgmax db cr,lf,'‘ ¬л© з бв® ўбваҐз Ґ¬л© н«Ґ¬Ґв: $'
count db '-e зЁб«®: $'
space db ', $'
enter db '',cr,lf,'$'
answer db cr,lf,'‘д®а¬Ёа®ў л© ¬ ббЁў X: $'
string db 255,0,255 dup (?)
errmsg db cr,lf,'ЌҐ¤®ЇгбвЁ¬л© бЁ¬ў®«! Њ®¦® '
db 'ЁбЇ®«м§®ў вм в®«мЄ® жЁдал.',0dh,0ah,'$'
overflow db cr,lf,'‚л ўўҐ«Ё б«ЁиЄ®¬ Ў®«миЁҐ зЁб« !$'
er_neg db cr,lf,'‚л ўўҐ«Ё ҐЄ®а४⮥ Є®«ЁзҐбвў® н«Ґ¬Ґв®ў!$'
negflag dw ?
d
ends
c segment
cr=0dh
lf=0ah
IntegerIn proc
Start:
mov ah,0ah
lea dx,string
int 21h
xor ax,ax
lea di,string+2
mov negflag,ax
cmp byte ptr [di],'-'
jne m2
not negflag
inc di
jmp m
m2:
cmp byte ptr [di],'+'
jne m
inc di
m:
cmp byte ptr [di],0dh
je ex1
cmp byte ptr [di],'0'
jb err
cmp byte ptr [di],'9'
ja err
mov bx,10
mul bx
sub byte ptr [di],'0'
add al,[di]
adc ah,0
inc di
jmp m
err:
lea dx,errmsg
mov ah,9h
int 21h
jmp Bad_end
ex1:
cmp negflag,0
je ex
neg ax
ex:
ret
IntegerIn endp
IntegerOut proc
xor cx,cx
mov bx,10
cmp ax,0
jge mm
neg ax
push ax
mov ah,2
mov dl,'-'
int 21h
pop ax
mm:
inc cx
xor dx,dx
div bx
push dx
or ax,ax
jnz mm
mm1:
pop dx
add dx,'0'
mov ah,2
int 21h
loop mm1
ret
IntegerOut endp
Begin:
mov ax,d
mov ds,ax
mov ah,09
;вводим n
lea dx,msg0
int 21h
call IntegerIn
cmp ax,1
jb bad
cmp ax,100h
jna good
bad:
mov ah,09
lea dx,er_neg
int 21h
jmp bad_end
good:
mov n,ax
mov cx,n
lea si,A
mov ah,09
lea dx,msg1
int 21h
input:
mov ax,cx
;вводим массив А
neg ax
add ax,n
inc ax
push cx
call IntegerOut
pop cx
mov ah,09
;вывод сообщения
lea dx,count
int 21h
call IntegerIn
mov [si],ax
add si,2
mov ah,09
;вывод сообещния
lea dx,enter
int 21h
loop input
mov ah,09
lea dx,msg01
int 21h
call IntegerIn
cmp ax,1
jb bad
cmp ax,100h
jnb bad
mov k,ax
mov cx,k
lea si,B
mov ah,09
lea dx,msg03
int 21h
input1:
mov ax,cx
;вводим массив В
neg ax
add ax,k
inc ax
push cx
call IntegerOut
pop cx
mov ah,09
lea dx,count
int 21h
call IntegerIn
mov [si],ax
add si,2
mov ah,09
lea dx,enter
int 21h
loop input1
mov ah,09
lea dx,msg2
int 21h
mov cx,n
lea si,A
output:
mov ax,[si]
;выводим массив А
push cx
call IntegerOut
pop cx
add si,2
cmp cx,1
jna next
mov ah,09
lea dx,space
int 21h
next:
loop output
mov ah,09
lea dx,msg02
int 21h
mov cx,k
lea si,B
output1:
mov ax,[si]
;выводим массив В
push cx
call Integ
Название
зеля.толстый щур! :))))
Статус
Страна
Россия
Город
Москва
Url
club7416030
Id
7416030
Тематика
Закрытая группа
Вики страница
Не установлена
Сайт
Блокировка
Нет ограничений
Видимость
Закрытая
Верификация
Группа не верифицирована администрацией Вконтакте
Популярность
У группы нет огня Прометея
Тип
Группа
Возрастные ограничения
Нет
Стена
Открытая
Контакты
