Find square difference: Difference between revisions
Find square difference in various BASIC dialents
(Added Go) |
(Find square difference in various BASIC dialents) |
||
Line 76:
501
</pre>
=={{header|BASIC}}==
==={{header|BASIC256}}===
<lang freebasic>function fpow(n)
i = 0
while i^2 - (i-1)^2 < n
i += 1
end while
Return i
end function
print fpow(1001)
end</lang>
==={{header|PureBasic}}===
<lang PureBasic>Procedure fpow(n.i)
Define i.i
While Pow(i, 2) - Pow((i-1), 2) < n
i + 1
Wend
ProcedureReturn i
EndProcedure
OpenConsole()
Print(Str(fpow(1001)))
Input()
CloseConsole()</lang>
==={{header|QBasic}}===
<lang qbasic>FUNCTION fpow (n)
WHILE (i * i) - ((i - 1) * (i - 1)) < n
i = i + 1
WEND
fpow = i
END FUNCTION
PRINT fpow(1001)</lang>
==={{header|True BASIC}}===
<lang qbasic>FUNCTION fpow (n)
DO WHILE i ^ 2 - (i - 1) ^ 2 < n
LET i = i + 1
LOOP
LET fpow = I
END FUNCTION
PRINT fpow(1001)
END
</lang>
==={{header|Yabasic}}===
<lang freebasic>sub fpow(n)
while i^2 - (i-1)^2 < n
i = i + 1
wend
Return i
end sub
print fpow(1001)
end</lang>
=={{header|C}}==
| |||