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

6
Task/Nth-root/S-BASIC/nth-root-1.basic
View file

@ -4,12 +4,14 @@ end = exp((1.0 / n) * log(x))
rem - exercise the routine by finding successive roots of 144
var i = integer
var x = real
print "Finding the nth root of x"
x = 144
print "Finding the nth root of"; x
print " x n root"
print "-----------------------"
for i = 1 to 8
print using "### #### ###.####"; 144; i; nthroot(144, i)
print using "### #### ###.####"; x; i; nthroot(x, i)
next i
end