Primality by trial division: Difference between revisions
Primality by trial division in True BASIC
mNo edit summary |
(Primality by trial division in True BASIC) |
||
Line 790:
240 END IF
250 END DEF</lang>
==={{header|True BASIC}}===
{{trans|BASIC}}
<lang qbasic>FUNCTION isPrime (n)
IF n = 2 THEN
LET isPrime = 1
ELSEIF n <= 1 OR REMAINDER(n, 2) = 0 THEN
LET isPrime = 0
ELSE
LET isPrime = 1
FOR i = 3 TO INT(SQR(n)) STEP 2
IF REMAINDER(n, i) = 0 THEN
LET isPrime = 0
EXIT FUNCTION
END IF
NEXT i
END IF
END FUNCTION
FOR n = 1 TO 50
IF isPrime(n) = 1 THEN PRINT n;
NEXT n
END</lang>
==={{header|ZX Spectrum Basic}}===
| |||