xzxzxz

.586

.model flat, stdcall
option casemap:none

include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
include \masm32\include\masm32.inc
include \masm32\include\debug.inc
include \masm32\include\masm32rt.inc

includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\user32.lib
includelib \masm32\lib\debug.lib
includelib \masm32\lib\msvcrt.lib
includelib \masm32\lib\fpu.lib

.data
a real8 2.0
b real8 3.5
fiv real8 5.0
res real8 0.0
finres real8 0.0
tri real8 3.0
z real8 0.0

.code
start:
finit
fld b
fmul st,st
fld a
fmul st,st
fmul
fld fiv
fmul
fld a
fld b
fmul
fld a
fmul
fsub st(1),st
fxch st(1)
fstp z
print "Chislitel = "
print real8$(z),13,10

finit
fld b
fmul st,st
fld a
fmul
fld a
fld tri
fmul
fsub st(1),st
fxch st(1)
fstp res
print "Znamenatel = "
print real8$(res),13,10

fld z
fld res
fdiv
fstp finres
print "res = "
print real8$(finres),13,10
invoke crt__getch
invoke crt_exit,0
end start