IPB
ЛогинПароль:

> ПРАВИЛА РАЗДЕЛА!!!

1. Заголовок или название темы должно быть информативным
2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE]
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора.
5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM!
6. Проверяйте программы перед тем, как выложить их на форум!!

 
 Ответить  Открыть новую тему 
> Вычисление значения формулы, Подскажите плиз
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 146
Пол: Мужской

Репутация: -  0  +


Задание: Вычислить значение формулы (a+b)/4-(a2-b2)/8-b/a, где а2, b2-квадраты значений, a=8;b=-3.

Программу написал, проверьте плиз все ли я правильно сделал? Можете кто-нибудь объяснить как мне использовать остаток? Я просто выполнял с остатками обычные действия, как с обычными числами? Например я считал 5/4-55/8-(-3/8). Остаток от 1-го деления=1, от 2-го=7, от 3-го=3. Получается я посчитал остаток от формулы вот так: 1-7+3. Я так думаю что это неправильно! Объясните как правильно использовать остатки, если я это делал неправильно!

Программа

model small
stack 100h
.data
a db 8
b db -3
znak db 0
znak2 db 0
delt1 db 4
delt2 db 8
slag1 dw 0
slag2 dw 0
slag3 dw 0
slag12 dw 0
rez1 dw 0
rez2 dw 0
otvet dw 0
.code
start:
mov ax,@data
mov ds,ax
xor ax,ax
mov al,a
add al,b
cbw
jc n11
jo n01
jmp end
n11:jno n10
mov znak,0ffh
jmp end
n10:jmp end
n01:mov znak,0
jmp end
end:add al,znak
div delt1
mov slag1,ax
xor ax,ax
mov al,a
cbw
mul ax
mov rez1,ax
xor ax,ax
mov al,b
cbw
imul ax
mov rez2,ax
xor ax,ax
mov ax,rez1
sub ax,rez2
jnc m1
neg ax
m1:div delt2
mov slag2,ax
xor ax,ax
mov ax,slag1
sub ax,slag2
jc m2
neg ax
m2:mov slag12,ax
xor ax,ax
mov al,b
cbw
idiv a
mov slag3,ax
xor ax,ax
mov ax,slag12
sub ax,slag3
jnc m3
jmp konec
m3:jns m4
jmp konec
m4:jno konec
mov znak2,0ffh
konec:add al,znak2
mov otvet,ax
mov ax,4c00h
int 21h
end start
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.10.2020 19:44
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name