Periodic table: Difference between revisions
→{{header|GW-BASIC}}: Added.
(→{{header|PHP}}: Added.) |
(→{{header|GW-BASIC}}: Added.) |
||
Line 486:
{{out}}
<pre>Same as FreeBASIC entry.</pre>
=== {{header|GW-BASIC}} ===
{{trans|Nascom BASIC}}
{{works with|BASICA}}
<syntaxhighlight lang="basic">
10 REM Periodic table
20 DIM A(7), B(7)
30 GOSUB 200
40 FOR J% = 0 TO 9
50 READ ANUM%: GOSUB 400
60 NEXT J%
70 END
190 REM Set arrays A, B.
200 FOR I% = 0 TO 7: READ A(I%): NEXT I%
210 FOR I% = 0 TO 7: READ B(I%): NEXT I%
220 RETURN
390 REM Show row and column for element
400 I% = 7
410 WHILE A(I%) > ANUM%
420 I% = I% - 1
430 WEND
440 M% = ANUM% + B(I%)
450 R% = M% \ 18 + 1
460 C% = M% MOD 18 + 1
470 PRINT ANUM%;"->";R%;C%
480 RETURN
990 REM Data
1000 REM Arrays A, B.
1010 DATA 1, 2, 5, 13, 57, 72, 89, 104
1020 DATA -1, 15, 25, 35, 72, 21, 58, 7
1030 REM Example elements (atomic numbers).
1040 DATA 1, 2, 29, 42, 57, 58, 72, 89, 90, 103
</syntaxhighlight>
{{out}}
<pre>
1 -> 1 1
2 -> 1 18
29 -> 4 11
42 -> 5 6
57 -> 8 4
58 -> 8 5
72 -> 6 4
89 -> 9 4
90 -> 9 5
103 -> 9 18
</pre>
=== {{header|Minimal BASIC}} ===
| |||