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

; f(x) = 1 x x * 15 + (fsqrt) / pi x x * (fsqrt) 14 + / (fsqrt) - cos
 
include \masm32\include\masm32rt.inc
;================================================================================
    .data
             
    x REAL10 1.0
    a REAL10 -1.0
    b REAL10 1.0
    d REAL10 0.01
    v15 dd 15
    v14 dd 14
    rez REAL10 0.0
    sum REAL10 0.0
    min dd 0
    max dd 0
;================================================================================ 
    .code
prog:
 
    push 1251
    call SetConsoleOutputCP
 
    print "Отрезок ["
    print real10$(a)
 
    print ", "
    print real10$(b)
 
    print "], шаг d = "
    print real10$(d),10, 13
 
;================================================================================
    finit; инициализация сопроцессора
 
    fld1     ;вычисление f(x)
    fld x
    fld x
    fmul
    fiadd v15
    fsqrt
    fdiv
    fldpi
    fld x
    fld x
    fmul
    fiadd v14
    fsqrt
    fdiv
    fsqrt
    fsub
    fcos
 
    fstp rez   ;0.795695
    
    print "Результат вычисления f(x) = "
    print real10$(rez), 13, 10
;================================================================================
 
next:    ;  начало цикла.  Вычисление суммы
  
    fld b
    fld a
    fcompp   ; сравнение значения в регистре st(0) и операнда в памяти,после происходит выталкивание из стека значений st(0) и st(1) 
    fstsw ax ; перенос результата сравнения в регистр ax 
    sahf     ; копирование флагов состояния в регистр флагов eflags
    ja fin   ; переход если значение st(0) не равно 0
    
    fld a
    fstp x 
    
    fld1
    fld x
    fld x
    fmul
    fiadd v15
    fsqrt
    fdiv
    fldpi
    fld x
    fld x
    fmul
    fiadd v14
    fsqrt
    fdiv
    fsqrt
    fsub
    fcos
  
    fld sum
    faddp st(1),st(0) 
    fstp sum          ;вытолкнуть сумму в sum
    fld d             ;увеличить a на текущее значение d
    fld a
    faddp st(1),st(0)
    fstp a            ;вытолкнуть сумму в a
    jmp next          ;переход на метку next
  
fin:
    print "Результат вычисления S = "
    print real10$(sum), 13, 10
;================================================================================
 
; вычисление минимального - максимального значения на отрезке [а,b]
     
   
 
 
    
    exit
end prog