せっかく親父にポケコンを貰ったので（→ http://blogs.yahoo.co.jp/t_iriie/25364860.html ）、誰にでも書けそうな、超簡単BASICプログラムを組んでみました。
原子番号を入力すると、元素記号と名称、原子量が返ってくるという代物。
打ち込むの、パソコンだと楽そうだけど、ポケコンはちょっと打ちづらいね……
こんな感じ。
……絶対この数式、無駄がありそうなんだけど、動くから いいや。
10 PRINT "ｹﾞﾝｿｷｺﾞｳ ｦ ｹﾝｻｸ ｼﾏｽ"
20 INPUT "ｹﾞﾝｼﾊﾞﾝｺﾞｳ ﾊ(1‐103)";A
25 IF A<1 THEN PRINT "ｿﾝﾅ ﾑﾁｬﾅ..."
30 IF A=1 THEN PRINT "H(ｽｲｿ, 1.0)"
31 IF A=2 THEN PRINT "He(ﾍﾘｳﾑ, 4.0)"
(中略)
128 IF A=99 THEN PRINT "Es(ｱｲﾝｽﾀｲﾆｳﾑ ,[252])"
129 IF A=100 THEN PRINT "Fm(ﾌｪﾙﾐｳﾑ ,[257])"
130 IF A=101 THEN PRINT "Md(ﾒﾝﾃﾞﾚﾋﾞｳﾑ ,[256])"
131 IF A=102 THEN PRINT "No(ﾉｰﾍﾞﾘｳﾑ ,[259])"
132 IF A=103 THEN PRINT "Lr(ﾛｰﾚﾝｼｳﾑ ,[260])"
133 IF A>103 THEN PRINT "ｺﾉ ｹﾞﾝｿﾊﾞﾝｺﾞｳ ﾊ ｱﾘﾏｾﾝ"
140 INPUT "ｹﾝｻｸ ｦ ﾂﾂﾞｹﾏｽｶ[ﾊｲ=1,ｲｲｴ=0]";B
141 IF B=0 THEN GOTO 150
142 IF B=1 THEN GOTO 20
150 PRINT "ｵﾂｶﾚ"
160 END
「そんな無茶な…」という突っ込みは、ぱっと出るけど、原子番号103の「ローレンシウム」が出てくるのに1秒半掛かります。
無駄があるからなのか、ポケコンが遅いからなのか。
初めてこういうのを打ったけど、ポケコンって手軽で楽しいと、改めて感じました(遅
