Anonymous user
Semiprime: Difference between revisions
BASICs moved to the BASIC section
(→{{header|Minimal BASIC}}: Added) |
(BASICs moved to the BASIC section) |
||
Line 419:
next i
end</lang>
==={{header|FreeBASIC}}===▼
<lang freebasic>function semiprime( n as uinteger ) as boolean▼
dim as uinteger a = 2, c = 0▼
while c < 3 andalso n > 1▼
if n mod a = 0 then▼
n /= a▼
c += 1▼
else▼
a += 1▼
end if▼
wend▼
if c = 2 then return true▼
return false▼
end function▼
for i as uinteger = 0 to 64▼
print i, semiprime(i)▼
next i</lang>▼
==={{header|GW-BASIC}}===▼
<lang gwbasic>10 INPUT "Enter a number: ", N▼
20 N=ABS(N)▼
30 C = 0▼
40 IF N < 3 THEN GOTO 80▼
50 F = 2▼
60 IF N MOD F = 0 THEN C = C + 1 : N = N / F ELSE F = F + 1▼
70 IF N > 1 THEN GOTO 60▼
80 IF C=2 THEN PRINT "It's a semiprime." ELSE PRINT "It is not a semiprime."</lang>▼
==={{header|Minimal BASIC}}===
Line 470 ⟶ 499:
CloseConsole()
End</lang>
==={{header|Tiny BASIC}}===▼
<lang tinybasic> PRINT "Enter an integer"▼
INPUT N▼
IF N < 0 THEN LET N = -N▼
IF N < 2 THEN GOTO 20▼
LET C = 0▼
LET F = 2▼
10 IF (N/F)*F = N THEN GOTO 30▼
LET F = F + 1▼
IF F > N THEN GOTO 20▼
GOTO 10▼
20 IF C = 2 THEN PRINT "It is a semiprime."▼
IF C<> 2 THEN PRINT "It is not a semiprime." ▼
END▼
30 LET C = C + 1▼
LET N = N / F▼
GOTO 10</lang>▼
==={{header|Yabasic}}===
Line 1,107 ⟶ 1,154:
ok
</pre>
▲=={{header|FreeBASIC}}==
▲<lang freebasic>function semiprime( n as uinteger ) as boolean
▲ dim as uinteger a = 2, c = 0
▲ while c < 3 andalso n > 1
▲ if n mod a = 0 then
▲ n /= a
▲ c += 1
▲ else
▲ a += 1
▲ end if
▲ wend
▲ if c = 2 then return true
▲ return false
▲end function
▲for i as uinteger = 0 to 64
▲ print i, semiprime(i)
▲next i</lang>
=={{header|Frink}}==
Line 1,171 ⟶ 1,199:
1680 -> false
</pre>
▲=={{header|GW-BASIC}}==
▲<lang gwbasic>10 INPUT "Enter a number: ", N
▲20 N=ABS(N)
▲30 C = 0
▲40 IF N < 3 THEN GOTO 80
▲50 F = 2
▲60 IF N MOD F = 0 THEN C = C + 1 : N = N / F ELSE F = F + 1
▲70 IF N > 1 THEN GOTO 60
▲80 IF C=2 THEN PRINT "It's a semiprime." ELSE PRINT "It is not a semiprime."</lang>
=={{header|Haskell}}==
Line 2,815 ⟶ 2,833:
1680 is ... NOT a semiprime
</pre>
▲=={{header|Tiny BASIC}}==
▲<lang tinybasic> PRINT "Enter an integer"
▲ INPUT N
▲ IF N < 0 THEN LET N = -N
▲ IF N < 2 THEN GOTO 20
▲ LET C = 0
▲ LET F = 2
▲10 IF (N/F)*F = N THEN GOTO 30
▲ LET F = F + 1
▲ IF F > N THEN GOTO 20
▲ GOTO 10
▲20 IF C = 2 THEN PRINT "It is a semiprime."
▲ IF C<> 2 THEN PRINT "It is not a semiprime."
▲ END
▲30 LET C = C + 1
▲ LET N = N / F
▲ GOTO 10</lang>
=={{header|Wren}}==
| |||