Разработка и программирование задач на разветвляющую структуру

Практическое занятие №5

по учебной дисциплине  «Информатика и ИКТ»

Тема 2.2 Основные информационные процессы и их реализация с помощью компьютера.

Наименование занятия: Разработка и программирование задач на разветвляющую структуру

Цели работы:

- познакомиться с разветвляющей структурой задач;

- отработать навыки работы по разработке и программированию задач на языке Visual Basic на разветвляющую структуру.

Норма времени: 2 часа

Оснащение рабочего места: ПК, ИТК, ОС Windows, рабочая тетрадь.

Техника безопасности: Правила ТБ при работе в компьютерном классе

Содержание работы

Последовательность выполнения:

1. Ознакомиться с содержанием работы.

2. Записать дату, тему и цель практического занятия.

3. Изучить теоретические сведения.

4. Выполнить задания.

5. Сформулировать и записать вывод о проделанной работе.

Теоретические сведения

Оператор условного перехода

Как вы уже знаете, команды выполняются в той последовательности, в которой они записаны в программе. Однако часто требуется изменять порядок выполнения команд в зависимости от выполнения (или не выполнения) определенного условия. В Visual Basic существуют оператор условного перехода. Этот оператор предназначен для изменения порядка выполнения операторов после проверки некоторого условия.

В условных выражениях используются операторы сравнения, приведенные в таблице:

Синтаксис

Существует две разновидности данного оператора: однострочный и многострочный.

·         многострочный оператор имеет следующий вид:

If  условие Then

            действие 1

    Else

действие 2

End If

Здесь If (если) – имя оператора, Then (то) и Else (иначе) – служебные слова.

Пример1:

If  x>2 Then

        y  = 2*x

else  

                                  y = x + 1

    End If

·         однострочный оператор имеет следующий вид:

If  условие Then  действие 1

Пример 2:

If  x>2 Then y = 2*x

Пример 3:

If  x >= 0 Then

               Label1.Caption = «Значение больше или равно 0»

               Else

Label1.Caption = «Значение меньше 0»

End If

   Команда If может проверить только одно условие. Если требуется осуществить переход управления в зависимости от результатов проверки нескольких условий, то можно задать дополнительное условие с помощью оператора ElseIf. Оно будет проверяться только в том случае, если предыдущее условие будет ложно.

Пример:

If  x > 0 Then

               Label1.Caption = «Значение положительное»

               ElseIf  x = 0 Then

        Label1.Caption = «Значение равно 0»

        Else

        Label1.Caption = «Значение отрицательное»

End If

Над условными выражениями можно выполнять логические операции AND (И) и OR (ИЛИ)

Порядок выполнения работы

Составить программные коды к следующим задачам.

                   I.            Создать программу нахождения большего из двух чисел

Окно объектов                                                                                                        

Text 1

Command 1

Label 2

Command 2

Окно кодов

                 II.            Создать программу, определяющую четность числа, введенного с клавиатуры.

Окно объектов                                                                                                        

Label 1

Text 1

Command 2

Окно кодов

               III.            Составить программу определения минимального из четырех чисел

Окно объектов                                                                                                         Окно кодов

                IV.            Составить программу решения линейного уравнения

Окно объектов                                                                                                 Окно кодов

                  V.            Составить программу, определяющую существование треугольника с заданными сторонами.

Проверка условия : любая сторона треугольника меньше суммы двух других сторон

 ( If  a<b+c and b<a+c and c<a+b then         )

Критерии оценки практического занятия

 Дополнительная задача:

Составить программу решения квадратного уравнения