Помогите решить d=b2-4ac

[ksander_29]

Доброго времени суток!
при изучении asm возникла проблема,как реализовать вычисление по такой формуле
d=b2-4ac
a,b,c переменные которые поступают от контролов во время исполнения пограммы
посоветуйте как это реализовать(желательно masm или fasm)
интересует только реализация вычислений (квадрат числа,квадратный корень,и в частности степени и корни н-ой степени)

[Stilet]

А в чем именно проблема?
Перевести текст контролов в число, или вычислить формулу?

[ksander_29]

решить формулу используя команды ассемблера

[Goodwin98]

Как-то так

;d = b^2 - 4*a*c
mov eax,[a]
imul eax,[c]
shl eax,2
mov ebx,eax
mov eax,[b]
imul eax
sub eax,ebx
mov [d],eax

[Mikl___]

Сообщение от ksander_29

Помогите решить d=b^2-4ac... интересует только реализация вычислений (квадрат числа,квадратный корень,и в частности степени и корни н-ой степени)

интересно, а где в данном уравнении квадратный корень и корни N-ой степени?
Скорее всего ksander_29 постеснялся написать, что ему требуется найти корни квадратного уравнения, заданного формулой: AX^2+BX+C= 0
Программа для решения этого уравнения:

.data
A DW ? ;место под коэффициенты
B DW ?
C DW ?
STATUS DW ?
FOUR DW 4.0 ;нам понадобятся две константы
TWO DW 2.0 ;FOUR=4.0 и TWO=2.0
ROOT1 DW ? ;место под 1-ый корень уравнения
ROOT2 DW ?;место под 2-ой корень уравнения
.code 
FINIT ;инициализируем блок FPU
FILD B ;загрузить число в регистр стека ST(0):=B
FMUL ST(0) ;перемножить числа ST(0):=B*B
FILD A ;загрузить число в регистр стека, ST(0):=A ST(1):=B*B
FIMUL FOUR ;умножить число в ST(0) на 4, ST(0):=4*A
FIMUL C ;умножить число в ST(0) на C, ST(0):=4*A*C
FSUBRP ST(1),ST(0) ;вычитаем обратные целые числа ST(0):=B*B-4*A*C
FTST ;проверяем дискриминант на отрицательность
FSTSW STATUS;записываем в память управляющий регистр FPU
FWAIT; и переводим FPU в режим ожидания
MOV AH,BYTE PTR STATUS+1;Читаем в AH
SAHF; помещаем содержимое регистра AH в регистр флагов
JB IMAGINARY;если корни мнимые переходим на метку IMAGINARY, где сообщаем об отрицательном корне
FSQRT ;извлекаем квадратный корень ST(0):=SQRT(ST(0))
FLD ST(0) ;загрузить число из ST(0) в ST(1):=ST(0)
FCHS ;изменяем знак, ST(0)=-SQRT(D)
FIADD B;складываем целые числа ST(0)=B-SQRT(D)
FCHS ;изменяем знак ST(0)= -B+SQRT(D)
FXCH ST(1);обмениваемся данными между ST(0) и ST(1)
FIADD B;складываем целые числа ST(0)=B+SQRT(D)
FCHS ;изменяем знак, ST(0)= -B-SQRT(D)
FIDIV A;делим на целое число ST(0)= -(B+SQRT(D))/A
FIDIV TWO;еще раз делим на 2, ST(0)=-(B+SQRT(D))/2A
FST ROOT1;сохраняем в памяти 1-ый результат из ST(0)
FIDIV A;делим на целое число ST(0)=(-B+SQRT(D))/A
FIDIV TWO ;делим на 2 ST(0)=(-B+SQRT(D))/2A
FST ROOT2 ;сохраняем в памяти 2-ой результат