08/05/21 12:04:07
>>704
良く知られた方法は 奇数を順に累計していったらという方法
function iSqr(n:Integer):Integer;
var i,sum:Integer;
begin
sum:=0;
for i:=0 to $B505 div 2 do begin
sum:=sum+1+i*2;
if sum>n then begin Result:=i;exit;end;
end;
Result:=i;
end;
大きな数字で速度がある程度必要ならバイナリー法(２分検索を行う）
さらに浮動小数点等で速度が必要ならニュートン法