第28講 ｎ進数演算−−−加法その２
第４話 ｎ進法足し算プログラム解説その３
プログラム主要部分再掲
Sub ts(a() As Integer, b() As Integer, c() As Integer)
Dim i As Integer, j As Integer
Dim d(14) As Integer, e(14) As Integer
Call sy(d())
Call sy(e())
Dim asz As Integer, bsz As Integer
asz = cp(d(), a()) '終わり記号ｎをなくし、サイズを取得
bsz = cp(e(), b()) '終わり記号ｎをなくし、サイズを取得
Dim max As Integer
max = asz
If bsz > max Then max = bsz
For i = 0 To max
c(i) = c(i) + d(i) + e(i)
c(i + 1) = c(i + 1) + Int(c(i) / n)
c(i) = c(i) Mod n
Next
If c(max + 1) > 0 Then c(max + 2) = n Else c(max + 1) = n
End Sub
さて、
Dim asz As Integer, bsz As Integer
asz = cp(d(), a()) '終わり記号ｎをなくし、サイズを取得
bsz = cp(e(), b()) '終わり記号ｎをなくし、サイズを取得
Dim max As Integer
max = asz
If bsz > max Then max = bsz
の５行によって、
データa
13
12
11
10
9
8
7
6
5
4
3
2
1
0
０
０
０
０
０
０
ｎ
３
２
４
５
６
６
２
データb
13
12
11
10
9
8
7
6
5
4
3
2
1
0
０
０
０
０
ｎ
４
０
６
５
０
１
２
３
４
maxとして8が取得されました。
ですから、この場合には、
For i = 0 To max
c(i) = c(i) + d(i) + e(i)
c(i + 1) = c(i + 1) + Int(c(i) / n)
c(i) = c(i) Mod n
Next
は
For i = 0 To 8
c(i) = c(i) + d(i) + e(i)
c(i + 1) = c(i + 1) + Int(c(i) / n)
c(i) = c(i) Mod n
Next
となります。
ここでは、何をしているのでしょうか。データaとb
