Описание выполнения Задания 2.
Название работы: Задание 2.
Тема задания: “Разветвляющиеся вычислительные процессы”.
Цель задания: Освоение методов программирования решения задач, требующих выполнения разных участков алгоритма в зависимости от истинности или ложности некоторого условия. Ознакомление с логическим типом данных, операциями отношений, логическими функциями и формами условного оператора и оператора выбора.
Условие задания: Составить программу вычисления функции:
Y = 2*x – (x + 3)/25, если x > 0 и x < 5;
Y = sin(x) + x^2/cos(x), если x < 0 и x > -1.75.
Напечатать: При x = … функция вычислялась по формуле: …
Получен результат: y = … .
На чистой дискете создаем папку под названием Задание2.
Открываем новый проект. На форме располагаем 5 меток, 3 текстовых окна и 2 командные кнопки. В окне свойств задаем свойства формы в соответствии с таблицей:
Таблица свойств формы frmZ2r и расположенных на ней
элементов управления.
-
Объект
Свойство
Значение свойства
Форма
Name
Caption
frmZ2r
Разветвляющиеся вычислительные процессы
Метка
Name
Caption
Alignment
Font
Label1
“ Условие задачи: “
2-по центру
Times New Roman, жирный,
Размер 16
Метка
Name
Caption
Alignment
Font
Label2
Задается в процедуре загрузки формы
2-по центру
Times New Roman, нормальный, размер 12
Метка
Name
Caption
Alignment
Font
Label3
“При x = “
1-правая привязка
Times New Roman, нормальный, размер 12
Метка
Name
Caption
Alignment
Font
Label4
“функция вычислялась по формуле: “
1 -правая привязка
Times New Roman, нормальный, размер 12
Метка
Name
Caption
Alignment
Font
Label5
“Получен результат:”
1-правая привязка
Times New Roman, нормальный, размер 12
Текстовое окно
Name
Alignment
Font
Text1
0-левая привязка
Times New Roman, нормальный, размер 12
Текстовое окно
Name
Alignment
Font
Text2
0-левая привязка
Times New Roman, нормальный, размер 12
Текстовое окно
Name
Alignment
Font
Text3
Times New Roman, нормальный, размер 120-левая привязка
Командная кнопка
Name
Caption
Font
Command1
“Решить”
Times New Roman, нормальный, размер 12
Командная кнопка
Name
Caption
Font
Command2
“Выход”
Times New Roman, нормальный, размер 12
Расчетные соотношения:
Y = 2&x - *x + 3)/25, еcли x > 0 и x < 5
Y = sin(x) + x^2/cos(x), если x < 0 и x > -1.75
Таблица используемых идентификаторов.
Идентификатор |
Тип прораммного объекта |
Тип данного |
Значение |
Физический смысл |
x |
переменная |
Single |
вводится |
исходное данное |
Y |
переменная |
Single |
вычисляется |
результат |
Вид формы frmZ2r:
Процедуры формы frmZ2r:
Private Sub Form_Load()
Label2 = " Найти значение Y для заданного x, если:" & vbCrLf & _
" Y = 2*x - (x + 3) / 25 при x > 0 и x < 5" & vbCrLf & _
" Y = Sin(x) + x ^ 2 / Cos(x) при x < 0 и x > -1.57"
Label3 = "При x = "
Label4 = "функция вычислялась по формуле "
Label5 = "Получен результат Y = "
Text1 = "": Text2 = "": Text3 = ""
End Sub
Private Sub Command1_Click()
Dim x As Single, y As Single
x = InputBox("Введите значение x")
Text1 = Str(x)
If (x > 0) And (x < 5) Then
y = 2 * x - (x + 3) / 25
Text2 = "y = 2*x - (x + 3) / 25)"
Text3 = Str(Format(y, "Fixed"))
ElseIf (x < 0) And (x > -1.57) Then
y = Sin(x) + x ^ 2 / Cos(x)
Text2 = "y = Sin(x) + x ^ 2 / Cos(x)"
Text3 = Str(Format(y, "Fixed"))
Else
Text2 = "Функция не определена"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Сохраняем проект в заранее созданной папке Задание_2 на дискете. Переходим в эту папку и запускаем проект на выполнение. Щелкаем на кнопке “Решить” и наблюдаем результат решения задачи. Щелкаем на кнопке “Выход” для завершения работы приложения.
Аналогично Заданию 1 добавляем к проекту форму-заставку с именем frmZ2z. Для ее командной кнопки процедура должна иметь вид:
Private Sub Command1_Click()
frmZ2z.Hide
frmZ2r.Show
End Sub
Задание2 полностью выполнено. Запускаем его на выполнение.
Для защиты задания № 2 нужно в тетради оформить отчет о его выполнении и ответить на вопросы преподавателя. В отчете должно быть представлено:
1. Название работы (Задание2), тема, цель работы.
2. Нарисованное от руки изображение формы с расположенными на
ней элементами управления.
3. Сводная таблица использованных свойств формы и элементов
управления.
4. Таблица используемых в приложении идентификаторов.
5. Коды процедур для формы. Для данного задания все они приведены
выше.
Вид рабочей формы с результатом решения задачи Задания №2.
Для того, чтобы защитить данную работу необходимо знать ответы на
следующие вопросы:
Назначение формы и каждого расположенного на ней элемента управления.
Что такое свойство объекта, и какими способами можно задать значения свойств?
Что такое переменная, и какие типы данных существуют в VB?
Что такое событие, и какие основные события связаны с формой и использованными элементами управления?
В чем заключается процесс разработки пользовательского интерфейса проекта?
Что такое процедура обработки события и как она записывается?
Определение оператора и назначение операторов Dim и присваивания значений переменным и свойствам объектов.
Как открыть новый проект и каковы этапы процесса его сохранения.
Какой тип данных соответствует логической переменной и как она объявляется?
Какие операции отношения существуют в VB?
Какие логические функции существуют в VB?
Каково назначение условного оператора и какие формы он может принимать?
Какие операторы могут быть вложенными в однострочный условный оператор?
Какие операторы могут быть вложенными в многострочный условный оператор?
Для чего предназначен оператор выбора, в чем его отличия от условного оператора и какие формы он может принимать?
Желаю успешной защиты Задания 2!