メニューに戻る

\( \int_a^b f(x) dx\) の解を求めるPAD(探査範囲において単調増加する関数)について
VBA でプログラミングしなさい.

学籍番号 
氏  名 
定積分のPADにしたがうアルゴリズムを
1 行毎に下記の選択肢から適切に並べてVBAでプログラムにしなさい.
積分範囲の下限aはB2セル,上限bはB3セル,分割数nはB4セルにあらかじめ記入しておく.
なお,解答は選択肢番号を入力する.選択不要な場所は 0 を入力する.
Sub Main()
 Call Header '課題提出には必要
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
 ()   ()   ()   ()   ()   ()   () 
End Sub
Function f(ByVal x As Double) As Double
 f = Sin(x)+Cos(x)
End Function

選択肢

(1)1 (2)S = S + f(xi) (3)0
(4)For (5)Cells(7,2) = S (6)Step
(7)n-1 (8)Dim i As Long (9)Dim dx As Double : dx = (b-a)/n
(10)Cells(5,2) = dx (11)Next i (12)i =
(13)Dim b As Double : b = Cells(3,2) (14)Dim S As Double : S = 0 (15)Dim xi As Double
(16)Dim a As Double : a = Cells(2,2) (17)To (18)S = S + 1/2 * ( f(a) + f(b) )
(19)n (20)Dim n As Long : n = Cells(4,2) (21)xi = a + i * dx