MySin

[_-Re@l-_]

Вот код(говорят,правильный):

Uses CRT;
Function MySin(X:Extended):Extended;
Begin
     Asm
     FLD X
     DB $D9,$FE
     FWAIT
     End;
End;
Var
    T,Q:Extended;
Begin
     Clrscr;
     Write('T = ');
     Readln(T);
     Q:=MySin(T*0.0174);
     Write('Q = ',Q:10:2);
     Readln;
End.

Однако, Q при любом Т равно 0. Почему?

[Олвин]

Может потому, что в функции никаких вычислений не происходит?

[Tronix]

Сообщение от _-Re@l-_

Однако, Q при любом Т равно 0. Почему?

Потому, что из стека (регистра ST(0) ) нужно значение куда-то все-таки извлечь.
HINT: FST/FSTP

[Stilet]

Потому что ты из стека FPU не вибираешь то что вычисленно.
На Делфи это выглядело бы:

Function MySin(X:Extended):Extended;
var d:Extended;
Begin
     Asm
     FLD X
     DB $D9,$FE
     FWAIT
     FSTp tbyte ptr[d];
     End;
     Result:=d;
End;

А вот как это красивее в опкодах для паскаля описать я не представляю... Нужно же как то адрес вычислить