第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

i=0のときは、

となりました。
以降も順調にいくのでしょうか。
i=1のとき、

　　　　c(1) = c(1) + d(1) + e(1)
　　　　　　　= ０ + ６ + ３
　　　　　　　= ９
　　　　c(1 + 1) = c(1 + 1) + Int(c(1) / ７)
　　　　　　　　　 = c(2) + Int(９ / ７)
　　　　　　　　　 = ０ + １
　　　　　　　　　 = １
すなわち、
　　　　　　 c(2) = １

　　　　c(1) = c(1) Mod ７
　　　　　　　= ９ Mod ７
　　　　　　　= ２

４９の位が２になり、３４３（７の３乗）の位に１繰り上がりここでも順調です。

i=2のとき、

　　　　c(2) = c(2) + d(2) + e(2)
　　　　　　　= １ + ６ + ２
　　　　　　　= ９
　　　　c(2 + 1) = c(2 + 1) + Int(c(2) / ７)
　　　　　　　　　 = c(3) + Int(９ / ７)
　　　　　　　　　 = ０ + １
　　　　　　　　　 = １
すなわち、
　　　　　　 c(3) = １

　　　　c(2) = c(2) Mod ７
　　　　　　　= ９ Mod ７
　　　　　　　= ２

３４３（７の３乗）の位が２になり、２４０１（７の４乗）の位に１繰り上がりここでも順調です。

第４話へ　第６話へ

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門（Visual C++ 2010で学ぶ C言語 C++ 入門）
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
Visual C++ によるC言語 入門 C++ 入門 基礎から応用まで
本サイトトップへ