Алгоритмическая структура «ветвление»
В алгоритмической структуре «ветвление» в зависимости от истинности или ложности условия выполняется одна или другая серия команд.
Алгоритмическая структура «ветвление»
Язык программирования
Visual Basic
Блок-схема
If Условие Then
Команда 1
Else
Команда 2
End If
Задача:
Решить квадратное уравнение ax 2 +bx+c=0 (Разработать и реализовать проект)
Этапы разработки проекта
1. Создание графического интерфейса проекта.
2. Установка значений свойств объектов графического интерфейса.
3. Создание и редактирование программного кода.
4. Сохранение проекта.
1. Создание графического интерфейса проекта.
Квадратное уравнение
Пояснительный текст Label
Графическое окно PictureBox
ax 2 + bx + c = 0
c =
b =
a =
Текстовое окно TextBox
Командная кнопка CommandButton
Вывод данных Label
2. Установка значений свойств объектов графического интерфейса.
Пояснительный текст c =
Пояснительный текст а =
Пояснительный текст b =
Свойство
Свойство
Свойство
Значение
Значение
Значение
Caption
Caption
Caption
a =
c =
b =
Ввод данных для а
Ввод данных для c
Ввод данных для b
Свойство
Свойство
Свойство
Name
Name
Name
Значение
Значение
Значение
txtc
Text
txtb
Text
txta
Text
Командная кнопка
Найти корни
Вывод x 1
Вывод x 2
Свойство
Свойство
Свойство
Name
Name
Name
Значение
Значение
Значение
Caption
lblx 2
Caption
lblx1
cmd Корень
Caption
Найти корни
3. Создание и редактирование программного кода.
Ввод a, b, c
D = b 2 — 4ac
D ≥0
да
нет
Вывод x 1 , x 2
= 0 Then If D = 0 Then X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = X1 lblx2.Caption = X2 X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = X1 lblx2.Caption = X2 X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = X1 lblx2.Caption = X2 Else Else Else lblx1.Caption = “ нет корней» lblx1.Caption = “ нет корней» End If End If End Sub Private Sub cmdОчистить_Click() txta.Text = «» txtb.Text = «» txtc.Text = «» lblx1.Caption = «» lblx2.Caption = «» txta.Text = «» txtb.Text = «» txtc.Text = «» lblx1.Caption = «» lblx2.Caption = «» End Sub Программный код» width=»640″
Private Sub cmdКорни_Click()
a = txta.Text
b = txtb.Text
c = txtc.Text
D = b ^ 2 — 4 * a * c
- a = txta.Text b = txtb.Text c = txtc.Text D = b ^ 2 — 4 * a * c
- a = txta.Text b = txtb.Text c = txtc.Text D = b ^ 2 — 4 * a * c
If D = 0 Then
- If D = 0 Then
X1 = (-b + Sqr(D)) / (2 * a)
X2 = (-b + Sqr(D)) / (2 * a)
lblx1.Caption = X1
lblx2.Caption = X2
- X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = X1 lblx2.Caption = X2
- X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = X1 lblx2.Caption = X2
Else
- Else
- Else
lblx1.Caption = “ нет корней»
- lblx1.Caption = “ нет корней»
End If
- End If
End Sub
Private Sub cmdОчистить_Click()
txta.Text = «»
txtb.Text = «»
txtc.Text = «»
lblx1.Caption = «»
lblx2.Caption = «»
- txta.Text = «» txtb.Text = «» txtc.Text = «» lblx1.Caption = «» lblx2.Caption = «»
End Sub
Программный код
= 0 Then If D = 0 Then X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = Format(X1, «######.###») lblx2.Caption = Format(X2, «######.###») lblx1.Caption = «X1= » + lblx1.Caption lblx2.Caption = «X2= » + lblx2.Caption X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = Format(X1, «######.###») lblx2.Caption = Format(X2, «######.###») lblx1.Caption = «X1= » + lblx1.Caption lblx2.Caption = «X2= » + lblx2.Caption X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = Format(X1, «######.###») lblx2.Caption = Format(X2, «######.###») lblx1.Caption = «X1= » + lblx1.Caption lblx2.Caption = «X2= » + lblx2.Caption Else Else lblx1.Caption = “ нет корней» lblx1.Caption = “ нет корней» End If End If End Sub Private Sub cmdОчистить_Click() txta.Text = «» txtb.Text = «» txtc.Text = «» lblx1.Caption = «» lblx2.Caption = «» txta.Text = «» txtb.Text = «» txtc.Text = «» lblx1.Caption = «» lblx2.Caption = «» End Sub Программный код» width=»640″
Private Sub cmdКорни_Click()
a = txta.Text
b = txtb.Text
c = txtc.Text
D = b ^ 2 — 4 * a * c
- a = txta.Text b = txtb.Text c = txtc.Text D = b ^ 2 — 4 * a * c
- a = txta.Text b = txtb.Text c = txtc.Text D = b ^ 2 — 4 * a * c
If D = 0 Then
- If D = 0 Then
X1 = (-b + Sqr(D)) / (2 * a)
X2 = (-b + Sqr(D)) / (2 * a)
lblx1.Caption = Format(X1, «######.###»)
lblx2.Caption = Format(X2, «######.###»)
lblx1.Caption = «X1= » + lblx1.Caption
lblx2.Caption = «X2= » + lblx2.Caption
- X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = Format(X1, «######.###») lblx2.Caption = Format(X2, «######.###») lblx1.Caption = «X1= » + lblx1.Caption lblx2.Caption = «X2= » + lblx2.Caption
- X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = Format(X1, «######.###») lblx2.Caption = Format(X2, «######.###») lblx1.Caption = «X1= » + lblx1.Caption lblx2.Caption = «X2= » + lblx2.Caption
Else
- Else
lblx1.Caption = “ нет корней»
- lblx1.Caption = “ нет корней»
End If
- End If
End Sub
Private Sub cmdОчистить_Click()
txta.Text = «»
txtb.Text = «»
txtc.Text = «»
lblx1.Caption = «»
lblx2.Caption = «»
- txta.Text = «» txtb.Text = «» txtc.Text = «» lblx1.Caption = «» lblx2.Caption = «»
End Sub
Программный код
