Factors of an integer: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
(Added MSX Basic and Quite BASIC) |
||
| Line 1,481: | Line 1,481: | ||
{{trans|GW-BASIC}} |
{{trans|GW-BASIC}} |
||
{{works with|Commodore BASIC}} |
{{works with|Commodore BASIC}} |
||
{{works with|MSX BASIC|any}} |
|||
{{works with|Nascom ROM BASIC|4.7}} |
{{works with|Nascom ROM BASIC|4.7}} |
||
<syntaxhighlight lang="gwbasic"> |
<syntaxhighlight lang="gwbasic">10 REM Factors of an integer |
||
10 REM Factors of an integer |
|||
20 PRINT "Enter an integer"; |
20 PRINT "Enter an integer"; |
||
30 INPUT N |
30 INPUT N |
||
| Line 1,493: | Line 1,493: | ||
90 NEXT I |
90 NEXT I |
||
100 PRINT N1 |
100 PRINT N1 |
||
110 END |
110 END</syntaxhighlight> |
||
| ⚫ | |||
==={{header|MSX Basic}}=== |
|||
{{trans|GW-BASIC}} |
|||
<syntaxhighlight lang="qbasic">10 INPUT "Enter an integer: "; N |
|||
20 IF N = 0 THEN GOTO 15 |
|||
30 N1 = ABS(N) |
|||
40 FOR I = 1 TO N1/2 |
|||
50 IF N1 MOD I = 0 THEN PRINT I; |
|||
60 NEXT I |
|||
| ⚫ | |||
==={{header|Quite BASIC}}=== |
|||
{{trans|GW-BASIC}} |
|||
<syntaxhighlight lang="qbasic">10 INPUT "Enter an integer: "; N |
|||
20 IF N = 0 THEN GOTO 15 |
|||
30 N1 = ABS(N) |
|||
40 FOR I = 1 TO N1/2 |
|||
50 IF N1 - INT(N1 / I) * I = 0 THEN PRINT I; " "; |
|||
60 NEXT I |
|||
70 PRINT N1</syntaxhighlight> |
|||
==={{header|Nascom BASIC}}=== |
==={{header|Nascom BASIC}}=== |
||