[新企画]Poke-Pro
新企画Poke-Proでは、ポケコンで作成したプログラムを投稿していく企画です。シリーズとなります。BASIC言語に軸を置き、気まぐれでC言語にも触れていきます。
はじめに
こんにちは、bockringです。シリーズ投稿の3本目は、「割り算で余りを出す」ことです。最近の関数電卓には÷Rなどの割り算で商と余りを出す関数がありますが、それを作っていきます。
目標と妥協点
まず目標です。以下の点を実装します。
- 対話形式の入力
- 入力と出力の画面の区別
逆に妥協点は、
- 表示のバグに対応するため2行で結果を表示すること
です。これらを踏まえて実装します。
実装
例によってBASICです。今回は1行コードにはしません。後で見やすいように分けて書きます。
devideR.TXT
10 CLS :PRINT "[/R CALC]":PRINT "A/B=Q...R"
20 PRINT "What is A?":INPUT "(A)",A
30 PRINT "What is B?":INPUT "(B)",B
40 Q=A/B
50 Q= INT (Q)
60 R=A-B*Q
70 A$= STR$ (A):B$= STR$ (B):Q$= STR$ (Q):R$= STR$ (R)
80 T$=A$+"/"+B$
90 CLS :PRINT "[RESULT]":PRINT T$
100 T$="="+Q$+"..."+R$
110 PRINT T$
改善点
- 数やその大きさによっては正しく表示できないこと
といったところです。この改善点は、入力された数の大きさを9999999999以下であることを確認したり、整数であることを確認するようにしたら大丈夫かなと思います。
おわりに
今回はINT()関数を使って小数点以下を切り捨てられることを利用しました。
これからもポケコンBASICで遊んでいこうと思います
シリーズ記事の一覧