Presentation is loading. Please wait.

Presentation is loading. Please wait.

情報基礎実習I (第4回) 木曜4・5限 担当:北川 晃.

Similar presentations


Presentation on theme: "情報基礎実習I (第4回) 木曜4・5限 担当:北川 晃."— Presentation transcript:

1 情報基礎実習I (第4回) 木曜4・5限 担当:北川 晃

2 より,適宜ダウンロードして参照してください.
講義資料のスライド より,適宜ダウンロードして参照してください.

3 Select Case文 Select Case 条件式 条件式が評価される. [Case 値リスト1 その結果と各Caseの
[文ブロック1]] [Case 値リスト2 [文ブロック2]] [Case Else [文ブロックn]] End Select 条件式が評価される. その結果と各Caseの 値リストが比較される. 条件式の書き方の例: Case 5    (単独の値) Case “Sun” (文字列) Case 3, 5, 7 (複数の値) Case 2 To 8 (2~8の範囲) Case ls < 7 (範囲,不等式)

4 Select Case 例文 Select Case x xの値がどのケースに 当てはまるかを選ぶ Case x < 0
Text=“負の値です” Case 0 Text=“0の値です” Case 1 To 99 Text=“1~99の値です” Case Else Text=“100以上の値です” End Select xの値がどのケースに 当てはまるかを選ぶ End Selectで締めくくる

5 考え方:Select Case文を用いてプログラムを書き換えてみよ.
プログラミング演習 1~12の月(month)を入力をしたとき, 3~5月ならば「春」 6~8月ならば「夏」 9~11月ならば「秋」 12~2月ならば「冬」 と表示させるプログラムを作れ. 考え方:Select Case文を用いてプログラムを書き換えてみよ.

6 プログラム例:季節の判定 Console.Title = "季節の判定プログラム"
Dim month As Integer, season As String Console.WriteLine("何月ですか?1~12の整数を入力して下さい.") month = Console.ReadLine() Select Case month Case 3, 4, 5 season = "春" Case 6, 7, 8 season = "夏" Case 9, 10, 11 season = "秋" Case 12, 1, 2 season = "冬" Case Else season = "入力エラー" End Select Console.WriteLine("{0}月の季節は{1}です.", month, season)

7 さまざまな組み込み関数 Math.Abs(x): xの絶対値 Math.Sign(-5)→-1 Math.Sign(0)→0
Math.Sign(x): xの符号 Int(x): xを超えない最大の整数 Fix(x): xの整数部分 Math.Sqrt(x): xの平方根 Math.Log(x): xの自然対数 Math.Exp(x): xの指数関数 Math.Sin(x): xの正弦(ラジアン単位) Math.Cos(x): xの余弦(ラジアン単位) Math.Tan(x): xの正接(ラジアン単位) Math.Sign(-5)→-1 Math.Sign(0)→0 Math.Sign(30)→1 Int(-4.3)→-5 Int(4.3)→4 Fix(-4.3)→-4 Fix(4.3)→4

8 プログラミング演習 西暦年を与えて,うるう年か平年かを判定せよ. 西暦年数が4の倍数ならば,うるう年である. 西暦年数が4の倍数であっても,
100の倍数の時はうるう年ではない(平年). 西暦年数が100の倍数であっても, 400の倍数であるときはうるう年である. 例: 2014年:うるう年でない 2016年:うるう年 2100年:うるう年でない 2000年:うるう年

9 うるう年の判定:アルゴリズム 4の倍数の判定:n/4の整数部分に4をかけて,元のnに一致するか? は 4の倍数? 西暦年 うるう年でない
  は 4の倍数? 西暦年 を入力 うるう年でない YES NO 100の倍数? うるう年 400の倍数? 4の倍数の判定:n/4の整数部分に4をかけて,元のnに一致するか?

10 プログラム例:うるう年の判定 Console.Title = "うるう年の判定" Dim n As Integer
Console.WriteLine("西暦年を入力して下さい") Console.Write("n=") n = Console.ReadLine() If n <> Fix(n / 4) * 4 Then GoTo Point2 If n <> Fix(n / 100) * 100 Then GoTo Point1 If n <> Fix(n / 400) * 400 Then GoTo Point2 Point1: Console.WriteLine("うるう年です") GoTo Point3 Point2: Console.WriteLine("うるう年ではありません") Point3:

11 出力例:うるう年の判定

12 プログラミング演習 三角形の3辺a, b, cを読み込んで, 三角形ができる場合は面積Sを計算せよ. A 三角形の成立条件 c b かつ C
ヘロンの公式 ただし

13 出力例:三角形の面積

14 プログラム例:三角形の面積 Console.Title = "三角形の面積" Dim a, b, c, p, s As Single
Console.WriteLine("三角形の3辺a,b,cを入力して下さい") Console.Write("a=") a = Console.ReadLine() Console.Write("b=") b = Console.ReadLine() Console.Write("c=") c = Console.ReadLine() If a = 0 Then GoTo Point1 If Math.Abs(a - b) > c Or a + b <= c Then GoTo Point1 p = (a + b + c) / 2 s = Math.Sqrt(p * (p - a) * (p - b) * (p - c)) Console.WriteLine("三角形の面積はS={0}", s) GoTo PointEnd Point1: Console.WriteLine("三角形にならない") PointEnd:

15 例題:得点の評価 100点満点の得点を入力し, 0点以上30点未満なら 30点以上60点未満なら Terrible!!
 100点満点の得点を入力し, 0点以上30点未満なら 30点以上60点未満なら 60点以上70点未満なら 70点以上90点未満なら 90点以上なら と表示するプログラムを作れ. Terrible!! Bad! Good Great! Excellent!!

16 Label1,Textbox1,2,Button1の貼り付け
得点の評価:プログラム例 Label1,Textbox1,2,Button1の貼り付け

17 得点の評価:プログラム例(つづき) 評価ボタン の動作 Dim point As Integer
point = Val(TextBox1.Text) If point >= 90 Then TextBox2.BackColor = Color.Blue TextBox2.ForeColor = Color.White TextBox2.Text = "Excellent!!" ElseIf point >= 70 Then TextBox2.BackColor = Color.Green TextBox2.Text = "Great!" ElseIf point >= 60 Then TextBox2.BackColor = Color.GreenYellow TextBox2.ForeColor = Color.Black TextBox2.Text = "Good" 評価ボタン   の動作

18 得点の評価:プログラム例(つづき) 評価ボタン の動作 ElseIf point >= 30 Then
TextBox2.BackColor = Color.Yellow TextBox2.ForeColor = Color.Black TextBox2.Text = "Bad!" Else TextBox2.BackColor = Color.Red TextBox2.Text = "Terrible!!" End If 評価ボタン   の動作

19 例題:円,球の評価 半径rの値を入力し,以下の計算のいずれかを 選択した後,結果を表示するプログラムを作れ. 円の円周=2πr
RadioButton GroupBox

20 Label1,2,Textbox1,2,Button1の貼り付け
例題:円,球の評価 Label1,2,Textbox1,2,Button1の貼り付け RadioButton1~4の貼り付け GroupBoxで囲む

21 円,球の評価:プログラム例(つづき) 計算ボタン の動作 πの数値を与える 「各RadioButtonが チェックされている」 が真か偽か?
  の動作 Dim r, p, result As Single r = Val(TextBox1.Text) p = Math.PI If RadioButton1.Checked Then result = 2 * p * r If RadioButton2.Checked Then result = p * r ^ 2 If RadioButton3.Checked Then result = 4 * p * r ^ 2 If RadioButton4.Checked Then result = 4 / 3 * p * r ^ 3 TextBox2.Text = Format(result, "#,###.#0") πの数値を与える 「各RadioButtonが チェックされている」 が真か偽か?

22 例題:金額の計算 希望する商品すべてをクリックし,おのおのの個数を入力 したとき,合計金額を計算して表示するプログラムを作れ.
 希望する商品すべてをクリックし,おのおのの個数を入力 したとき,合計金額を計算して表示するプログラムを作れ. CheckBox

23 Label1~3,Textbox1~7,Button1,2の貼り付け
金額の計算:プログラム例 Label1~3,Textbox1~7,Button1,2の貼り付け CheckBox1~6の貼り付け

24 金額の計算:プログラム例(つづき) 各チェックボックスが真か偽か 金額の表示の書式 各チェックボックスのチェックを外す
Private Sub Button1_Click(sender As Object, e As EventArgs) … Dim result As Integer = 0 If CheckBox1.Checked Then _ result = result * Val(TextBox1.Text) If CheckBox2.Checked Then _ result = result * Val(TextBox2.Text) If CheckBox6.Checked Then _ result = result * Val(TextBox6.Text) TextBox7.Text = Format(result, "\\###,###") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) … CheckBox1.Checked = False : TextBox1.Text = "" CheckBox2.Checked = False : TextBox2.Text = "" CheckBox6.Checked = False : TextBox6.Text = "" 各チェックボックスが真か偽か 金額の表示の書式 各チェックボックスのチェックを外す

25 例題:最大値と最小値 3つの数を入力し,最大値と最小値を 表示するプログラムを作れ.

26 Label1~3,Textbox1~5,Button1,2の貼り付け
最大値と最小値:プログラム例 Label1~3,Textbox1~5,Button1,2の貼り付け 三つの数字a, b, cについて,   最初にmax=min=aを代入 b, cをmax,minの値と比較し,   必要であれば書き換える

27 最大値と最小値:プログラム例(つづき) 計算ボタン Dim a, b, c, max, min As Single の動作
  の動作 Dim a, b, c, max, min As Single a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text) max = a : min = a If b > max Then max = b If b < min Then min = b If c > max Then max = c If c < min Then min = c TextBox4.Text = max TextBox5.Text = min


Download ppt "情報基礎実習I (第4回) 木曜4・5限 担当:北川 晃."

Similar presentations


Ads by Google