Almost prime: Difference between revisions
Content deleted Content added
→{{header|ASIC}}: Added |
m →{{header|XBasic}}: No space at the end of output lines |
||
Line 4,012: | Line 4,012: | ||
{{works with|Windows XBasic}} |
{{works with|Windows XBasic}} |
||
<lang xbasic> |
<lang xbasic> |
||
' Almost prime |
|||
PROGRAM "almostprime" |
PROGRAM "almostprime" |
||
VERSION "0. |
VERSION "0.0002" |
||
DECLARE FUNCTION Entry() |
DECLARE FUNCTION Entry() |
||
INTERNAL FUNCTION KPrime(n%%, k%%) |
INTERNAL FUNCTION KPrime(n%%, k%%) |
||
FUNCTION Entry() |
FUNCTION Entry() |
||
FOR k@@ = 1 TO 5 |
FOR k@@ = 1 TO 5 |
||
PRINT "k ="; k@@; ": |
PRINT "k ="; k@@; ":"; |
||
i%% = 2 |
i%% = 2 |
||
c%% = 0 |
c%% = 0 |
||
DO WHILE c%% < 10 |
DO WHILE c%% < 10 |
||
IFT KPrime(i%%, k@@) THEN |
IFT KPrime(i%%, k@@) THEN |
||
PRINT FORMAT$("### |
PRINT FORMAT$(" ###", i%%); |
||
INC c%% |
INC c%% |
||
END IF |
END IF |
||
Line 4,033: | Line 4,034: | ||
NEXT k@@ |
NEXT k@@ |
||
END FUNCTION |
END FUNCTION |
||
FUNCTION KPrime(n%%, k%%) |
FUNCTION KPrime(n%%, k%%) |
||
f%% = 0 |
f%% = 0 |
||
Line 4,045: | Line 4,046: | ||
RETURN f%% = k%% |
RETURN f%% = k%% |
||
END FUNCTION |
END FUNCTION |
||
END PROGRAM |
END PROGRAM |
||
</lang> |
</lang> |