Лабораторная работа № 3 проектирование приложения, реализующего ветвящийся алгоритм
Цель: приобрести умения и навыки в создании приложений на основе ветвящихся алгоритмов.
Задачи: научиться использовать условные операторы для программирования ветвящихся алгоритмов.
Общие сведения
Для программирования ветвящихся алгоритмов используют условные операторы, которые позволяют управлять последовательностью выполнения действий в программе.
В VB существует две формы условных операторов – однострочная и блочная. Однострочная форма используется в простых случаях, когда по каждой ветке выполняется не более одного оператора, она имеет следующий синтаксис:
If <условие> Then <оператор> Else <оператор>
Если по каждой ветке вычислительного ветвящегося процесса необходимо выполнить несколько действий, тогда используют блочную форму, которая имеет вид:
If <условие> Then
<операторы 1>
Else
<операторы 2>
End If
Каждый оператор после слов Then и Else записывается в отдельной строке. Оператор If в блочной форме может имееть сокращенную форму (конструкция Else отсутствует), а также расширенную. Синтаксис расширенной формы следующий:
If <условие 1> Then
<операторы 1>
ElseIf <условие 2> Then
<операторы 2>
. . .
[Else
<операторы>]
End If
Многоточие после конструкции ElseIf означает, что конструкция может повторяться несколько раз.
Пример решения задачи Постановка задачи
Разработать приложение для вычисления процента отклонения фактического выполнения производственной программы от плана.
Экономико-математическая модель
Процент отклонения фактического выполнения производственной программы от плана вычисляется по формуле:
где Процент= Факт/План*100
Если Процент=100, то вывести сообщение «План выполнен на 100%»
Алгоритм решения задачи
Рис. 3.1. Алгоритм вычисления отклонения от плана
Решение задачи осуществляется в соответствии с приведенным алгоритмом.
Структура данных
При решении задачи используются следующие данные:
P – план, F – факт, Proc – процент, Ot – отклонение. Все значения дробные числа.
Данные план и факт являются входными и вводятся с клавиатуры в текстовые поля. Величина процент вычисляется по формуле и является промежуточной, она используется при вычислении величины отклонение. Результат решения задачи отклонение выводится с пояснительным текстом. Все сообщения формируются в переменной S строкового типа (String).
Интерфейс пользователя
Р
ешение
задачи осуществляется при помощи формы,
которая приведена на рис.
3.2. В заголовке формы указано название
приложения «Отклонение от плана».
Рис. 3.2. Форма для вычисления отклонения от плана
На форма слова План и Факт подаются надписями. Входные данные вводятся в текстовые поля. Вычисления осуществляются по нажатию кнопки Вычислить. Результат выводится в область под кнопку. В зависимости от результата вычислений может быть выдано одно из сообщений:
-
План перевыполнен на «0.00» %
-
План недовыполнен на «0.00» %
-
План выполнен на «100» %
Использованное условное обозначение «0.00» означает, что результат выводится с двумя разрядами в дробной части.
Код программы
Тело процедура, которая обрабатывает событие Щелчок по кнопке «Вычислить», приведено ниже:
' Объявляем переменные
Dim P, F, Proc, Ot As Single
Dim StrOt As String
' Преобразуем символьные выражения в числовые
P = Val(Text1.Text)
F = Val(Text2.Text)
' Вычисление процента выполнения плана
Proc=F/P*100
' Вычисление процента отклонения от плана
If Proc>100 Then
Ot=Proc-100
StOt=”План перевыполнен на” + Format(Ot,”0.00”) + ”%”
ElseIf Proc<100 Then
Ot=100-Proc
StOt=”План недовыполнен на” + Format(Ot,”0.00”) + ”%”
Else
StOt=”План выполнен на 100 %”
Endif
' Вывод сооющения
Label3.Caption = StOt
Реализация проекта
Реализация проекта осуществляется следующей последовательностью действий: