КАТЕГОРИИ:
Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)
Разветвляющийся вычислительный процесс
|
|
|
|
Найти значение функции в зависимости от заданного условия. Значения переменных выбрать самостоятельно.
Задания для решения на практических занятиях:
1. 
2. 
3. 
4. 
5. 
Варианты индивидуальных заданий
1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 
9. 
10. 
11. 
12. 
13. 
14. 
15. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
Образец выполнения задания
Найти значение функции в зависимости от заданного условия. Значения переменных выбрать самостоятельно.
1. Входными данными являются переменные a, b и x.
2. Выходными данными – значение Y.
3. На форме спроэктированы следующие элементы управления:
Label (Введите a, Введите b, Введите x, Ответ Y=),
TextBox (для ввода и вывода данных),
CommandButton (Вычислить, Выход).
При проектировании данной формы использованы свойства элементов управления:
Alignment - для выравнивания текста,
Caption (для элементов управления Label, CommandButton),
Text (для элемента TextBox)– для подписи,
Font – для изменения размера и начертания шрифта.
4. Программный код:
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
5. Результат выполнения программы:
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
|
|
|
|
|
Дата добавления: 2017-02-01; Просмотров: 84; Нарушение авторских прав?; Мы поможем в написании вашей работы!