Tau number: Difference between revisions
Content added Content deleted
Deadmarshal (talk | contribs) |
(Added Chipmunk Basic, GW-BASIC, and MSX Basic) |
||
Line 410: | Line 410: | ||
end while |
end while |
||
end</syntaxhighlight> |
end</syntaxhighlight> |
||
==={{header|Chipmunk Basic}}=== |
|||
{{trans|BASIC256}} |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
<syntaxhighlight lang="qbasic">100 cls |
|||
110 print "The first 100 tau numbers are:" |
|||
120 n = 0 |
|||
130 num = 0 |
|||
140 limit = 100 |
|||
150 while num < limit |
|||
160 n = n+1 |
|||
170 tau = 0 |
|||
180 for m = 1 to n |
|||
190 if n mod m = 0 then tau = tau+1 |
|||
200 next m |
|||
210 if n mod tau = 0 then |
|||
220 num = num+1 |
|||
230 if num mod 10 = 1 then print |
|||
240 print n, |
|||
250 endif |
|||
260 wend |
|||
270 print |
|||
280 end</syntaxhighlight> |
|||
==={{header|GW-BASIC}}=== |
|||
{{works with|PC-BASIC|any}} |
|||
{{trans|Chipmunk Basic}} |
|||
<syntaxhighlight lang="qbasic">100 CLS |
|||
110 PRINT "The first 100 tau numbers are:" |
|||
120 N = 0 |
|||
130 NUM = 0 |
|||
140 LIMIT = 100 |
|||
150 WHILE NUM < LIMIT |
|||
160 N = N+1 |
|||
170 TAU = 0 |
|||
180 FOR M = 1 TO N |
|||
190 IF N MOD M = 0 THEN TAU = TAU+1 |
|||
200 NEXT M |
|||
210 IF N MOD TAU = 0 THEN NUM = NUM+1 : PRINT N; " "; |
|||
220 WEND |
|||
230 END</syntaxhighlight> |
|||
==={{header|MSX Basic}}=== |
|||
{{works with|MSX BASIC|any}} |
|||
{{trans|Chipmunk Basic}} |
|||
<syntaxhighlight lang="qbasic">100 CLS |
|||
110 PRINT "The first 100 tau numbers are:" |
|||
120 N = 0 |
|||
130 NUM = 0 |
|||
140 LIMIT = 100 |
|||
150 IF NUM > LIMIT THEN GOTO 270 |
|||
160 N = N+1 |
|||
170 TAU = 0 |
|||
180 FOR M = 1 TO N |
|||
190 IF N MOD M = 0 THEN TAU = TAU+1 |
|||
200 NEXT M |
|||
210 IF N MOD TAU = 0 THEN NUM = NUM+1 : PRINT N; |
|||
220 GOTO 150 |
|||
230 END</syntaxhighlight> |
|||
==={{header|QBasic}}=== |
==={{header|QBasic}}=== |