第３講 繰り返し処理for文
第３話 階乗の計算
１×２×・・・×８の解答例
Module Module1
Sub Main() '私は社長だ。
Dim a, i As Integer 'aは整数を入れる箱を用意 iはFor文の制御変数
a = 1 '初期化
'以下計算
For i = 1 To 8
a *= i
Next
'以上計算
Console.WriteLine("１×２×・・・×８={0:d}", a)
End Sub
End Module
実行結果
１×２×・・・×８=40320
これをみて１×２×・・・×２０等を計算させた方もいらっしゃるではないでしょうか。
ところがエラーしてしまいましたね。
これはInteger型の扱える範囲-2,147,483,648 ～ 2,147,483,6472,147,483,648
をオーバーしてしまったためです。
そこで、
Module Module1
Sub Main() '私は社長だ。
Dim a As Long 'aは整数を入れる箱を用意
Dim i As Integer 'iはFor文の制御変数
a = 1 '初期化
'以下計算
For i = 1 To 20
a *= i
Next
'以上計算
Console.WriteLine("１×２×・・・ × 20={0:d}", a)
End Sub
End Module
と変更と変更すると実行結果は
１ × ２ ×・・・×20=2432902008176640000
と正しく計算できます。
ですが、これが限界です。
限界桁数の１９桁に達してしまっているからです。
Long型が扱える範囲は
-9,223,372,036,854,775,808～9,223,372,036,854,775,807
です。
因みにInteger型が４バイトであるのに対して、
Long型は８バイトのメモリ容量となります。
後の講の１つに巨大完全数探索があり、
そこでは１９３７桁の完全数探索をやります。
VBになりかなり大きな桁数を扱えるようになったとはいえ１９桁が限界ですから、
これがいかに難しいテーマであるかおわかりでしょう。
ですが、この講義を順に読んでいけば、初心者の皆さんでも充分に組めますよ。
では次の問題を出して第３話を終了します。
①１の２乗＋２の２乗＋３の２乗＋・・・＋１００の２乗
②５の３乗＋７の３乗＋９の３乗＋・・・＋３１の３乗
