我在函数中定义
procedure M(var ag:real);
begin
if (ag>=7*pi/4) then begin
showmessage('OK')
end;
end;
但当我进行运算时:
var
ag:real
...ag:=7*pi/4;
M(ag); //结果,不运行showmessage('ok');
...调试时发现(ag>=7*pi/4)为false,
请问这是怎么回事?
如何解决该类问题?
procedure M(var ag:real);
begin
if (ag>=7*pi/4) then begin
showmessage('OK')
end;
end;
但当我进行运算时:
var
ag:real
...ag:=7*pi/4;
M(ag); //结果,不运行showmessage('ok');
...调试时发现(ag>=7*pi/4)为false,
请问这是怎么回事?
如何解决该类问题?
abs(ag - 7*pi/4) < 0.0000001