MASM32 Вычислить значение функции f(x) - Assembler - Ответ 2883103

; f(x) = 1 x x * 15 + (fsqrt) / pi x x * (fsqrt) 14 + / (fsqrt) - cos
 
include \masm32\include\masm32rt.inc
 
    .data?
      value dd ?
    .data
      item dd 0
      x REAL8 1.0
      a REAL8 15.0
      b REAL8 14.0
      v15 dd 15
      v14 dd 14 
      v1 REAL8 1.0 
      rez REAL8 0.0
    .code
prog:
    push 1251
    call SetConsoleOutputCP
 
.code
    finit 
    fld x
    fmul x 
    fiadd v14
    fsqrt
    fldpi
    fdiv st(0),st(1)
    fsqrt
    fstp rez
    fld x
    fmul x 
    fiadd v15
    fsqrt
    fld1
    fdiv st(0),st(1)
    fsub rez
    fcos
    fstp rez   ;0.795695
    
    cls
    
    print "Результат вычисления f(x) = "
    print real8$(rez),13,10
 
end prog

include \masm32\include\masm32rt.inc
 
.data
N dd 1
M dd 10
count dd 0
step REAL10 0.5
x REAL10 0.0
s REAL10 0.0
 
.code
prog:
    finit
 
fild M
fisub N
fld step
fdiv
fld1
fadd
fistp count
 
mov ecx, count
 
fild N
fstp x
 
DO:
 
fld x
fld s
fadd
fstp s
 
fld x
fld step
fadd
fstp x
 
loop DO
 
push 1251
call SetConsoleOutputCP
 
print "Отрезок ["
print str$(N)
 
print ", "
print str$(M)
 
print "], шаг step = "
print real10$(step),10,13
 
print "Сумма чисел равна "
print real10$(s)
 
exit
end prog