Суббота, 09.11.2024, 00:30
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

Задание к уроку 20

Занятие 18. Ветвление в алгоритмах и задачах

Компьютерные программы хорошо умеют использовать алгебру логики ( булеву логику, алгебру высказываний). В этой логике ответы на все вопросы всегда или "Да" (True) или "Нет"(False) нет никаких "возможно", "похоже"  или "почти".

Примеры использования булевой логики:

  • 4 = 4 ? Да (True);
  • 3 = 3 + 1 ? Нет (False);
  • 3 = (6+ 12)/(1 + 5) ? Да (True).

​Как видите, в каждом примере ответ - или "да" или "нет". Именно так программа принимает решения:

  • Если ответ "Да" (True), программа делает одно.
  • Если ответ Нет (False) - другое.

 

Пример 

Пример⇒ проект "If_Then"

 

Ветвление в Visual Basic.Net

Для реализации алгоритма с ветвлением необходим оператор условия. Его конструкция может иметь одну или несколько строк.

Одна строка:

If условие Then  группа операторов 1  [Else группа операторов 2]

 

Несколько строк:

If условие Then 
                              
группа операторов 1 
                   [Else 
                              
группа операторов 2]
End If

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

 

Работает этот оператор следующим образом:

  1. Проверяется условие.
  2. Если условие истинно, то исполняется группа операторов 1.
  3. Если условие ложно, то исполняется группа операторов 2.

 

 

Рассмотрим примеры задач, алгоритмы решения которых не являются линейными.

​Задание 1. Разработать проект определения знака числа.

1. Блок - схема

2. Интерфейс 

3. Программный код

Private Sub Button1_Click(...............) Handles Button1.Click

 Dim a As Short       

 a = Val(InputBox("a=", "ввод данных"))      

 If a > 0 Then MessageBox.Show("число положительное") Else MessageBox.Show("число отрицательное")

  End Sub

                                  или 

Private Sub Button1_Click(.........) Handles Button1.Click

Dim a As Short

 a = Val(InputBox("a=", "ввод данных"))

  If a > 0 Then
                             MessageBox.Show("число положительное")
                     Else
                            
 MessageBox.Show("число отрицательное")
  End If

        End Sub

                                         или

If a > 0 Then
            MessageBox.Show("число положительное")
        Else : MessageBox.Show("число отрицательное")
End If

 

Варианты записи программного кода:

1.

Private Sub Button1_Click()

Dim a As Integer

a = Val(InputBox("a=", "ввод данных"))

If a > 0 Then MessageBox.Show ("число положительное")

If a <0 Then MessageBox.Show ("число отрицательное")

End Sub

2.

Private Sub Button1_Click()

Dim a As Integer

a = Val(InputBox("a=", "ввод данных"))

If a > 0 Then MessageBox.Show("число положительное")

If a = 0 Then MessageBox.Show("число равно нулю")  Else MessageBox.Show("число отрицательное")

End Sub

 

Форма входа
Поиск
Календарь
«  Ноябрь 2024  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2024
    Конструктор сайтов - uCoz