Задания для решения на практических занятиях:
Варианты индивидуальных заданий
Образец выполнения задания
Найти значение функции в зависимости от заданного условия. Значения переменных выбрать самостоятельно.
Входными данными являются переменные a, b и x.
Выходными данными – значение Y.
На форме спроэктированы следующие элементы управления:
Label (Введите a, Введите b, Введите x, Ответ Y=),
TextBox (для ввода и вывода данных),
CommandButton (Вычислить, Выход).
При проектировании данной формы использованы свойства элементов управления:
Alignment - для выравнивания текста,
Caption (для элементов управления Label, CommandButton),
Text (для элемента TextBox)– для подписи,
Font – для изменения размера и начертания шрифта.
Программный код:
Dim a As Single, b As Single, x As Single, Y As Single
Private Sub Command1_Click()
If IsNumeric(Text1)=True And IsNumeric(Text2)=True And IsNumeric(Text3)=True Then
a = Text1.Text
b = Text2.Text
x = Text3.Text
' Вычисление
If x > 0 And x < 3 And a > 0 And b > 0 Then
Y = (a * x + b * x) ^ (1 / 3) * Exp(Log(x) / Log(10))
ElseIf x > -5 And x <= 0 And a < 0 And b > 0 Then
Y = a ^ b * x ^ 2 + b * x
Else
Y = a ^ 2 * b ^ 2 * x
End If
Text4.Text = Y
Else
MsgBox " Ошибка! Повторите ввод"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
Exit Sub
End Sub
Private Sub Command2_Click()
End
End Sub
Результат выполнения программы:
2-й вариант решения задачи – с использованием диалоговых окон
Dim a As Single, b As Single, x As Single, Y As Single
Private Sub Form_Load()
a = InputBox("Введите значение à")
b = InputBox("Введите значение b")
x = InputBox("Введите значение x")
' Вычисление
If x > 0 And x < 3 And a > 0 And b > 0 Then
Y = (a * x + b * x) ^ (1 / 3) * Exp(Log(x) / Log(10))
ElseIf x > -5 And x <= 0 And a < 0 And b > 0 Then
Y = a ^ b * x ^ 2 + b * x
Else
Y = a ^ 2 * b ^ 2 * x
End If
MsgBox "Ответ Y= " & Y
End Sub
Задание 3
Циклический вычислительный процесс
3.1. Простые циклы
Найти значение суммы или произведения. Значения переменных выбрать самостоятельно.
Задания для решения на практических занятиях:
2.
Варианты индивидуальных заданий
3.2. Вложенные циклы
Найти значение суммы или произведения. Значения переменных выбрать самостоятельно.
Задания для решения на практических занятиях:
Варианты индивидуальных заданий
Образец выполнения задания
Вычислить
1) простой цикл:
2)
вложенный цикл:
Значения переменных выбрать самостоятельно.
Входными данными являются переменные a, n.
Выходными данными – значение Y.
На форме спроэктированы следующие элементы управления:
Label (Введите a, Введите n, Y=, Исходный данные, Результат),
TextBox (для ввода и вывода чисел),
CommandButton (Найти Y, Выход),
OptionButton (Простой цикл, Вложенный цикл)
При проектировании данной формы использованы свойства элементов управления:
Alignment - для выравнивания текста,
Caption (для элементов управления Label, CommandButton, OptionButton),
Text (для элемента TextBox),
Font – для изменения размера и начертания шрифта,
ForeColor - для изменения цвета шрифта.
Программный код:
Dim a As Single, Y As Single, n As Integer, k As Integer
Dim i As Integer, f As Long
Private Sub Form_Load()
Option1.Value = True
End Sub
Private Sub Option1_Click()
Text3.Text = ""
Label7.Visible = False
End Sub
Private Sub Option2_Click()
Text3.Text = ""
Label7.Visible = False
End Sub
Private Sub Command1_Click()
Label7.Visible = False
If IsNumeric(Text2) = True And IsNumeric(Text1) = True Then
n = Text2.Text
a = Text1.Text
If n < 0 Or n <> Int(n) Then
Label7.Visible = True
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
'Exit Sub
Else
If Option1.Value = True Then
Y = 0
For k = 0 To n
Y = Y + (k ^ 2 - k + 1) / (k + 4)
Next
Y = a - Y
Text3.Text = Y
End If
If Option2.Value = True Then
Y = 1
For k = 1 To n
f = 1
For i = 1 To k
f = f * i
Next
Y = Y * (f + a ^ 2)
Next
Text3.Text = Y
End If
End If
Else
MsgBox " Вы ввели не число!""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
Exit Sub
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Результат выполнения программы:
Вслучае некорректности введенных данных появляется диалоговое окно «Вы ввели не число!» или появляется надпись «Некорректные данные», если n введено отрицательным числом или не целым.
В случае правильности введенных данных получаем результаты в зависимости от установки переключателя (Простой или Вложенный циклы)
