In delphi 7, sqrt(0.5) is multiplied by an integer, such as 3, and the result P (shaping) is obtained. How to do the program? Just have the main program.
defined variable
A, p: integer;
begin
a:= 3；
p:= Round(sqrt 9(0.5)* A)；
End;
//Round is the dealer's algorithm rounding. If it is simple rounding, use the trunc function.