Sequence of non-squares: Difference between revisions
Sequence of non-squares en True BASIC
(Sequence of non-squares en BASIC256) |
(Sequence of non-squares en True BASIC) |
||
Line 2,810:
(This program has not been run to completion.)
=={{header|True BASIC}}==
<lang qbasic>FUNCTION nonSquare (n)
LET nonSquare = n + INT(0.5 + SQR(n))
END FUNCTION
! Display first 22 values
PRINT "The first 22 numbers generated by the sequence are : "
FOR i = 1 TO 22
PRINT nonSquare(i); " ";
NEXT i
PRINT
! Check FOR squares up TO one million
LET found = 0
FOR i = 1 TO 1e6
LET j = SQR(nonSquare(i))
IF j = INT(j) THEN
LET found = 1
PRINT i, " square numbers found"
EXIT FOR
END IF
NEXT i
IF found = 0 THEN PRINT "No squares found"
END</lang>
=={{header|Ursala}}==
| |||