第４話 階差数列の２乗の和解答例
１，２，３，・・・，１００とか
５，７，９，・・・，３１
のような数の並びを等差数列といいます。
そして最初の項(数字)を初項、後ろの項と前の項の差を交差といいます。
交差は項差ではないことに注意してください。
どこの差も一定なのが等差数列なので、公の文字を使い交差というのです。
それで今回の和のテーマ名が階差数列の２乗の和解答例となっています。
それでは答え合わせをしましょう。
①１の２乗＋２の２乗＋３の２乗＋・・・＋１００の２乗
解答例
Module Module1
Sub Main() '私は社長だ。
Dim a, i As Long 'aは整数を入れる箱を用意 iはFor文の制御変数
a = 0 '初期化
'以下計算
For i = 1 To 100
a += i * i
Next
'以上計算
Console.WriteLine("１の２乗＋２の２乗＋３の２乗＋・・・＋１００の２乗={0:d}", a)
End Sub
End Module
実行画面
１の２乗＋２の２乗＋３の２乗＋・・・＋１００の２乗=338350
②５の３乗＋７の３乗＋９の３乗＋・・・＋３１の３乗
（これは初項５、公差２、末項（最後の項）３１の等差数列の２乗の和です。）
解答例
Module Module1
Sub Main() '私は社長だ。
Dim a, i As Long 'aは整数を入れる箱を用意 iはFor文の制御変数
a = 0 '初期化
'以下計算
For i = 5 To 31 Step 2
a += i * i * i
Next
'以上計算
Console.WriteLine("５の３乗＋７の３乗＋９の３乗＋・・・＋３１の３乗={0:d}", a)
End Sub
End Module
実行画面
５の３乗＋７の３乗＋９の３乗＋・・・＋３１の３乗=130788
前話でも今話でもいちいち初項・公差・末項をプログラムコードに入れていました。
このやり方は、汎用的（用途の広い）なプログラムの組み方ではありません。
プログラムは、汎用的にして普遍的なものにすることが理想です。
そこで、初項・公差・末項をキーボードから指定して、
計算することが出来るように変更します。
キーボードから入力したものをコンソール画面から取り組む方法は、
第２講の第８話で学んでいます。
その方法を使って、
等差数列の和を求めるアプリ
↓
キーボードから初項を入力してエンター
↓
↓
キーボードから交差を入力してエンター
↓
↓
キーボードから末項を入力してエンター
↓
を開発してください。
