Periodic table: Difference between revisions
→{{header|BASIC256}}
Basicgames (talk | contribs) |
|||
Line 276:
{{out}}
<pre>Same as FreeBASIC entry.</pre>
==={{header|Craft Basic}}===
<syntaxhighlight lang="basic">gosub fillarrays
gosub setupwindow
do
if (forms) = 1 then
gosub searchtable
endif
button k, 27
wait
loop k <> 1
end
sub fillarrays
dim a[8]
dim b[8]
lets a[0] = 1, a[1] = 2, a[2] = 5, a[3] = 13, a[4] = 57, a[5] = 72, a[6] = 89, a[7] = 104
lets b[0] = -1, b[1] = 15, b[2] = 25, b[3] = 35, b[4] = 72, b[5] = 21, b[6] = 58, b[7] = 7
return
sub setupwindow
title "Periodic Table Search"
resize 0, 0, 220,130
center
formid 1
formtext "Search"
buttonform 55, 40, 100, 20
formid 2
formtext ""
staticform 1, 1, 220, 20
return
sub searchtable
input "Atomic number", e
let i = 8
do
let i = i - 1
loop a[i] > e
let m = e + b[i]
let r = m / 18
let r = int: r + 1
let c = m % 18
let c = int: c + 1
formid 2
formtext "Period: ", r ,comma," Group: ", c
updateform
return</syntaxhighlight>
==={{header|FreeBASIC}}===
| |||