Factors of an integer: Difference between revisions
Content added Content deleted
(→{{header|Nascom BASIC}}: Added) |
|||
| Line 1,178: | Line 1,178: | ||
==={{header|Minimal BASIC}}=== |
==={{header|Minimal BASIC}}=== |
||
{{trans|GW-BASIC}} |
{{trans|GW-BASIC}} |
||
{{works with|Nascom ROM BASIC|4.7}} |
|||
<lang gwbasic> |
<lang gwbasic> |
||
10 REM Factors of an integer |
10 REM Factors of an integer |
||
| Line 1,191: | Line 1,192: | ||
110 END |
110 END |
||
</lang> |
</lang> |
||
==={{header|Nascom BASIC}}=== |
|||
{{trans|GW-BASIC}} |
|||
{{works with|Nascom ROM BASIC|4.7}} |
|||
<lang basic> |
|||
10 REM Factors of an integer |
|||
20 INPUT "Enter an integer"; N |
|||
30 IF N=0 THEN 20 |
|||
40 NA=ABS(N) |
|||
50 FOR I=1 TO INT(NA/2) |
|||
60 IF NA=INT(NA/I)*I THEN PRINT I; |
|||
70 NEXT I |
|||
80 PRINT NA |
|||
90 END |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
Enter an integer? 60 |
|||
1 2 3 4 5 6 10 12 15 20 30 60 |
|||
</pre> |
|||
See also [[#Minimal BASIC|Minimal BASIC]] |
|||
==={{header|Sinclair ZX81 BASIC}}=== |
==={{header|Sinclair ZX81 BASIC}}=== |
||