Find square difference: Difference between revisions
Content added Content deleted
(Ada version) |
(Find square difference in Run BASIC) |
||
| Line 161: | Line 161: | ||
PRINT fpow(1001)</lang> |
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}}=== |
==={{header|True BASIC}}=== |
||
<lang qbasic>FUNCTION fpow (n) |
<lang qbasic>FUNCTION fpow (n) |
||