用Inno Setup計算平方根

Question

如何計算Inno Setup中數字的平方根？

Answer 1

經過研究了一下數學領域，可以做一下計算。

//Sqtr calc 
Function SqtrCalc(n : Single) : Single; 
Var 
    I: Integer; 
    y: Single; 
Begin 
    y := n; 

    for I := 0 to 9 do 
    begin 
     y := y/2 + n/(2 * y); 
    end; 

    Result := y; 
End;