Презентация по теме: Алгоритмическая структура ветвление. В презентации рассматриваются вопросы: понятие ветвления в алгоритмах, команды ветвления, построение логических выражений, реализация команд ветвления на языке Visual Basic.
Просмотр содержимого документа
«Алгоритмическая структура ветвление»
Алгоритмическая структура «ветвление»
В алгоритмической структуре «ветвление» в зависимости от истинности или ложности условия выполняется одна или другая серия команд.
Алгоритмическая структура «ветвление»
Язык программирования
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
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
lblx1.Caption = “ нет корней"
lblx1.Caption = “ нет корней" 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
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
lblx1.Caption = “ нет корней"
lblx1.Caption = “ нет корней" 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
Программный код