aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Nth-root/S-BASIC/nth-root-2.basic
View file

@ -1,8 +1,8 @@
rem - return the nth root of real.double value x to stated precision
rem - return the nth root of x to stated precision
function nthroot(n, x, precision = real.double) = real.double
var x0, x1 = real.double
x0 = x
x1 = x / n rem - initial guess
x1 = x / n rem - initial guess
while abs(x1 - x0) > precision do
begin
x0 = x1
@ -13,11 +13,14 @@ end = x1
rem -- exercise the routine
var i = integer
print "Finding the nth root of 144 to 6 decimal places"
var x = real.double
x = 144
print "Finding the nth root of"; x; " to 8 decimal places"
print " x n root"
print "------------------------"
for i = 1 to 8
print using "### #### ###.######"; 144; i; nthroot(i, 144.0, 1E-7)
for i = 2 to 8
print using "### #### ###.########"; x; i; nthroot(i, x, 1E-9)
next i
end