Nth root: Difference between revisions
Content deleted Content added
Add Swift |
No edit summary |
||
Line 538:
See also the [[#Liberty BASIC|Liberty BASIC]] and [[#PureBasic|PureBasic]] solutions.
=={{header |Basic09}}==
{{running on the OS9 operating system -- RUN nth(root,number,precision)}}
<lang Basic09>
PROCEDURE nth
PARAM N : INTEGER; A, P : REAL
DIM TEMP0, TEMP1 : REAL
TEMP0 := A
TEMP1 := A/N
WHILE ( abs(TEMP0 - TEMP1) > P) DO
TEMP0 := TEMP1
TEMP1 := (( N - 1.0) * TEMP1 + A / TEMP1 ^ (N - 1.0)) / N
PRINT TEMP1
ENDWHILE
PRINT N, P, A
PRINT TEMP1
END
</lang>
=={{header|BBC BASIC}}==
| |||