Часть ii. самостоятельная работа

Алгоритмизация и программирование разветвляющихся вычислительных процессов

Цель:

Изучить процесс построения алгоритмов разветвляющейся структуры. Научиться программировать разветвляющиеся алгоритмы с помощью операторов If…Then…Else и оператора Select Case….

Результат обучения:

После успешного завершения занятия пользователь должен:

oуметь составлять алгоритмы разветвляющейся структуры;

oзнать синтаксис операторов If…Then…ElseиSelect Case;

oуметь записывать алгоритмы разветвляющейся структуры на языке VB;

Часть I. Изучение правил построения алгоритма разветвляющейся структуры и записи программы с использованием оператора If…Then…Else.

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

Для программирования проверки условия и выбора действия в зависимости от условия используются условные операторы.

Условный оператор:

IfThen

Else

End If

Если логическое выражение имеет значение True, то выполняется . Если логическое выражение имеет значение False, то выполняется .

Под обозначениемипонимается последовательность операторов языка VB.

Условный оператор может использоваться без части Else. В этом случае реализуется структура «развилка неполная».

IfThen

Процесс

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 Ifsp Then ‘Оператор, исполняемый в случае, если‘логическое выражение имеет значение True Label4.Caption = Суммабольше Else ‘Оператор, исполняемый в случае, ‘если логическое выражение имеет значение True Label4.Caption = Произведениебольше End If End Sub

Пример 2.

Условие задачи:

Даны два числа X и Y. Вычислить квадратные корни данных чисел, если оба значения больше нуля, и оставить числа без изменения, если это не так.

Интерфейс программы	Программа
	PrivateSub CommandButton1_Click() Dim x AsSingle, y As Single x =Val(TextBox1.Text) y =Val(TextBox2.Text) If (x0) 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.
	Написать программу, которая сравнивает два числа,введенных с клавиатуры. Программа должна указать, какое число больше, или,если числа равны, вывести соответствующее сообщение.
	Написать программу, которая проверяет, является личетным введенное пользователем целое число.

Статьи к прочтению:

Капоэйра ESPORÃO • суровые будни часть 2 • самостоятельная работа • II группа

Похожие статьи: