Мне нужно узнать как получившееся выражение разделить на пи...заранее спасибо))

[***Виталия***]

Здравствуйте всем!!)))
Помогите пожалуйста дописать программу,мне дано выражение f(a,b)=((a-a mod b)div 16 - 8*(a div b))*2,сначала нужно вычислить его значение,это я сделала))))
а затем получившееся значение поделить на пи,вот в это вопрос и заключается,как мне поделить на пи,подскажите пожалуйста..!!)))


.MODEL large, PASCAL
.CODE
;
kr2_40 PROC FAR a:WORD,b:WORD
PUBLIC kr2_40
mov si,ds



mov ax,a
mov bx,b
xor dx,dx
div bx
mov ax,dx
mov bx,ax
mov ax,a
sub ax,bx
shr ax,4
mov bx,ax
mov ax,a
mov cx,b
xor dx,dx
div cx
shl ax,3
mov cx,ax
mov ax,bx
sub ax,cx
shl ax,1 тут заканчивается вычисление выражения

mov a,ax
finit
fild a
fldpi
fdiv


mov ds,si
ret
kr2_40 ENDP
END

[airyashov]

fpu поможет

[***Виталия***]

можете мне сказать что именно там нужно писать чтобы выражение делилось на пи??

[p51x]

fldpi
fld f
fdiv
fstp res

[Mikl___]

***Виталия***
если без использования FPU то

.data
pi dw 31416
.code
mov ax,результат
mov bx,10000; точность вычисления 4 знака после запятой
mul bx
div pi

если с использованием FPU, но требуется целочисленный результат, то как написал p51x, только последняя команда fistp res

[***Виталия***]

вот я сделала как вы и сказали,только при проверке на Паскале он выдает ошибку Invalid floating point operation. Что это значит?Можете посмотреть код,может я что-то неправильно написала...

PHP код:

      .MODEL  large, PASCAL
      .data
      pi dw 31416
      .CODE
;      
kr2_40 PROC FAR a:WORD,b:WORD 
      PUBLIC kr2_40
      mov    si,ds         ; сохранить DS
                           ;   Турбо Паскаля


      mov ax,a
      mov bx,b
      xor dx,dx
      div bx
      mov ax,dx
      mov bx,ax
      mov ax,a
      sub ax,bx
      shr ax,4
      mov bx,ax
      mov ax,a
      mov cx,b
      xor dx,dx
      div cx
      shl ax,3
      mov cx,ax
      mov ax,bx
      sub ax,cx
      shl ax,1
     
      mov bx,10000; точность вычисления 4 знака после запятой
      mul bx
      xor dx,dx
      div pi

     
;
      mov  ds,si         ; 
      ret
kr2_40 ENDP
      END 


[Mikl___]

***Виталия***
в AX результат
mov bx,10000
mul bx; теперь результат в DX:AX
; xor DX,DX <-- этого делать не нужно,
; обнуление DX приведет к искажению результата при делении
DIV pi; делим DX:AX на 31416
в AX частное, в DX остаток

[***Виталия***]

Вот так именно я и написала,только вы написали чтобы в ax занести результат,а он же и так у меня в ax...

Но Паскаль выдает ошибку...как ее исправить(((???

[Mikl___]

***Виталия***
Закомментируй кусок в котором умножается на 10000 и делится на 31416
В AX какое число? Выведи его на экран

[***Виталия***]

закоментировала,выводится если а = 300
b=300 то с = 20