Example

13:34 にページが自動更新されます。

Example20　PAD

学籍番号
氏　　名
ベクトル内積 \( A = \left( \vec{B} , \vec{C} \right) \)を計算するマクロ(Main)コードをPADから完成させなさい．
マクロ(Main)の開始	Sub Main()
課題提出に必要【学籍番号・氏名・課題番号の出力】	Call Header
Long型変数 n の宣言とセル D2 で初期化	()
Double型配列変数 Vector1 の動的宣言、要素番号1 から n	()
Double型配列変数 Vector2 の動的宣言、要素番号1 から n	()
Double型変数 Ans の動的宣言	()
Long型繰返し変数 i の宣言	()
iの繰り返し	()
Vector1(i) に(n=5の場合) D4～H4 を代入．	()
	()
iの繰り返し	()
Vector2(i) に(n=5の場合) D5～H5 を代入．	()
	()
Ans にVector1()とVector2()の内積を代入．	()
D6 に Ansを代入．	()
マクロ(Main)の終了	()
InnerPro(関数の定義

選択肢


(1)	Vector2(i) = Cells(5, i + 3)	(2)	End Sub	(3)	Do i = 1 To n Step 1
(4)	Dim Vector2() As Double : ReDim Vector2(1 To n)	(5)	For i = 1 To n Step 1	(6)	Dim Vector1() As Double : ReDim Vector1(1 To n)
(7)	Loop	(8)	Ans = InnerPro(Vector1(), Vector2())	(9)	Vector1(i) = Cells(4, i + 3)
(10)	Dim Ans As Double	(11)	Dim n As Long : n = Cells(2, 4)	(12)	Dim i As Long
(13)	Sub End	(14)	Next i	(15)	End Main
(16)	End Main()	(17)	Cells(6, 4) = Ans