Алгоритмизация и программирование разветвляющихся вычислительных процессов
Цель:
Изучить процесс построения алгоритмов разветвляющейся структуры. Научиться программировать разветвляющиеся алгоритмы с помощью операторов If…Then…Else и оператора Select Case….
Результат обучения:
После успешного завершения занятия пользователь должен:
o уметь составлять алгоритмы разветвляющейся структуры;
o знать синтаксис операторов If…Then…Else и Select Case;
o уметь записывать алгоритмы разветвляющейся структуры на языке VB;
Часть I. Изучение правил построения алгоритма разветвляющейся структуры и записи программы с использованием оператора If…Then…Else.
Алгоритм решения задачи, как правило, представляет собой совокупность стандартных алгоритмических структур. Одной из таких структур является развилка (полная и неполная). Разветвление применяется, когда в зависимости от условия нужно выполнить либо одно, либо другое действие.
Для программирования проверки условия и выбора действия в зависимости от условия используются условные операторы.
Условный оператор:
If < логическое выражение > Then
< Процесс 1 >
Else
< Процесс 2 >
End If
Если логическое выражение имеет значение True, то выполняется <Процесс 1>. Если логическое выражение имеет значение False, то выполняется < Процесс 2>.
Под обозначением < Процесс 1> и < Процесс 2> понимается последовательность операторов языка VB.
Условный оператор может использоваться без части Else. В этом случае реализуется структура «развилка неполная».
If < логическое выражение > Then
< Процесс >
End If
Если логическое выражение имеет значение True, то выполняется оператор, стоящий за служебным словом Then, иначе осуществляется переход к оператору, следующему за условным оператором.
Пример 1.
Условие задачи:
Даны числа X, Y, Z. Определить, что больше: сумма этих чисел или их произведение.
Схема алгоритма:
| Интерфейс программы | Программа |
| Private Sub CommandButton1_Click() Dim x As Single, y As Single, z As Single Dim s As Single, p As Single x = Val(TextBox1.Text) ‘ Ввод исходной информации y = Val(TextBox2.Text) z = Val(TextBox3.Text) p = x * y * z s = x + y + z If s > p Then ‘Оператор, исполняемый в случае, если ‘логическое выражение имеет значение True Label4.Caption = "Сумма больше" Else ‘Оператор, исполняемый в случае, ‘если логическое выражение имеет значение True Label4.Caption = "Произведение больше" End If End Sub |
Пример 2.
Условие задачи:
Даны два числа X и Y. Вычислить квадратные корни данных чисел, если оба значения больше нуля, и оставить числа без изменения, если это не так.
| Интерфейс программы | Программа |
| Private Sub CommandButton1_Click() Dim x As Single, y As Single x = Val(TextBox1.Text) y = Val(TextBox2.Text) If (x > 0) And (y > 0) Then x = Sqr(x)’ Развилка неполная y = Sqr(y) End If Label5.Caption = "X=" + Str(x) Label4.Caption = "Y=" + Str(y) End Sub |
Часть II. Самостоятельная работа
Задание:
Составить схему алгоритма, написать и отладить программу в соответствии с вариантом. Не забывайте о комментариях!
| № варианта | Задача |
| Даны X, Y, Z. Получить минимальное из этих чисел. | |
| Даны три числа. Возвести в квадрат те из них, значения которых неотрицательны. | |
| Заданы площади круга R и квадрата S. Определить, поместится ли квадрат в круге.. | |
| Определить, является возраст вступающего в брак подходящим для выбранной кандидатуры, используя следующее соображение: возраст девушки равен половине возраста мужчины плюс 7. | |
| Если сумма трех попарно различных чисел X, Y, Z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других, в противном случае оставить числа неизменными. | |
| Даны два числа X, Y. Меньшее заменить суммой этих чисел, большее — их разностью. | |
| Даны два числа X, Y. Определить, входит ли большее число в интервал [10; 20]. | |
| Дано число Х. Вывести сообщение: число положительное, отрицательное или ноль. | |
| На плоскости расположена окружность радиуса R с центром в начале координат. Заданы координаты точки Х, Y. Определить лежит ли она на окружности. Примечание: уравнение окружности — R2 = X2 + Y2 | |
| Создать программу расчета площади кольца. Даны радиусы внешней и внутренней окружностей. Организовать проверку радиусов окружностей. Радиус внешней окружности должен быть больше, чем радиус внутренней окружности. Если это условие не выполняется, то необходимо вывести соответствующее сообщение. | |
| Создать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 рублей. | |
| Написать программу проверки знания начала второй мировой войны. В случае неверного ответа пользователя программа должна выводить правильный ответ. | |
| Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100. | |
| Написать программу, которая сравнивает два числа, введенных с клавиатуры. Программа должна указать, какое число больше, или, если числа равны, вывести соответствующее сообщение. | |
| Написать программу, которая проверяет, является ли четным введенное пользователем целое число. |