Periodic table: Difference between revisions
Content added Content deleted
(→{{header|Quackery}}: added more commentary) |
(Added Quite BASIC) |
||
Line 715: | Line 715: | ||
{{out}} |
{{out}} |
||
<pre>Same as FreeBASIC entry.</pre> |
<pre>Same as FreeBASIC entry.</pre> |
||
==={{header|Quite BASIC}}=== |
|||
{{trans|Minimal BASIC}} |
|||
<syntaxhighlight lang="qbasic">10 REM Periodic table |
|||
20 GOSUB 200 |
|||
30 FOR J = 0 TO 9 |
|||
40 READ N |
|||
50 GOSUB 400 |
|||
60 NEXT J |
|||
70 END |
|||
190 REM Set arrays A, B. |
|||
200 ARRAY A |
|||
210 LET A[0] = 1 |
|||
215 LET A[1] = 2 |
|||
220 LET A[2] = 5 |
|||
225 LET A[3] = 13 |
|||
230 LET A[4] = 57 |
|||
235 LET A[5] = 72 |
|||
240 LET A[6] = 89 |
|||
245 LET A[7] = 104 |
|||
246 ARRAY B |
|||
250 LET B[0] = -1 |
|||
255 LET B[1] = 15 |
|||
260 LET B[2] = 25 |
|||
265 LET B[3] = 35 |
|||
270 LET B[4] = 72 |
|||
275 LET B[5] = 21 |
|||
280 LET B[6] = 58 |
|||
285 LET B[7] = 7 |
|||
290 RETURN |
|||
390 REM Show row and column for element |
|||
400 LET I = 7 |
|||
410 IF A(I) <= N THEN 440 |
|||
420 LET I = I-1 |
|||
430 GOTO 410 |
|||
440 LET M = N+B(I) |
|||
450 LET R = INT(M/18)+1 |
|||
460 LET C = M-INT(M/18)*18+1 |
|||
470 PRINT N; " -> "; R; " "; C |
|||
480 RETURN |
|||
1030 REM Example elements (atomic numbers). |
|||
1040 DATA 1, 2, 29, 42, 57, 58, 72, 89, 90, 103</syntaxhighlight> |
|||
==={{header|Run BASIC}}=== |
==={{header|Run BASIC}}=== |