Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Алгоритмическая структура ветвление
Содержание
- 1. Алгоритмическая структура ветвление
- 2. Алгоритмическая структура «ветвление»УсловиеКоманда 1Команда 2Блок-схемаЯзык программированияVisual BasicIf Условие ThenКоманда 1ElseКоманда 2End If
- 3. Задача:Решить квадратное уравнение ax2+bx+c=0 (Разработать и реализовать
- 4. 1. Создание графического интерфейса проекта.ax2 + bx
- 5. 2. Установка значений свойств объектов графического интерфейса.
- 6. 3. Создание и редактирование программного кода.началоВвод a, b, cD = b2 - 4acD≥0Вывод x1, x2Нет корнейконецданет
- 7. Программный кодPrivate Sub cmdКорни_Click()a = txta.Textb =
- 8. Программный кодPrivate Sub cmdКорни_Click()a = txta.Textb =
- 9. Скачать презентанцию
Алгоритмическая структура «ветвление»УсловиеКоманда 1Команда 2Блок-схемаЯзык программированияVisual BasicIf Условие ThenКоманда 1ElseКоманда 2End If
Слайды и текст этой презентации
Слайд 1
Алгоритмическая структура «ветвление»
В алгоритмической структуре «ветвление» в зависимости от истинности
или ложности условия выполняется одна или другая серия команд.
Слайд 2
Алгоритмическая структура «ветвление»
Условие
Команда 1
Команда 2
Блок-схема
Язык программирования
Visual Basic
If Условие Then
Команда 1
Else
Команда
2
End If
Слайд 3Задача:
Решить квадратное уравнение ax2+bx+c=0 (Разработать и реализовать проект)
Этапы разработки проекта
1.
Создание графического интерфейса проекта.
2. Установка значений свойств объектов графического интерфейса.
3.
Создание и редактирование программного кода.4. Сохранение проекта.
Слайд 41. Создание графического интерфейса проекта.
ax2 + bx + c =
0
Квадратное уравнение
a =
b =
c =
Найти корни
Графическое окно PictureBox
Текстовое окно TextBox
Очистить
Пояснительный
текст LabelКомандная кнопка CommandButton
Вывод данных Label
Слайд 63. Создание и редактирование программного кода.
начало
Ввод a, b, c
D =
b2 - 4ac
D≥0
Вывод x1, x2
Нет корней
конец
да
нет
Слайд 7Программный код
Private Sub cmdКорни_Click()
a = txta.Text
b = txtb.Text
c = txtc.Text
D
= b ^ 2 - 4 * a * c
If
D >= 0 ThenX1 = (-b + Sqr(D)) / (2 * a)
X2 = (-b + Sqr(D)) / (2 * a)
lblx1.Caption = X1
lblx2.Caption = X2
Else
lblx1.Caption = “нет корней"
End If
End Sub
Private Sub cmdОчистить_Click()
txta.Text = ""
txtb.Text = ""
txtc.Text = ""
lblx1.Caption = ""
lblx2.Caption = ""
End Sub
Слайд 8Программный код
Private Sub cmdКорни_Click()
a = txta.Text
b = txtb.Text
c = txtc.Text
D
= b ^ 2 - 4 * a * c
If
D >= 0 ThenX1 = (-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 = “нет корней"
End If
End Sub
Private Sub cmdОчистить_Click()
txta.Text = ""
txtb.Text = ""
txtc.Text = ""
lblx1.Caption = ""
lblx2.Caption = ""
End Sub
