Тема: Оператор выбора. Многострочный If . Решение задач на условие.

Урок №8.  Тема: Оператор выбора. Многострочный If . Решение задач на условие. Учебная: научить работать с многострочной формой условного оператора Visual Basic 6.0. Решать задачи  на условие, применяя  однострочный If  Visual Basic 6.0. Воспитательная: Воспитать стремление к аккуратности, ответственности при работе с техникой. Развивающая:  развитие   познавательного   интереса,   логического   мышления,   памяти, творческого подхода к решению задачи. Обеспечение занятия: Литература: 1). ПК – ЭВМ 2). Раздаточный материал  – 12 шт. Н.Г. Волченков «Программирование на Visual Basic 6.0 » С.Н Лукин «Самоучитель работы на Visual Basic 6.0» Вид занятия:  комбинированное – 1ч. План занятия: 1. Организационный момент 2. Изложение новой темы 3. Закрепление темы 4. Практическая работа 5. Отчет по работе 6. Д/з Х О Д   У Р О К А . – – – 10 – –   2 20 10 2   1 – 1. Организационный момент (Приветствие, проверка посещаемости, объявление целей и задач урока)  20 2. Изложение новой темы –   2 – Многострочная  форма синтаксиса условного оператора более сложная. Вот синтаксис многострочного оператора If: If условие Then операторы операторы ……………. [ ElseIf условие Then операторы операторы ……………. ] ……………………….…. [ Else операторы операторы……………. ] End If Частей ElseIf может быть сколько угодно или совсем не быть. Часть Else, если она есть, то  одна и стоит последней. Имейте в виду, что у вас нет права объединять строки многострочного оператора If, например, так: If условие Then операторы ElseIf операторы Не нужно переносить слова Then, ElseIf и другие например, так: If условие Then операторы ElseIf операторы Вспомним недавнюю задачу: Если a не равно 10 выполнить операторы b=5 и Print b,  а в противном случае ­ операторы b=1,a=b+15 и с=0. Вот однострочный оператор If,  решающий эту задачу: If a <> 10 Then b=5 : Print b Else b=1 : a=b+15 : с=0 Однако, часто количество операторов после Then и Else бывает гораздо большим, да и сами эти операторы бывают гораздо более сложными и длинными. В этом случае строка  становится неудобочитаемой, да и вообще не умещается на экране. Для таких случаев  создан многострочный (или блочный) оператор If. Вот как решается наша задача с его  помощью: If a <> 4 Then b=3 Print b Else b=0 a=b+5 с=0 End If Конструкция End If означает просто, что в этом месте оператор If заканчивается. Часть Else может и отсутствовать. Например, If a <> 4 Then b=3 Print b End If Самое замечательное в блочном If то, что здесь можно одно за другим проверять несколько условий.  Вложенные операторы If Согласно синтаксической схеме оператора If, после Then и Else может стоять любой  оператор Visual Basic, в том числе и If. Решим задачу: Попади в цель. В компьютер вводится число (это будет мишень). Если  оно находится в интервале от 28 до 30, то напечатать текст ПОПАЛ, иначе ­ НЕ ПОПАЛ. Сначала составим алгоритм: Введи число. Если оно меньше 28, то печатай  НЕ ПОПАЛ, в  противном случае надо еще подумать. А о чем же думать? А вот о чем: Если число меньше  30, то печатай ПОПАЛ, иначе печатай НЕ ПОПАЛ. А теперь по составленному алгоритму напишем программу: Private Sub Command1_Click() a = InputBox("Введите дальность выстрела")If a < 28 Then MsgBox ("НЕ ПОПАЛ") Else If a < 30 Then MsgBox ("ПОПАЛ") Else MsgBox ("НЕ ПОПАЛ") End If End Sub Здесь оператор If a < 30 входит в состав оператора If a < 28. Говорят, что он вложен в него. Эту же программу можно записать и без вложенного If: Private Sub Command1_Click() a = InputBox("Введите дальность выстрела") If a < 28 Then MsgBox ("НЕ ПОПАЛ") ElseIf a < 30 Then MsgBox ("ПОПАЛ") Else MsgBox ("НЕ ПОПАЛ") End If End Sub 3. Закрепление темы – 10 Задача: В компьютер вводится целое число a. •  Если a<0, то компьютер должен сказать "Число отрицательно". •  Если a=0, то компьютер должен сказать "Вы ввели нуль". •  Если a>100, то компьютер должен сказать "Число большое". •  В остальных случаях компьютер ничего не должен говорить, а только вычислить и  напечатать его квадрат. В любом случае после всего этого компьютер должен сказать "Пока". Вот программа: Private Sub Command1_Click() a = InputBox("Введите число") If a < 0 Then MsgBox ("Число отрицательно") ElseIf a = 0 Then MsgBox ("Вы ввели нуль") ElseIf a > 100 Then MsgBox ("Число большое") Else Print a ^ 2 End If MsgBox ("Пока") End Sub ElseIf переводят так ­ "иначе если". Получается вот что: Если a < 0, то ……. иначе если a  = 0, то …… иначе если a > 100, то …… Блочный If выполняется так: Сначала проверяется первое условие (a < 0). Если оно не  выполняется, то Visual Basic переходит к проверке второго условия(a = 0) и так далее.  Найдя условие, которое выполняется, Visual Basic выполняет операторы, стоящие после  его Then и на этом заканчивает работу, даже если ниже есть условия, которые тоже вы­полняются. Если не выполняется ни одно из условий, Visual Basic выполняет операторы,  стоящие за Else. 4.Практическая работа – 10 Задание1: Компьютер спрашивает пользователя, как его зовут, а затем приветствует его в  соответствии с именем. Затем спрашивает – Ты из какого города? Если из города «Семей» ­ отвечает ему – «Привет, зема» Иначе – «Добро пожаловать в город Семей» Задание 2: Видоизменить диалог с компьютером, начатый в задании 1. Пусть компьютер,  узнает возраст человека, узнав возраст,  дальнейшую беседу ведет по двум вариантам. Если возраст больше 17, то компьютер должен задать вопрос: "В каком институте ты учишься?" и получив ответ, глубокомысленно заметить "Хороший институт". Если же  возраст меньше или равен 17, то соответственно ­ "В какой школе ты учишься?" и  "Неплохая школа". После этого, каков бы ни был вариант, компьютер должен  попрощаться: "Пока!". 6.  Задание на дом Поработать   с   конспектом.   Составить     и   решить   задачу   на   условие   (Оператор   выбора. Многострочный If)  Примечание: при изучении нового материала учащиеся делают в тетрадь необходимые записи под руководством учителя. 5.6. Ступенчатая запись программы