Find square difference: Difference between revisions
Content added Content deleted
(Find square difference in Run BASIC) |
(Find square difference in Tiny BASIC) |
||
Line 162: | Line 162: | ||
==={{header|Run BASIC}}=== |
==={{header|Run BASIC}}=== |
||
{{works with|QBasic}} |
|||
<lang lb>function fpow(n) |
<lang lb>function fpow(n) |
||
while i^2-(i-1)^2 < n |
while i^2-(i-1)^2 < n |
||
Line 171: | Line 170: | ||
print fpow(1001)</lang> |
print fpow(1001)</lang> |
||
==={{header|True BASIC}}=== |
==={{header|True BASIC}}=== |
||
<lang qbasic>FUNCTION fpow (n) |
<lang qbasic>FUNCTION fpow (n) |
||
Line 180: | Line 180: | ||
PRINT fpow(1001) |
PRINT fpow(1001) |
||
END |
END</lang> |
||
⚫ | |||
==={{Header|Tiny BASIC}}=== |
|||
<lang qbasic> LET N = 1001 |
|||
LET I = 0 |
|||
10 LET R = I*I - (I-1)*(I-1) |
|||
IF R >= N THEN GOTO 20 |
|||
IF R < N THEN LET I = I + 1 |
|||
GOTO 10 |
|||
20 PRINT I |
|||
⚫ | |||
==={{header|Yabasic}}=== |
==={{header|Yabasic}}=== |