ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Завдання до лабораторної роботи(див. додаток) Приклад виконання лабораторної роботи:
Обчислити значення функції Результати вивести у вигляді таблиці, у першому стовпчику якої розміщується значення аргументу x, у другому – значення функції y. Така дія для обчислення значення функції при зміні аргументу називається табулюванням функції. Програмний код:
Private Sub Command1_Click() Dim x, y As Single For x = -3.5 To 2.3 Step 0.6 If x < 0 Then y = x ^ 2 ElseIf x >= 0 And x <= 1 Then y = Sin(x) Результат виконання програми: Else y = Sqr(Abs(x ^ 2 - 4.9)) End If Print x, y Next x End Sub
Private Sub Command2_Click() End End Sub
Обчислити значення факторіала n!, де n=9.
Обчислити суму доданків Програмний код: Private Sub Command1_Click() Dim s, i As Integer s = 0 For i = 1 To 8 s = s + 1 / (i + 1) Next i Text1 = Format(s, "0.000") End Sub Private Sub Command2_Click() End End Sub Результат виконання програми:
Обчислити добуток множників Програмний код: Private Sub Command1_Click() Dim k As Integer Dim p As Single p = 1 For k = 1 To 7 p = p * 1 / k Next k Text1 = p End Sub
Private Sub Command2_Click() End End Sub
Результат виконання програми:
Обчислити суму Обчислення припинити, коли . Вивести обчислену суму та кількість доданків. Програмний код з використанням While:
Private Sub Command1_Click() Dim k, n As Integer Dim s As Single eps = Val(Text1) k = 1 s = 0 Do While 1 / k > eps s = s + 1 / k k = k + 1 Loop n = k - 1 Text2 = s Text3 = n End Sub Private Sub Command2_Click() End End Sub Не нашли, что искали? Воспользуйтесь поиском:
|