H
hitelf
Unregistered / Unconfirmed
GUEST, unregistred user!
发现错误：
project1.exe raised exception class EInvalidOp with message'Invalid floation point operation'.process stopped.use step or run to continue.
具体语句如下：
var
Ra,Rb,Rk,AlfK,SitK:Real;
------------------------
AlfK:=ArcTan(Sqrt(Rk*Rk-Rb*Rb)/Rb);
SitK:=Tan(AlfK)-AlfK;
project1.exe raised exception class EInvalidOp with message'Invalid floation point operation'.process stopped.use step or run to continue.
具体语句如下：
var
Ra,Rb,Rk,AlfK,SitK:Real;
------------------------
AlfK:=ArcTan(Sqrt(Rk*Rk-Rb*Rb)/Rb);
SitK:=Tan(AlfK)-AlfK;