Semiprime: Difference between revisions
Semiprime in True BASIC and Run BASIC
(→{{header|jq}}: simplify) |
(Semiprime in True BASIC and Run BASIC) |
||
Line 535:
CloseConsole()
End</syntaxhighlight>
==={{header|Run BASIC}}===
<syntaxhighlight lang="vbnet">function semiprime$(n)
a = 2
c = 0
while c < 3 and n > 1
if n mod a = 0 then
n = n / a
c = c + 1
else
a = a + 1
end if
wend
if c = 2 then semiprime$ = "True" else semiprime$ = "False"
end function
for i = 0 to 64
print i; chr$(9); semiprime$(i)
next i</syntaxhighlight>
==={{header|Tiny BASIC}}===
Line 566 ⟶ 585:
It is a semiprime.
</pre>
==={{header|True BASIC}}===
<syntaxhighlight lang="qbasic">FUNCTION semiprime$ (n)
LET a = 2
LET c = 0
DO WHILE c < 3 AND n > 1
IF REMAINDER(n, a) = 0 THEN
LET n = n / a
LET c = c + 1
ELSE
LET a = a + 1
END IF
LOOP
IF c = 2 THEN LET semiprime$ = "True" ELSE LET semiprime$ = "False"
END FUNCTION
FOR i = 0 TO 64
PRINT i, semiprime$(i)
NEXT i
END</syntaxhighlight>
==={{header|Yabasic}}===
| |||