Periodic table: Difference between revisions
Content added Content deleted
(Dialects of BASIC moved to the BASIC section and set in alphabetical order.) |
(→{{header|ASIC}}: Added.) |
||
Line 196: | Line 196: | ||
6 E=W-E:L=1+(N>2):C=K+E*(K>L):RETURN |
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> |
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}}=== |
==={{header|BASIC256}}=== |