А ЛГОРИТМИЧЕСКАЯ СТРУКТУРА « ВЕТВЛЕНИЕ » НА ЯЗЫКЕ V ISUAL B ASIC

В ЕТВЛЕНИЕ В зависимости от истинности или ложности условия выполняется одна или другая серия команд. Неполная форма Полная форма Условие нет да Операторы 1Операторы 2 Условие нет да Оператор

О ПЕРАТОР ВЕТВЛЕНИЯ I F 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 условие Then операторы О ПЕРАТОР ВЕТВЛЕНИЯ I F Неполная форма (один вариант или больше 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 = нет действительных корней

Л ОГИЧЕСКИЕ ОПЕРАЦИИ A ND ( И ), O R ( ИЛИ ) ФРАГМЕНТ РЕЗУЛЬТАТ 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

Н ЕСКОЛЬКО A ND И O R. Знаками 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

N OT. Кроме логических операций 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=0k=1 a=8: b=6: If a 7 Then k=1 Else k=0k=0 If 1>2 Or 5<4Then k=1 Else k=0k=0

Р ЕШЕНИЕ ЗАДАЧ

З АДАНИЕ 1. В компьютер вводятся два числа. Если первое больше второго, то напечатать их сумму, иначе – произведение. После этого компьютер должен напечатать текст ЗАДАЧА РЕШЕНА.

З АДАНИЕ 2. В компьютер вводятся три числа. Выяснить какое из трех чисел меньше.

З АДАНИЕ 3. Компьютер спрашивает пользователя, как его зовут, а затем приветствует его в соответствии с именем: Колю – «Привет», Васю – «Здорово», Джона – «Hi», а остальных – «Здравствуйте». Для Васи, кроме этого, он красит форму в зеленый цвет.

З АДАНИЕ 4. В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, можно или нельзя из этих отрезков образовать треугольник. Указание: Для этого каждый отрезок должен быть меньше суммы длин двух других отрезков. Напишите 3 варианта программы: 1. без использования логических операций, 2. с использованием логических операций Or, 3. с использованием логических операций And.

П РАВИЛО ЗАПИСИ МНОГОСТРОЧНОГО ОПЕРАТОРА ElseIf Ветвей ElseIf может быть сколько угодно или совсем не быть If условие Then операторы ……………. [ ElseIf условие Then операторы ……………. ] ……………………….…. [ Else операторы ……………. ] End If