Алгоритмическая структура «ветвление» на языке Visual Basic. Богданович Т.В.
презентация к уроку по информатике и икт (9 класс)

Слайд 1

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

Слайд 2

Алгоритмическая структура «Цикл» Алгоритмическая структура «Выбор» Алгоритмическая структура «Ветвление» Линейный алгоритм Основные алгоритмические структуры:

Слайд 3

«Ветвление» - алгоритм, в котором та или иная серия команд выполняется в зависимости от истинности условия. Условие – логическое выражение (простое или сложное).

Слайд 4

Блок-схема Язык программирования Visual Basic «Ветвление» (полная форма) : 2 варианта решения задачи! I f условие Then серия команд 1 Else серия команд 2 End if

Слайд 5

Задача 1: Выяснить направление ветвей параболы. Dim a As Integer … a = TextBox1.Text I f a>0 Then TextBox2.Text = “ ветви направлены вверх ” Else TextBox2.Text = “ ветви направлены вниз ” End if

Слайд 6

Задача 2: Компьютер должен перемножить 2 числа. Если полученное произведение превысит 1000, то он должен напечатать: ПРОИЗВЕДЕНИЕ БОЛЬШОЕ , иначе – ПРОИЗВЕДЕНИЕ МАЛЕНЬКОЕ . А после этого печатает само произведение.

Слайд 7

Блок-схема Язык программирования Visual Basic «Ветвление» (неполная форма) : 2 и более вариантов решения задачи! Прописывается столько раз, сколько вариантов! I f условие Then серия команд

Слайд 8

Задача 3: Выяснить количество корней квадратного уравнения. Dim a, b, c, d As Integer … a = TextBox1.Text b = TextBox2.Text c = TextBox3.Text d = b^2 – 4*a*c I f d>0 Then TextBox4.Text = “2 корня ” I f d = 0 Then TextBox4.Text = “ 1 корень ” I f d<0 Then TextBox4.Text = “ нет действительных корней ”

Слайд 9

Задача 4: Компьютер должен перемножить 2 числа. Если полученное произведение превысит 1000, то он должен напечатать это произведение. Dim a, b, p As Integer … a = T extBox1.Text b = T extBox 2 .Text p = a * b I f p > 1000 Then T extBox 4 .Text = p

Слайд 10

ФРАГМЕНТ ПРОГРАММЫ 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

Слайд 11

Логические операции And, Or, Not ФРАГМЕНТ РЕЗУЛЬТАТ 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

Слайд 12

ФРАГМЕНТ РЕЗУЛЬТАТ a=8 b=6 If a>b Or b>7 Then k=1 Else k=0 k=1 a=8 b=6 If a7 Then k=1 Else k=0 k=0 If 1>2 Or 5<4 Then k=1 Else k=0 k=0

Слайд 13

В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, можно или нельзя из этих отрезков образовать треугольник. Найти значение функции: Домашнее задание: