第11話 引き算プログラム解説その６
を実現するプログラムエンジン核心部分再掲
For i = 0 To mx - 1
If d(i) < e(i) Then
For j = i + 1 To mx - 1
If d(j) > 0 Then
d(j) = d(j) - 1
Exit For
Else
d(j) = n - 1
End If
Next
d(i) = d(i) + n
End If
c(i) = d(i) - e(i)
Next
参考ダウンロード添付ファイル
解説その３
i = 6 までで、
↓
↓
↓
↓
↓
↓
↓
となっていました。
８巡目に入ります。
i = 7 のとき、
d(7) = 6 e(3) = 1
d(i) ≧ e(i)ですから、
c(i) = d(i) - e(i)
すなわち
c(7) = d(7) - e(7)
が実行され、
c(7) = 6 - 1 = 5
から、
↓
が実現します。
９巡目に入ります。
i = 8 のとき、
d(8) = 1 e(8) = 3
ですから、
If d(i) < e(i) Then
For j = i + 1 To mx - 1
If d(j) > 0 Then
d(j) = d(j) - 1
Exit For
Else
d(j) = n - 1
End If
Next
d(i) = d(i) + n
が実行されて、
For j = 9 To 9
If d(j) > 0 Then
d(j) = d(j) - 1
Exit For
Else
d(j) = 6
End If
Next
は、１回のみのループとなります。
If d(9) > 0 Then
d(9) = d(9) - 1
Exit For
Else
d(9) = 6
End If
肯定側実行されて
d(9) = d(9) - 1
から
d(9) = 2 - 1 = 1
そして、
d(i) = d(i) + n
が実行され、
d(8) = d(8) + 7 = 1 + 7 =8
最後に
c(i) = d(i) - e(i)
から、
c(7) = d(7) - e(7) = 8 - 3 = 5
以上から、
↓
が実現できています。
最後の１０巡目です。
i = 8 のとき、
d(8) = 1 e(8) = 0
から、
c(i) = d(i) - e(i)
すなわち
c(8) = d(8) - e(8)
が実行され、
c(7) = 1 - 0 = 1
以上によって、すべての処理が終了して
↓
↓
↓
↓
↓
↓
↓
↓
↓
↓
と正しく計算できています。
ミソは、
If d(i) < e(i) Then
For j = i + 1 To mx - 1
If d(j) > 0 Then
d(j) = d(j) - 1
Exit For
Else
d(j) = n - 1
End If
Next
d(i) = d(i) + n
にありす。d(i) < e(i)のときに、上の位から1を借りる、
それは自分の位から見ると10すなわち10進数の7を借りるのですが、
借りられるためには、上の位が財産をもっていなければなりません。
財産が0のときは、さらに上からから借りますが、そこも財産がない場合には、
さらに上の上からお金を借りるわけです。
d(j) > 0
になるまでループが続けられます。
下の位から貸してくれと頼まれて、財産がない位は上の位から1借りますが、
これは自分の位から見ると10すなわち10進数の7です。
7の財産になった位は下に1つ貸して、財産はn - 1 = 6となるわけです。
謎に見えたコードが、トレースと解説によって、
明瞭になったのではありませんか。
以上で、第20講のｎ進数演算−−−引き算は終了とします。
第20講の終了は、第２部の終了を意味します。
本講義第３部第２１講では、電卓作りに挑戦します。
