① はじめの値５，終わりの値１０４（１０５，１０６も可），３
② はじめの値１０１，終わりの値５７（５８，５９，６０も可），－４
前話課題解答例
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim w As Integer, i As Integer, a As Integer, b As Integer, h As Integer
'TextBoxから値の取得
a = TextBox1.Text
b = TextBox2.Text
h = TextBox3.Text
'和の計算
w = 0 '初期化
For i = a To b Step h
w = w + i
Next
'結果の表示
TextBox4.Text = w
'２乗の和の計算
w = 0 '初期化
For i = a To b Step h
w = w + i * i
Next
'結果の表示
TextBox5.Text = w
'３乗の和の計算
w = 0 '初期化
For i = a To b Step h
w = w + i * i * i
Next
'結果の表示
TextBox6.Text = w
End Sub
End Class
w = 0を忘れると正しい結果が出ません。
理由は、前の和を計算したときに、wは０でなくなっているからです。
さて、For文を使って、円周率を計算してみましょう。
円の面積の公式は
でした。したがって、ｒ＝１のとき、円の面積はちょうどπですから、
半径１の円の面積を計算すればよいのです。
半径１の面積を計算するためには、
１／４円
の面積を計算して、４倍すればよいのです。
では、１／４円の面積はどのように計算したらよいでしょうか。
小さい長方形に分けて足していけば、円の面積に近い値が出ます。
長方形の横幅を小さくしていけば、誤差は小さくなっていきます。
横幅をＴｅｘｔＢｏｘから取得できるようにしてやって、
横幅とともに計算値がπに近づいていく様子を観察できるようにしてみましょう。
横幅をdとすると、１個目の長方形の縦は１ですから、その面積は
d×１＝d
です。
では２個目の長方形の面積はどうでしょうか。
縦がわからないとわかりません。
１／４円の方程式は、
でした。ですから、２個目の長方形の縦は、
です。x=dだからです。従って、その面積は
３個目は縦が
で、面積は
４個目は縦が
で、面積は
以下同様にして、
ｎ個目は縦が
で、面積は
したがって、１／４円の面積は
すなわち
を計算すればよいのです。ルートxを計算させるときは、
Math.Sqrt(x)とします。
これをFor文で実現するにはどのようにコーティングしたらよいでしょうか。
Forｍ1とコードを考えてください。
