Теория недели 03.12 - 08.12.2012

Тема: Проверка сложных условий.

 Цель: Познакомиться с различными способами записи условного перехода, научиться разрабатывать приложения, в которых используется данный оператор.

 Знать: Синтаксис оператора условного перехода, способы записи  сложных условий.

 Уметь: Объяснять назначение команд условного перехода, записывать условия, используя синтаксис языка.

      При решении задач Вам потребуется умение составлять сложные условные выражения (декларативный стиль), а также сложные комбинации простых условий (процедурный стиль). 

 Синтаксис сложного условия с логической операциейAnd (И):

 Декларативный  стиль

 

Процедурный  стиль

IfУсловие1  AndУсловие2

Then

    Действие 1

Else

    Действие 2

End if

If Условие1  Then

    IfУсловие2Then

        Действие 1

Else

        Действие 2

End if

 

Синтаксис сложного условия с логической операциейOr (Или):

 

Декларативный  стиль

Процедурный  стиль

IfУсловие1  Or Условие2 Then

    Действие 1

Else

    Действие 2

End if

If Условие1  Then

    Действие 1

Else

    IfУсловие2Then

     Действие 1

Else

        Действие 2

End if

Endif

 

Для небольшого сокращения записи вместо конструкции ElseIfEndifможно воспользоваться ключевым словом  ElseIf. При этом программа будет выглядеть проще:

 

 

IfУсловие1  Then

    Действие 1

ElseIfУсловие2Then

     Действие 1

Else

        Действие 2

End if

 

Задача 1. Напишите фрагмент программного кода, проверяющего условие: сумма длин каких-то двух отрезков из трех может оказаться меньше или равной длине третьего отрезка, - в этом случае из этих отрезков можно построить треугольник. Условное выражение описывающее, имеет следующий вид: a+b>candb+c>aandc+a>b.

 

Задача 2. Запишите программу, которая является решением задачи 1, в более компактном виде. Для этого вместо конструкции ElseIfEndif воспользуйтесь ключевым словом  ElseIf.

 

   В языке VisualBasicесть еще один способ выбирать альтернативу. Этот способ применяется в том случае, когда условием в условных операторах является такое: Переменная=Значение. Он заключается в использовании оператора SelectCase.

 

SelectCaseПеременная

CaseЗначение 1

ПоследовательностьОператоров1

CaseЗначение (N-1)

ПоследовательностьОператоров(N-1)

[CaseElse

ПоследовательностьОператоров N]

EndSelect

 

   Считается что число N(количество альтернатив) не меньше двух – иначе и выбора не надо было бы делать.

 

 Практические задания

 

Задача. Создайте проект «Детский сад».

 

1 этап: Постановка задачи. По введенному возрасту ребенка, определяется в какую группу детского сада, он будет ходить.

 

 

Группы – Младшая (меньше 4 лет), Средняя (от 4 до 5), Старшая (от 5 до 6), Подготовительная (от 6 до 7).  

 

2 этап: Создание формы и установка свойств компонентов

 

Элемент управления

Свойства элемента управления

Форма

NameForm1:Caption– Детский сад

Текстовое поле

Name –Text1,2

Метка

Name – Label1:Caption – Скольколет

Кнопка

Name – Command1:Caption – Группа

 

3 этап: Ввода текста программы.

 

Private Sub Command1_Click()

 

Dim l As Single, g As String

 

l = Val(Text1.Text)

 

Select Case l

 

Case Is < 4: g = "Младшая"

 

Case 4 To 5: g = "Средняя"

 

Case 5 To 6: g = "Cтаршая"

 

Case 6 To 7: g = "Подготовительная"

 

End Select

 

Text2.Text = g

End Sub