Isqrt (integer square root) of X: Difference between revisions

=={{header|Craft Basic}}==

<syntaxhighlight lang="basic">alert "integer square root of first 65 numbers:"

for n = 1 to 65

let x = n

gosub isqrt

print r

next n

alert "integer square root of odd powers of 7"

cls

cursor 1, 1

for n = 1 to 21 step 2

let x = 7 ^ n

gosub isqrt

print "isqrt of 7 ^ ", n, " = ", r

next n

end

sub isqrt

let q = 1

do

if q <= x then

let q = q * 4

endif

wait

loop q <= x

let r = 0

do

if q > 1 then

let q = q / 4

let t = x - r - q

let r = r / 2

if t >= 0 then

let x = t

let r = r + q

endif

endif

loop q > 1

let r = int(r)

return</syntaxhighlight>