Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.06.2012, 16:14   #1
Dianka_i
Новичок
Джуниор
 
Регистрация: 21.06.2012
Сообщений: 1
По умолчанию квадратное уравнение

Доброго времени суток, можете помочь? к каждой строчке кода комментарии написать что это значит и что делает? с преподавателем договарилась что если расскажу эту задачу и отвечу на вопросы из билета, то он мне 4 поставит на экзамене без решения экзаменационной задачи.. уж очень не хочу терять стипендию из-за этого предмета =(

ну и я не очень уверена что код правильный..

Код:
.model small 
.data 
 
 a dd 2.0 
 b dd 4.0 
 c dd 2.0 
 D dd ? 
 
 mes1 db 'No roots! $' 
 
 temp dd 4.0 
 temp2 dd 2.0 
 
.stack 256h 
.code 
 
;Main PROC 
main proc 
 
 push @data 
 pop ds 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 
 finit 
 
; discriminante 
; C++: 
; D = sqr(b)-4*a*c 
 
 fld b 
 fmul b 
 fld a 
 fld temp 
 
 fmul 
 fld c 
 fmul 
 fsubp st(1),st(0) 
 fst D 
 
; <=> 
 ftst 
 
 fstsw ax 
 sahf 
 
 jc j1 
 jz j2 
 
; D > 0 
; X1 = (-b-sqrt(D))/(2*a) 
; X2 = (-b+sqrt(D))/(2*a) 
 
 finit 
 
 fld temp2 
 fmul a 
 fld D 
 fsqrt 
 fld b 
 fchs 
 
 fsave temp2[4] 
 frstor temp2[4] 
 
 fsubr 
 fdivr ; first root 
 
 frstor temp2[4] 
 
 fadd 
 fdivr ; second root 
 
 jmp ex 
 
; D < 0 
; !no roots! 
 
j1: mov ah, 09h 
 mov dx, offset mes1 
 int 21h 
 jmp ex 
 
; D = 0 
; X = -b/(2*a) 
 
j2: finit 
 fld temp2 
 fmul a 
 fld b 
 fdivr 
 fchs ; root 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
ex: mov ax, 04C00h 
 int 21h 
 
main endp 
;end of main 
 
end main
Dianka_i вне форума Ответить с цитированием
Старый 24.06.2012, 12:02   #2
rlib
Форумчанин
 
Аватар для rlib
 
Регистрация: 22.05.2012
Сообщений: 352
По умолчанию

Предлагаю вам поделиться половиной стипендии со мной за решение данного вопроса. Согласитесь, лучше половина, чем вообще ничего.
rlib вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Квадратное уравнение. Hotab Паскаль, Turbo Pascal, PascalABC.NET 6 15.01.2012 11:27
Квадратное уравнение turtles Общие вопросы по Java, Java SE, Kotlin 1 14.04.2011 21:56
Квадратное уравнение sergio11 Общие вопросы Delphi 3 11.05.2010 21:42