Find square difference: Difference between revisions
Find square difference in Tiny BASIC
(Find square difference in Run BASIC) |
(Find square difference in Tiny BASIC) |
||
Line 162:
==={{header|Run BASIC}}===
<lang lb>function fpow(n)
while i^2-(i-1)^2 < n
Line 171 ⟶ 170:
print fpow(1001)</lang>
==={{header|True BASIC}}===
<lang qbasic>FUNCTION fpow (n)
Line 180:
PRINT fpow(1001)
END</lang>
</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
▲ END</lang>
==={{header|Yabasic}}===
| |||