Презентация "Алгоритмическая структура «ветвление» на языке Visual Basic"

Подписи к слайдам:
Алгоритмическая структура «ветвление» на языке Visual Basic
  • Кирсанова Инна Викторовна
  • МОУ лицей «РИТМ»
  • Хабаровск
Ветвление
  • В зависимости от истинности или ложности условия выполняется одна или другая серия команд.
  • Неполная форма
  • Полная форма
  • Условие
  • нет
  • да
  • Операторы1
  • Операторы2
  • Условие
  • нет
  • да
  • Оператор
Оператор ветвления If
  • If условие Then
  • операторы -1
  • Else
  • операторы-2
  • End If
  • Условие
  • нет
  • да
  • Операторы1
  • Операторы2
  • Полная форма
  • (возможно 2 варианта решения задачи)
Задача 1.
  • Компьютер должен перемножить 2 числа. Если полученное произведение превысит 1000, то он должен напечатать: ПРОИЗВЕДЕНИЕ БОЛЬШОЕ, иначе – ПРОИЗВЕДЕНИЕ МАЛЕНЬКОЕ. А после этого печатает само произведение.
  • Dim a, b, p As Integer
  • a = TextBox1.Text
  • b = TextBox2.Text
  • p = a * b
  • If p > 1000 Then
  • TextBox3.Text = "Произведение большое"
  • Else
  • TextBox3.Text = "Произведение маленькое"
  • End if
  • TextBox4.Text = p
Оператор ветвления If
  • Условие
  • нет
  • да
  • Оператор
  • If условие Then операторы
  • Неполная форма
  • (один вариант или больше 2 вариантов)
  • Прописывается столько раз, сколько
  • вариантов решения задачи
Задача 2.
  • Компьютер должен перемножить 2 числа. Если полученное произведение превысит 1000, то он должен напечатать это произведение.
  • a = TextBox1.Text
  • b = TextBox2.Text
  • p = a * b
  • If p > 1000 Then TextBox4.Text = p
  • операторы
  • любой оператор VB или группа операторов
  • условие
  • два выражения, соединенных знаком сравнения
  • Знаки сравнения
  • >, >=, =, <, <=, <>
  • Пример: If 5*a+4 <= a*b Then a=b-1 Else a=b+5
  • ФРАГМЕНТ ПРОГРАММЫ (что увидим на экране?)
  • a=10
  • If a>2 Then TextBox1.text="!!!" Else TextBox1.text="!"
  • a=4
  • If a>5 Then a=a+10 Else a=a-1
  • TextBox1.text=a
  • s=6
  • If s-8<>0 Then s=2*s
  • TextBox1.text=s
  • s=6
  • If s<0 Then s=2*s
  • s=s+1
  • TextBox1.text=s
  • Задача 3:
  • Выяснить направление ветвей параболы.
  • Dim a as integer
  • a = TextBox1.Text
  • If a>0 Then
  • TextBox2.Text = “ветви направлены вверх”
  • Else
  • TextBox2.Text = “ветви направлены вниз”
  • End if
  • Задача 4:
  • Выяснить количество корней квадратного уравнения.
  • Dim a, b, c, d as integer
  • a = TextBox1.Text
  • b = TextBox2.Text
  • c = TextBox3.Text
  • d = Math.Sqr(b) – 4*a*c
  • If d>0 Then TextBox4.Text = “2 корня”
  • If d=0 Then TextBox4.Text = “1 корень”
  • If d<0 Then TextBox4.Text = “нет действительных корней”
Логические операции And (и), Or (или)
  • ФРАГМЕНТ
  • РЕЗУЛЬТАТ
  • a=8 : b=6 : If a>b And b>1 Then k=1 Else k=0
  • k=1
  • a=8 : b=6 : If a>b And b>7 Then k=1 Else k=0
  • k=0
  • If 8>2 And 3>5 Then k=1 Else k=0
  • k=0
  • If c>d And c<d Then k=1 Else k=0
  • k=0
Несколько And и Or.
  • Знаками And и Or можно объединять не только два, а сколько угодно условий.
  • Например:
  • If a>2 Or x=b Or c<>1 Then k=99 Else k=33
  • If a>2 And x=b And c<>1 Then k=99 Else k=33
Not.
  • Кроме логических операций And и Or применяется еще логическая операция Not (по-русски – НЕ).
  • Запись If Not a>b Then...
  • переводится так –
  • ЕСЛИ НЕПРАВДА, ЧТО a больше b, ТО....
  • Вот фрагмент:
  • a=2: b=3: If Not a>b Then k=1 Else k=0
  • Здесь выполнится оператор k=1, так как неправда, что 2>3.
Фрагменты программ
  • ФРАГМЕНТ
  • РЕЗУЛЬТАТ
  • a=8: b=6: If a>b Or b>7 Then k=1 Else k=0
  • k=1
  • a=8: b=6: If a<b Or b>7 Then k=1 Else k=0
  • k=0
  • If 1>2 Or 5<4 Then k=1 Else k=0
  • k=0
Решение задач Задание 1.
  • В компьютер вводятся два числа. Если первое больше второго, то напечатать их сумму, иначе – произведение. После этого компьютер должен напечатать текст ЗАДАЧА РЕШЕНА.
Задание 2.
  • В компьютер вводятся три числа.
  • Выяснить какое из трех чисел меньше.
Задание 3.
  • Компьютер спрашивает пользователя, как его зовут, а затем приветствует его в соответствии с именем: Колю – «Привет», Васю – «Здорово», Джона – «Hi», а остальных – «Здравствуйте». Для Васи, кроме этого, он красит форму в зеленый цвет.
Задание 4.
  • В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, можно или нельзя из этих отрезков образовать треугольник.
  • Указание: Для этого каждый отрезок должен быть меньше суммы длин двух других отрезков.
  • Напишите 3 варианта программы:
  • без использования логических операций,
  • с использованием логических операций Or,
  • с использованием логических операций And.
Правило записи многострочного оператора
  • If условие Then
  • операторы
  • …………….
  • [ ElseIf условие Then
  • операторы
  • ……………. ]
  • ……………………….….
  • [ Else
  • операторы
  • ……………. ]
  • End If
  • Ветвей ElseIf может быть сколько угодно или совсем не быть