Example

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

Example19　PAD

学籍番号
氏　　名
\( \vec{A} = \vec{B} + \vec{C}, \vec{A} = \vec{B} - \vec{C}\)を計算するマクロ(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 を代入．	()
Vector2(i) に(n=5の場合) D5～H5 を代入．	()
	()
Ans() にVector1() ＋ Vector2()の結果を代入．	()
iの繰り返し	()
(n=5の場合) D6～H6 に Ans(i)を代入．	()
	()
Ans() にVector1() ― Vector2()の結果を代入．	()
iの繰り返し	()
(n=5の場合) D7～H7 に Ans(i)を代入．	()
	()
マクロ(Main)の終了	()
VectorSum関数の定義
VectorDif関数の定義

選択肢


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