var
d: Real;
begin
d := Sqr(6);
ShowMessage(FloatToStr(d)); {36}
end;
var
d: Real;
begin
d := Sqrt(81);
ShowMessage(FloatToStr(d)); {9}
end;
System 单元下的公用函数目录
举例:
转载于:https://my.oschina.net/hermer/blog/319170