Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 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 F, n As Integer n = Val(InputBox("Введіть n")) F = 1 For i = 1 To n F = F * i Next i Text1 = F Text2 = n End Sub   Private Sub Command2_Click() End End Sub   Результат виконання програми:

 

 

Обчислити суму доданків

Програмний код:

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






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных