メニューに戻る

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

Example12　PAD

学籍番号
氏　　名
三辺の長さから三角形の面積を計算するマクロ(Main)コードをPADにしたがって完成させなさい．
マクロ(Main)の開始Sub Main()
　課題提出に必要【学籍番号・氏名・課題番号の出力】　Call Header
　Double型変数 a の宣言とセル B3 で初期化　()　
　Double型変数 b の宣言とセル B4 で初期化　()　
　Double型変数 c の宣言とセル B5 で初期化　()　
　Double型変数 d の宣言と \( \displaystyle \frac{a+b+c}{2} \)で初期化　()　
　Double型変数 e の宣言と \( (d-a)(d-b)(d-c) \)で初期化　()　
　e>0の条件で処理を選択　()　
　条件が真：\( \sqrt{d \times e} \)を E2 に表示　()　
　　()　
　条件が偽："辺の長さの入力に誤り"を E2 に表示　()　
　　()　
マクロ(Main)の終了()　


選択肢

(1)Dim a As Double : a = Cells(3,2) (2)Else (3)Cells(2,5) = Sqr(d*e)
(4)Cells(2,5) = "三角形を構成できません" (5)Dim d As Double : d = a+b+c / 2 (6)Dim e As Double : e = (d-a)*(d-b)*(d-c)
(7)End If (8)End Sub (9)Dim e As Double : e = (d-a)(d-b)(d-c)
(10)End (11)Start If e > 0 Then (12)If e > 0 Then
(13)Dim b As Double : b = Cells(4,2) (14)Dim d As Double : d = (a+b+c) / 2 (15)Dim c As Double : c = Cells(5,2)
(16)Sub End