Periodic table: Difference between revisions
Periodic table in Gambas
(Periodic table in various BASIC dialents (QBasic, BASIC256, Run BASIC, True BASIC, XBasic and Yabasic)) |
(Periodic table in Gambas) |
||
Line 255:
call MostarPos(Element[I])
next I</lang>
{{out}}
<pre>Same as FreeBASIC entry.</pre>
==={{header|Gambas}}===
<lang gambas>Sub MostarPos(N As Integer) 'Mostrar fila y columna para el elemento
Dim M, I, R, C As Integer
Dim A As Integer[] = [1, 2, 5, 13, 57, 72, 89, 104] 'magic numbers
Dim B As Integer[] = [-1, 15, 25, 35, 72, 21, 58, 7]
I = 7
While A[I] > N
Dec I
Wend
M = N + B[I]
R = (M \ 18) + 1
C = (M Mod 18) + 1
Print "Atomic number "; Format(N, "###"); " -> "; R; ", "; C
End
Public Sub Main()
Dim Element As Integer[] = [1, 2, 29, 42, 57, 58, 59, 71, 72, 89, 90, 103, 113]
For e As Integer = 0 To 12
MostarPos(Element[e])
Next
End</lang>
{{out}}
<pre>Same as FreeBASIC entry.</pre>
| |||