2016年05月22日

ORANGE pico 来ました

 先日書いた「PIC32MX を使った BASIC マイコン」、ORANGE pico がやって来ました。組み立てキットで 1380円+消費税。

 PS/2キーボードを接続して、ビデオコンポジットケーブルでテレビにつなげば単体の BASIC パソコンとして使えるはず。手持ちに PS/2 キーボードがないので、とりあえずシリアル接続で Mac から操作してみた。

 素因数分解のプログラムを書いてみた。while〜wend があってラベルが使えるので、昔の MZ-80 の BASIC よりはずっと書きやすい。複数行の if 文が書けないのが辛いけど。

10 ' Prime Factorization
20 start@
30 input "Number ? ",a
40 m=a
50 s$=""
60 i=2
70 while i*i<=a
80 k=0
90 while m%i=0
100 m=m/i
110 k=k+1
120 wend
130 gosub append@
140 if i=2 then i=3 else i=i+2
150 wend
160 if m=1 goto skip2@
170 i=m
180 k=1
190 gosub append@
200 skip2@
210 print a;" = ";s$
220 goto start@
230 append@
240 if k=0 then return
250 if s$<>"" then s$=s$+"*"
260 s$=s$+str$(i)
270 if k>1 then s$=s$+"^"+str$(k)
280 return
Posted at 2016年05月22日 18:58:19
email.png