|
|
Пример 4.4.2-1. Написать процедуры ввода/вывода, которые будут использоваться в алгоритмах разветвляющихся структур.Требуемыми процедурами являются процедуры vvodDbl1() и Процедуры vvodDbl1(), vivodDbl1(), vvodSng3() и vivodSng3() приведены в Теме 4.4.3, а процедуры vvodInt4() и vivodInt4() представлены на рис. 4.4.2-1 и 4.4.2-2.
Рис. 4.4.2-1. Процедура ввода данных типа Integer из поля TextBox
Рис. 4.4.2-2. Процедура вывода данных типа Integer в TextBox Пример 4.4.2-2. Дополнить проект Пример 3.4-3 из Темы 3, предусмотрев в нем проверку исходных данных. По результату проверки исходных данных программа должна выдавать предупреждающее сообщение, если вводятся значения сторон треугольника, при которых треугольник не существует.
Рис. 4.4.2-3. Процедура PsPR()Проекта 3.4-3
Для того чтобы можно было построить треугольник, необходимо и достаточно выполнения следующих неравенств (A, B, С – длины сторон треугольника, & – операция логического умножения): Открыть проект Пример 3.4-3 и внесите изменения в процедуру,
Рассмотрим конструкцию Select Case. Конструкция Select Case аналогична конструкции If...Then, но она более эффективна в тех ситуациях, когда ветвление зависит от одной ключевой переменной. Оператор Select Case позволяет осуществить разветвление по любому фиксированному числу ветвей. Он имеет следующий формат:
Здесь выражение – арифметическое или строковое, а тестi может иметь следующую форму:
Например, Case могут содержать следующие тесты:
В последнем примере через запятую перечисляются несколько тестов, при этом результат проверки выражения считается истинным, если выполняется, хотя бы один тест. Порядок выполнения оператора Select Case следующий: если значение выражения удовлетворяет тесту, расположенному после конструкции Case, то выполняется данный блок_операторов, а затем управление передается оператору, следующему после конструкции End Select. В противном случае проверяется следующий тест и так далее. Все конструкции Select Case работают аналогично. Блок_операторов, расположенный после Case Else, выполняется в том случае, если последовательные проверки всех тестов выше дали значение False (т.е. ни один тест не выполнился). Оператор имеет следующие особенности: тест1, тест2 и так далее должны быть последними в строке, а конструкция Case Else должна быть единственной в строке. Следующий пример показывает, как работает конструкция Select Case
используется в программе для вывода нужного сообщения о возрасте и культурных вехах в жизни человека. Если переменная Age содержит значение 18, то в свойство Text объекта надписи записывается строка «Теперь Вы можете участвовать в выборах!». Также конструкция Select Case поддерживает оператор Case Else, который может использоваться для отображения сообщений, если ни одно из предшествующих значений не совпадает со значением переменной Аgе.
Чтобы включить в конструкцию Select Case диапазон проверяемых значений, можно использовать операции отношения =, <>, >, <, >= и <=. Чтобы использовать операции отношения, требуется включить в оператор ключевое слово Is или ключевое слово То, определяющие производимое сравнение. Ключевое слово Is говорит компилятору о том, что требуется сравнить переменную с выражением, указанным после ключевого слова Is. Ключевое слово То определяет диапазон значений. Следующая конструкция использует Is, То и несколько операций отношения для того, чтобы проверить значение переменной Age и отобразить одно из пяти сообщений:
Если значение переменной Аgе меньше 13, отображается сообщение «Наслаждайтесь детством!». Для возраста от 13 до 19 лет отображается сообщение «Наслаждайтесь юностью!» и так далее. Условная конструкция Select Case обычно гораздо яснее, чем конструкция If...Then, и более эффективна, в случае если в зависимости от значения или свойства переменной следует образовать три или более ветвей программы. Однако, когда делается два или менее сравнений или, когда используется несколько различных значений, то лучше использовать условную конструкцию If...Then. В следующем примере вы увидите, как использовать структуру Select Case для обработки ввода из поля списка. Для получения ввода будут использоваться свойства ListBox1.Text и ListBox1.Selected.IndexChanged, а затем для отображения приветствия на одном из четырех языков будет использоваться конструкция Select Case.
  ЧТО ПРОИСХОДИТ ВО ВЗРОСЛОЙ ЖИЗНИ? Если вы все еще «неправильно» связаны с матерью, вы избегаете отделения и независимого взрослого существования...  Конфликты в семейной жизни. Как это изменить? Редкий брак и взаимоотношения существуют без конфликтов и напряженности. Через это проходят все...  ЧТО ТАКОЕ УВЕРЕННОЕ ПОВЕДЕНИЕ В МЕЖЛИЧНОСТНЫХ ОТНОШЕНИЯХ? Исторически существует три основных модели различий, существующих между...  Что будет с Землей, если ось ее сместится на 6666 км? Что будет с Землей? - задался я вопросом... Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:
|