第５話 ２桁の整数の実現
を累積の箱を用いないで実現するプログラム例
Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte
For i = 1 To 10
For j = 1 To 10
Cells(5 + i, 1 + j) = 10 * (i - 1) + j
Next
Next
End Sub
さて、皆さん考えてみてください。
前話で次元の意味を説明しました。
直線の動きの場合、１方向の動きのみなので１次元でですし、
平面的な動きの場合、横の方向と縦の方向の２方向あったので２次元でした。
実は、２次元とか３次元・４次元・－－－は不思議な話でもなんでもありません。
４次元を霊の世界と結びつける人がいますが、
霊の話と４次元は何の関係もありません。
とても身近なところに４次元の世界や５次元の世界などがあったのです。
なんですか。
もちろん、前話の最後の課題と関係しています。
答えは、例によって３０行下に示します。
答え
２次元世界－－－２桁の整数
３次元世界－－－３桁の整数
４次元世界－－－４桁の整数
５次元世界－－－５桁の整数
・
・
・
２桁の整数は次のように考えればよいのです。
００，０１，０２，０３，０４，０５，０６，０７，０８，０９
１０，１１，１２，１３，１４，１５，１６，１７，１８，１９
２０，２１，２２，２３，２４，２５，２６，２７，２８，２９
・
・
・
９０，９１，９２，９３，９４，９５，９６，９７，９８，９９
２桁の整数は、十の位と一の位の２要素からなる整数です。
２要素からなる世界ですから、２次元です。
今までの話の関連でいえば、
十の位と一の位の２方向からなる世界であるといった方がわかりやすいでしょうか。
Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte
For i = 1 To 10
For j = 1 To 10
Cells(5 + i, 1 + j) = 10 * (i - 1) + j
Next
Next
End Sub
は
Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte
For i = 0 To 9
For j = 1 To 10
Cells(6 + i, 1 + j) = 10 * i + j
Next
Next
End Sub
でも実現できます。
実は、実行結果
は１つだけ異質です。なんですか。
第４話へ 第６話へ
vc++講義へ
