Anonymous user
Periodic table: Difference between revisions
→{{header|ASIC}}: Added.
(Dialects of BASIC moved to the BASIC section and set in alphabetical order.) |
(→{{header|ASIC}}: Added.) |
||
Line 196:
6 E=W-E:L=1+(N>2):C=K+E*(K>L):RETURN
7 K=C+(R=1ANDC=2)*16:VLINR*4+Z,R*4+2ATK*2+1:RETURN</lang>
=== {{header|ASIC}} ===
{{trans|Nascom BASIC}}
<lang basic>
REM Periodic table
DIM A(7)
DIM B(7)
REM Arrays A, B.
DATA 1, 2, 5, 13, 57, 72, 89, 104
DATA -1, 15, 25, 35, 72, 21, 58, 7
REM Example elements (atomic numbers).
DATA 1, 2, 29, 42, 57, 58, 72, 89, 90, 103
GOSUB SetAB:
FOR J = 0 TO 9
READ AtomicNum
GOSUB ShowRowAndColumn:
NEXT J
END
SetAB:
FOR I = 0 TO 7
READ A(I)
NEXT I
FOR I = 0 TO 7
READ B(I)
NEXT I
RETURN
ShowRowAndColumn:
I = 7
WHILE A(I) > AtomicNum
I = I - 1
WEND
M = AtomicNum + B(I)
R = M / 18
R = R + 1
C = M MOD 18
C = C + 1
PRINT AtomicNum;
PRINT " ->";
PRINT R;
PRINT C
RETURN
</lang>
{{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|BASIC256}}===
| |||