e-Gadget - プログラム関数電卓　Casio Basic入門52

Casio Basic入門52

Casio Basic入門

誤字脱字・記載ミスや分かりにくい表現は随時追記・修正します

修正 2016/07/17

4. CasioBasicを使ってみる（続き）

Chapter 9 - 初級

前回： Casio Basic入門51 を見る

◆ Chapter 9 の目標：簡単な換算プログラム - 入力ボックスの活用

Chapter 9-2
fx-5800P で３桁区切り表示をする

前回作った複利計算プログラムですが、金額の桁数が多い時、どうも見づらいので、金額を３桁区切りで表示するようにしてみます。

例えば、12345678 を 12,345,678 とコンマで３桁区切りすると見やすくなりますね。

金額を格納している変数は、B、T、M の３つです。そこで、これらを表示するコードをサブルーチン 3DIGIT に置き換えることにして、今回はこのサブルーチンを作ってみます。

先ずは、前回作ったプログラムです。

ファイル名： COMPINT
Locate 1,1,"1-C:"
Locate 1,2,"2-R:"
Locate 10,2,"3-Y:"
Locate 1,3,"TOTAL"
Locate 1,4,"MONTH"

0→B:0→R:0→N:0→T:0→M

Do

0→K:Do
Getkey→K
LpWhile K=0
K=73⇒Break

If K=35
Then
5→X:1→Y:9→D:1→E
Prog "INP":Z→B
Else If K=36
Then
5→X:2→Y:4→D:1→E
Prog "INP":Z→R
Else If K=37
Then
14→X:2→Y:3→D:1→E
Prog "INP":Z→N
IfEnd:IfEnd
IfEnd

If BRN:Then
Int(B(1+R÷100)^(N))→T
Locate 7,3,"　　　　 "　(スペース９個)
Locate 7,3,T
Int(T÷N÷12)→M
Locate 7,4,"　　　　 "　(スペース９個)
Locate 7,4,M
IfEnd

LpWhile 1
Cls
Locate 7,2,"BYE!"

青文字で示した Prog "INP" は、このサブルーチンを実行するだけで値が表示されるので、敢えて Locate X,Y,B を書く必要がありません。しかし、

Prog "INP":Z→B

の下に、Locate X,Y,B を追加しても何も変わらず問題ないので、取りあえずこれを追加しておきます。

上のプログラムでは、赤文字で示した Locate コマンドが２カ所あり、今もう１つ追加しました。

そこで、一旦下のように変更しておきます。ファイル名を COMPINT2 に変更しておきます。

ファイル名： COMPINT2
Locate 1,1,"1-C:"
Locate 1,2,"2-R:"
Locate 10,2,"3-Y:"
Locate 1,3,"TOTAL"
Locate 1,4,"MONTH"

0→B:0→R:0→N:0→T:0→M

Do

0→K:Do
Getkey→K
LpWhile K=0
K=73⇒Break

If K=35
Then
5→X:1→Y:9→D:1→E
Prog "INP":Z→B
Locate X,Y,B
Else If K=36
Then
5→X:2→Y:4→D:1→E
Prog "INP":Z→R
Else If K=37
Then
14→X:2→Y:3→D:1→E
Prog "INP":Z→N
IfEnd:IfEnd
IfEnd

If BRN:Then
Int(B(1+R÷100)^(N))→T
Locate 7,3,"　　　　 "　(スペース９個)
Locate 7,3,T
Int(T÷N÷12)→M
Locate 7,4,"　　　　 "　(スペース９個)
Locate 7,4,M
IfEnd

LpWhile 1
Cls
Locate 7,2,"BYE!"

これでも問題なくプログラムは動作します。。

その上で、これら赤文字の３つの Locate コマンドを、Prog "3DIGIT" に置き換えることにして、先にサブルーチン 3DIGIT を作ることにしましょう。

▋サブルーチン 3DIGIT 使い方の方針を決める

このサブルーチンを目的通りに動かすには、３桁区切りで表示する数値、表示位置 X, Y の３つの要素が必要です。
そこで、表示する数値を変数 Z、表示位置を X と Y と決めて、

例えば、金額 B (元本) を３桁区切りで表示させるため、

Locate X,Y,B

の代わりに、

B→Z:5→X:1→Y
Prog "3DIGIT"

と記述することにします。(この場合は、X と Y は既に指定されているので、特に必要ないが、念のため...）

Casio Basic の変数は、全てのプログラムファイルで共有されるので、サブルーチンの直前で変数を設定すれば、その変数をサブルーチンで使えるわけですね。

▋3DIGIT のロジックを考える

数値 Z を使って、どのようにしてコンマ記号で３桁区切りを行うのか、色々な方法があると思います。
ここでは、分かり安い方法の１つとして、数値の各桁を、左から順に１桁づつ表示を行い、途中で必要なところにコンマ , を表示する作戦にしてみます。

変数 Z に 12345678 が格納されているとして、X 桁目、Y列目から表示するとします。
左から、１桁づつ数字を拾って、変数 C に一旦格納し、Locate X,Y,C で表示.... X を１つ増やしながら、これを繰り返す作戦にします。途中でコンマが必要なら、Locate X,Y,"," を実行すれば良いですね。

コンマの表示は後回しにして、先ずは数字だけを表示するルーチンを作ることにします。ここでは、以下のような方法を採用することにします。

▍概略の方針を決める

1) 12345678 を 10 で何回か割り算して、1.2345678 にしてから、小数部を取り除く、つまり Int(1.2345678) を実行すれば、1 になりますね。
2) 取り出した１桁の数字を Locate コマンドで表示します。
3) 次に、12345678 の一番左の 1 を取って、2345678 にして、これを手続き 5) と手続き 6) で使います。
4) この数字の次に３桁区切り文字(コンマ)が必要な時には、続いて Locate コマンドでコンマを表示します。

5) 2345678 を 10 で何回か割り算して、2.345678 にしてから、Int(2.345678) を実行すれば、2 になります。
6) 取り出した１桁の数字を Locate コマンドて表示します。
7) 続いて、2345678 の一番左の 2 を取って、345678 にして、後で一番左の 3 を取り出すのに使います。
8) この数字の次に３桁区切り文字(コンマ)が必要な時だけ、続いて Locate コマンドでコンマを表示します。

１回目の 1) ～ 4) の手続きと２回目の 5) ～ 8) の手続きは同じなので、これを 12345678 の桁数と同じ回数だけ繰り返せば、3桁区切りした数値が表示できますね。

これで方針が決まったので、少し具体的な方法へ展開してゆきます。

▍方針をプログラムコードに変えてゆく - ３桁区切りなし

繰り返し処理で、同じ手続きを所定の回数繰り返す方針ですが、回数を変数 I で管理することにします。１回目は I=1、２回目は I=2 です。

12345678 は８桁なので、桁数の変数を D として、D に 8 を格納しておきます。Dは計算できます（後で紹介）。すると、繰り返し処理は、D回行えば良いですね。

例に挙げている 12345678 は変数 Z に格納されてます。サブルーチン 3DIGIT を実行する前に、３桁区切りで表示する数値は変数 Z に、表示する位置(桁と行)を X と Y に指定することにしていますね。

すると、手続き 1) ～ 4) では、I=1 です。

手続き 1)
12345678 (=Z)は８桁(D=8)なので、10 で７回割り算すれば 1.2345678 になりますね。つまり、12345678 の桁数が D なので、10 で (D-1) 回割り算すれば良いことになります。10 で (D-I)回割り算するのは、10^(D-I) で割れば良いですね。
そして、Int( ) コマンドで小数部を取り除いて得られる１桁の数を変数 C に格納することにします。これをプログラムで表現すると、

Int(Z÷10^(D-I))→C

となります。ここで、I=1 になっています。

手続き 2)
手続き 1) で得られた C (=1) を Locate コマンドで表示します。ここで表示する位置は X桁、Y行なので、

Locate X,Y,C

となりますが、繰り返し処理を考えると、２回目や３回目でも通用する書き方が必要です。そこで、I を用いて、以下のようになります。

Locate X+I-1,Y,C

手続き 3)
12345678 (=Z) の一番左の数字 1 が算出され、変数 C (=1) に格納されています。
この手続きでは、一番左の数字を取って、2345678 にするために、12345678 - C x 10000000 (８桁)を計算すれば良いです。10000000 (８桁)は、10⁸ ですね。今は、D-I = 8 なので、10⁸ = 10^(D-I) です。
ここで得られる 2345678 は、変数 Z に再度格納して、手続き 5) 以降で使います。

以上をプログラムで表現すると、

Z-C10^(D-I)→Z

となります。

手続き 4)
必要ならコンマを表示する．．．これは後で考えます。

これまでのところをまとめ、手続き 1) から 4) を、繰り返すには、

For 1→I To D
Int(Z÷10^(D-I))→C
Locate X+I-1,Y,C
Z-C10^(D-I)→Z
[必要ならコンマを表示]
Next

で良いはずです。

さて、変数 A に格納されている数値の桁数、、例えば 12345678 の桁数を知る方法は、当ブログの逆引きCasio Basic で紹介しています。
具体的には、整数の桁数を求めたい - 逆引きCasio Basic にあります。

A に格納されている整数の桁数 D を得るには、以下のようにします。

Int(log(A))+1→D

この１行を、上の For 文の前に書く必要があります。

Int(log(Z))+1→D

For 1→I To D
Int(Z÷10^(D-I))→C
Locate X+I-1,Y,C
Z-C10^(D-I)→Z
[必要ならコンマを表示]
Next

では、このロジックが正しいかどうかを手続き 5) から 8) で検証してみましょう。

手続き 5)
繰り返し２回目なので、I=2 になっています。そして、Z=2345678です。
Z は７桁なので、10 で６回割り算すれば、つまり 10^(D-I) で割れば、2.345678 になり、これから小数を取り除くと 2 になります。

Int(Z÷10^(D-I))→C

が実行されると、C=2 になって、正しいことが分かります。

手続き 6)
手続き 5) で得られた C を表示するには、

Locate X+I-1,Y,C

で問題ないでしょうか？
今は、繰り返し２回目なので、I=2 なので、手続き 2) で表示した隣に桁に C が表示されますね。
これで正しいことが分かります。

手続き 7)
2345678 から頭の 2 を取って 345678 を求めて、改めて変数 Z に代入します。

Z-C10^(D-I)→Z

で正しいでしょうか？

今、Z=2345678、C=2、D=8、I=2 なので、
Z-C10^(D-I) を計算すると、

2345678 - 2 x 10(8-2)
= 2345678 - 2000000 = 345678

となり、正しいことが分かります。

手続き 8)
必要なら、コンマを表示する．．．これは後で考えます。

これで問題なさそうです。繰り返しの最後がどうなるか確認してみます。

最後の繰り返しが始まる時は、I=8、A=8、C=7、D=8 となっています。

Int(Z÷10^(D-I)→C

は、Int(8÷10^(8-8)) つまり、Int(8-10^(0)) です。10⁰ = 1 (ゼロ乗は１)なので、

C に 8 が代入され、正しいことが分かります。

次に、Locate コマンドの表示は、

Locate X+I-1,Y,C は Locate X+7,Y,C なので、これも正しいですね。これは単に右隣に表示させるだけなので、特に確認も不要かも知れません。

これで、必要な処理は終わりですが、プログラム上は、

Z-C10^(D-I)→Z

があります。ここで求めた Z はこれ以上使わないので、これがエラーにならなければOKです。そこで、具体的に数値を当てはめると、

8 - 8 x 10^(8-8) = 8- 8x 10^(0) = 8 - 8 = 0

となり、エラーにはならないことが確認できました。

以上をまとめておくと、

Int(log(Z))+1→D

For 1→I To D
Int(Z÷10^(D-I))→C
Locate X+I-1,Y,C
Z-C10^(D-I)→Z
[必要ならコンマを表示]
Next

▍３桁区切り文字を追加表示する

３桁区切り文字であるコンマは、基本的には３桁ごとですが、最初だけ違います。
例えば、12345678 は、12,345,678 となるので、最初の 12 の２桁の後コンマを追加する必要があります。その後は３桁ごとです。

今回は、繰り返しが何回目がを示す変数 I をうまく使ってみます。

12345678 の場合、最初にコンマを追加すべきかどうかは、この数値の桁数、つまり８桁を３で割った余りで判別できそうです。
８を３で割った余りは２です。つまり、頭から２桁まで表示したら、つまり繰り返しが２回目の時、コンマを追加すれば良いですね。
次にコンマを打つべきタイミングは、繰り返し回数を３で割って余りが２の時、つまり５回目の繰り返しの時です。

I を３で割った時の余りを計算するには、

fx-5800P で Mod を使いたい - 逆引きCasio Basic を参照してください。Mod 関数は fx-9860GII や fx-CG50 / CG20 のCasio Basic に備わっている「余りを求める」関数ですが、fx-5800P にはありません。

I を３で割った時の余りは、

I-3Int(I÷3)

で得られます。

なお、最初に Z の値、例として 12345678 を３で割った余りを計算して、変数 F に入れておくことにします。繰り返し処理のたびに、I を３で割った余りが F と同じなら、コンマを追加すれば良いですね。

変数 F を計算するコードは、

D-3Int(D÷3)→F

です。これを繰り返しの For 文の前に置いておく必要があります。

その上で、必要に応じてコンマを追加表示するプログラムは、

If I-3Int(I÷3)=F
Then
Isz X
Locate X+I-1,Y,","
IfEnd

です。

この５行を [必要ならコンマを表示] と置き換えれば、うまくゆきそうです。

ここで、Isz X は、X を１つ増やすという Casio Basic 旧来の命令です。
X+1→X
でも問題ありませんが、Isz X の方が実行速度が速いので、これを採用します。
これを追加したのは、コンマを表示すれば、その後の表示桁 X+I-1 が全て右に１個ずれるので、X 自体を１個増やしておけば良いという意味です。

繰り返し処理は、最後の繰り返しでエラーにならないか？期待しない動作をする可能性はないか？を確認することが大切です。上でも最後の繰り返しを確認しました。コンマの表示部分も、最後の繰り返しの時を検証してみます。

繰り返しの最後は、I=8 になっているので、I を３で割った余りが２になります。F は２なので、等しくなります。
すると、

If I-3Int(I÷3)=F

は、If の条件を満たすので、コンマを追加表示します。

これで良いでしょうか？

最後にコンマを追加すると、

12,345,678,

となって問題があります。そこで、繰り返しの最後だけは Locate コマンドでコンマを表示しないようにしたいですね。逆に言えば、繰り返し回数が桁数 D より小さい時だけ Locate コマンドでコンマを表示すれば良いわけです。
具体的には、以下のようにします。

I<D⇒Locate X+I-1,Y,","

とします。

⇒ は旧来の命令です。これについては、以下のコマンドリファレンスを参照してください。

Casio Basic コマンドリファレンス - ⇒命令

なお、上記の ⇒ 命令を使った表記は、

If I<D
Then Locate X+I-1,Y,","
IfEnd

といしても良いのですが、If よりも ⇒命令の方が動作が速く、式１つを実行するだけなので ⇒ が使えます。そこで ⇒ を採用します。結果的に ⇒ 命令を使った方が表記も完結で見やすくなりますね。

コンマを表示するために追加した部分を赤文字で示すと、プログラムは以下のようになります。

ファイル名: 3DIGIT
Int(log(Z))+1→D
D-3Int(D÷3)→F

For 1→I To D
Int(Z÷10^(D-I))→C
Locate X+I-1,Y,C
Z-C10^(D-I)→Z
If I-3Int(I÷3)=F
Then Isz X
I<D⇒Locate X+I-1,Y,","
IfEnd
Next

▋サブルーチンの動作を確認する

このサブルーチン 3DIGIT は、予め以下のような使い方を決めています。

=====
例えば、金額 B (元本) を３桁区切りで表示させるため(X=5, Y=1と指定されているとして)、

Locate X,Y,B

の代わりに、

B→Z:5→X:1→Y
Prog "3DIGIT"

と記述する。
=====

サブルーチンの動作確認のために、わざわざメインルーチンから呼び出すのも良いですが、サブルーチンだけで確認した方が良いと思います。

そこで、メインルーチンで予め設定される変数を、サブルーチンの一番最初で設定して、サブルーチンだけを動作すれば動作確認ができますね。

今回は、動作確認のために、予め設定される変数 Z、X、Y を設定するために、以下のように赤文字のコードを追加しておきます。

ファイル名: 3DIGIT
12345678→Z
5→X
1→Y
""
Int(log(Z))+1→D
D-3Int(D÷3)→F

For 1→I To D
Int(Z÷10^(D-I))→C
Locate X+I-1,Y,C
Z-C10^(D-I)→Z
If I-3Int(I÷3)=F
Then Isz X
I<D⇒Locate X+I-1,Y,","
IfEnd
Next

ここで、"" (" と " を続けて２回入力)が必要な理由ですが、"" 無しで上のプログラムを実行すると、３桁区切りの数値が表示されるところが一瞬見え、それが消えて、0 (ゼロ)と表示されますね。Casio Basic の仕様として、プログラム終了直前に計算された値がプログラム終了時に表示されます。もしプログラム終了直前に Locate コマンドが実行されるなら、その表示のまま終了します。

上のプログラムでは、プログラム終了直前に A-C10^(D-I)→A が実行されるので、その計算結果 0 が終了時に表示されるわけです。そして、この 0 の表示は、Casio Basic の内部カーソル行の右端に表示される仕様で、入力命令 " " や出力命令 ◢ が実行されると、内部カーソル行は１行づつ下に下がり、最下行に至れば、そのまま最下行のままになります。

つまり、"" は、何も出力せず、内部カーソル行を１行下げる仕事をしています。

"" を付けて、上のプログラムを実行すると、

12,345,678
　　　　　　　　0

と表示されます。終了直前の計算値 0 が１行さがって表示されていますね。
そして、肝心の動作確認ですが、問題ありません。

12345678→Z

で、色々と異なった値を Z に代入して、動作確認してみてください。

動作確認で問題なさそうなので、頭に追加した４行を消しておきましょう。

▶３桁区切り表示サブルーチン

ファイル名: 3DIGIT
Int(log(Z))+1→D
D-3Int(D÷3)→F

For 1→I To D
Int(Z÷10^(D-I))→C
Locate X+I-1,Y,C
Z-C10^(D-I)→Z
If I-3Int(I÷3)=F
Then Isz X
I<D⇒Locate X+I-1,Y,","
IfEnd
Next

▋メインルーチンからサブルーチンを呼び出す

それでは、完成したサブルーチン 3DIGIT を使うために、少し変更して準備していたメインルーチン COMPINT2 をもう一度示します。サブルーチンに呼び出し Prog "3DIGIT" に置き換える予定の３カ所の Locate コマンドを赤文字にしてあります。

ファイル名： COMPINT2
Locate 1,1,"1-C:"
Locate 1,2,"2-R:"
Locate 10,2,"3-Y:"
Locate 1,3,"TOTAL"
Locate 1,4,"MONTH"

0→B:0→R:0→N:0→T:0→M

Do

0→K:Do
Getkey→K
LpWhile K=0
K=73⇒Break

If K=35
Then
5→X:1→Y:9→D:1→E
Prog "INP":Z→B
Locate X,Y,B
Else If K=36
Then
5→X:2→Y:4→D:1→E
Prog "INP":Z→R
Else If K=37
Then
14→X:2→Y:3→D:1→E
Prog "INP":Z→N
IfEnd:IfEnd
IfEnd

If BRN:Then
Int(B(1+R÷100)^(N))→T
Locate 7,3,"　　　　 "　(スペース９個)
Locate 7,3,T
Int(T÷N÷12)→M
Locate 7,4,"　　　　 "　(スペース９個)
Locate 7,4,M
IfEnd

LpWhile 1
Cls
Locate 7,2,"BYE!"

▶１つめのLocateの置き換え

Locate X,Y,B

を置き換えるには、
直前に変数 X、Y、Z が設定されているので、3DIGIT を呼び出すだけでOKですね。
従って、Locate X,Y,B を以下で置き換えます。

Prog "3DIGIT"

▶２つめのLocateの置き換え

Locate 7,3,T

を置き換えるには、Z、X、Y を設定した後 3DIGIT を呼び出します。

T→Z:7→X:3→Y
Prog "3DIGIT"

▶３つめのLocateの置き換え

Locate 7,4,M

を置き換えるには、同様に

M→Z:7→X:4→Y
Prog "3DIGIT"

完成に近づいたプログラムをまとめます。

ファイル名： COMPINT2
Locate 1,1,"1-C:"
Locate 1,2,"2-R:"
Locate 10,2,"3-Y:"
Locate 1,3,"TOTAL"
Locate 1,4,"MONTH"

0→B:0→R:0→N:0→T:0→M

Do

0→K:Do
Getkey→K
LpWhile K=0
K=73⇒Break

If K=35
Then
5→X:1→Y:9→D:1→E
Prog "INP":Z→B
Prog "3DIGIT"
Else If K=36
Then
5→X:2→Y:4→D:1→E
Prog "INP":Z→R
Else If K=37
Then
14→X:2→Y:3→D:1→E
Prog "INP":Z→N
IfEnd:IfEnd
IfEnd

If BRN:Then
Int(B(1+R÷100)^(N))→T
Locate 7,3,"　　　　 "　(スペース９個)
T→Z:7→X:3→Y
Prog "3DIGIT"
Int(T÷N÷12)→M
Locate 7,4,"　　　　 "　(スペース９個)
M→Z:7→X:4→Y
Prog "3DIGIT"
IfEnd

LpWhile 1
Cls
Locate 7,2,"BYE!"

完成にはもう一息です。実際に実行してみると、表示に問題が出てきます。

▋表示の不備を修正

▶入力桁数と出力桁数が違う

コンマが追加されるのて、３桁区切りの出力桁数は必ず入力桁数以上になります。
そこで、サブルーチン 3DIGIT により３桁区切りを行う前には、コンマが増えた分だけ多くのスペースで消去する必要があります。

1-C: の右の入力については、以下のように空白で画面の右端まで消去します。

If K=35
Then
5→X:1→Y:9→D:1→E
Locate X,Y,"　　　　　 "　(スペース１１個)
Prog "INP":Z→B
Prog "3DIGIT"

TOTAL と MONTH の右の入力については、Prog "3DIGIT" の前で空白で消去すれば良いですね。

Int(B(1+R÷100)^(N))→T
Locate 7,3,"　　　　　"　(スペース１０個)
T→X:7→X:3→Y
Prog "3DIGIT"

Int(T÷N÷12)→M
Locate 7,4,"　　　　　"　(スペース１０個)
M→Z:7→X:4→Y
Prog "3DIGIT"

ここまでに作ったプログラムを示します。

ファイル名： COMPINT2
Locate 1,1,"1-C:"
Locate 1,2,"2-R:"
Locate 10,2,"3-Y:"
Locate 1,3,"TOTAL"
Locate 1,4,"MONTH"

0→B:0→R:0→N:0→T:0→M

Do

0→K:Do
Getkey→K
LpWhile K=0
K=73⇒Break

If K=35
Then
5→X:1→Y:9→D:1→E
Locate X,Y,"　　　　　 "　(スペース１１個)
Prog "INP":Z→B
Prog "3DIGIT"
Else If K=36
Then
5→X:2→Y:4→D:1→E
Prog "INP":Z→R
Else If K=37
Then
14→X:2→Y:3→D:1→E
Prog "INP":Z→N
IfEnd:IfEnd
IfEnd

If BRN:Then
Int(B(1+R÷100)^(N))→T
Locate 7,3,"　　　　 "　(スペース１０個)
T→Z:7→X:3→Y
Prog "3DIGIT"
Int(T÷N÷12)→M
Locate 7,4,"　　　　 "　(スペース１０個)
M→Z:7→X:4→Y
Prog "3DIGIT"
IfEnd

LpWhile 1
Cls
Locate 7,2,"BYE!"

▋最後の仕上げ - エラーの修正

プログラムを実行してみましょう。

1-C: の右には、最大９桁まで入力可能なので、123456789 を入力してみあす。

そして、[EXE] キーで入力を確定すると、３桁表示されますが．．．

一番右の桁の 9 がビジーマーカーに半分隠れてしまって、見づらくなっています。

それだけなら良いのですが、2-R: と 3-Y に値を入力すると、エラーになってしまいます。

123456789 を３桁区切りで表示すると

TOTAL 123,456,789

となり、この行は１７文字になります。１行は１６桁しかなく、１６桁を超える表示を Locate で行うのでエラーになります(仕様です)。

そこで、1-C: の右の入力桁を最大８桁に修正します。

[2016/07/16] 追加修正

1-C: の右に入力する際、[1] キーを押し、そのまま何も入力せず [EXE] キーを押すとエラーになります。
何も入力しないで [EXE] キーを押すと、サブルーチン INP が終了する際に変数 Z に 0（ゼロ）が入ります。すると、続いて実行されるサブルーチン 3DIGIT で、上から２行目にある Int(log(Z))+1→D でエラーになります。

というのは、Int(log(Z))+1→D の log(Z) でエラーとなります（log( ) の仕様です）。

従って、サブルーチン 3DIGIT の冒頭で、Z が 0（ゼロ）ならばスグにサブルーチンを終了させるように変更するために、冒頭に

Z=0⇒Return

を追加します。

ファイル名: 3DIGIT
Z=0⇒Retuen
Int(log(Z))+1→D
D-3Int(D÷3)→F

For 1→I To D
Int(Z÷10^(D-I))→C
Locate X+I-1,Y,C
Z-C10^(D-I)→Z
If I-3Int(I÷3)=F
Then Isz X
I<D⇒Locate X+I-1,Y,","
IfEnd
Next

===== 追加修正はここまで =====

今回は、これで完成とします。

ファイル名： COMPINT2
Locate 1,1,"1-C:"
Locate 1,2,"2-R:"
Locate 10,2,"3-Y:"
Locate 1,3,"TOTAL"
Locate 1,4,"MONTH"

0→B:0→R:0→N:0→T:0→M

Do

0→K:Do
Getkey→K
LpWhile K=0
K=73⇒Break

If K=35
Then
5→X:1→Y:8→D:1→E
Locate X,Y,"　　　　　 "　(スペース１１個)
Prog "INP":Z→B
Prog "3DIGIT"
Else If K=36
Then
5→X:2→Y:4→D:1→E
Prog "INP":Z→R
Else If K=37
Then
14→X:2→Y:3→D:1→E
Prog "INP":Z→N
IfEnd:IfEnd
IfEnd

If BRN:Then
Int(B(1+R÷100)^(N))→T
Locate 7,3,"　　　　 "　(スペース１０個)
T→Z:7→X:3→Y
Prog "3DIGIT"
Int(T÷N÷12)→M
Locate 7,4,"　　　　 "　(スペース１０個)
M→Z:7→X:4→Y
Prog "3DIGIT"
IfEnd

LpWhile 1
Cls
Locate 7,2,"BYE!"

ただし、1-C: の右に、例えば 87654321 と８桁を入力して、TOTAL と MONTH を表示させると、2-R: や 3-Y: の値がそれほど大きくなくても、上と同じ理由で Argument ERROR が発生します。エラーを完全に封じ込めるには、1-C: の入力桁数を７桁や６桁に制限すれば良いのですが、ここで元本として６千万円程度までなら殆ど問題無いので、ここでは桁数を減らすことはしないでおきます。

３桁区切り表示用のサブルーチンについて、sentaro様から表示が速くなるロジックを提案頂きました。次回は、これを紹介致します。

つづく．．．

⇒ Casio Basic入門５３ / Casio Basic入門G01 / 目次

応援クリックをお願いします。励みになるので．．．