Find square difference: Difference between revisions
Find square difference in Run BASIC
(Ada version) |
(Find square difference in Run BASIC) |
||
Line 161:
PRINT fpow(1001)</lang>
==={{header|Run BASIC}}===
{{works with|QBasic}}
<lang lb>function fpow(n)
while i^2-(i-1)^2 < n
i = i+1
wend
fpow = i
end function
print fpow(1001)</lang>
==={{header|True BASIC}}===
<lang qbasic>FUNCTION fpow (n)
| |||