Page 86 - 4788

Знайти максимальне значення функції y = 3 * Sin(x + 2.6)
Private Sub Command1_Click()
x = 0
xmax = 0
Max = 3 * Sin(x + 2.6)
For n = 0 To 10
x = 0.1 * n
y = 3 * Sin(x + 2.6)
If Max < y Then Max = y: xmax = x
Next n
Print x; y
End Sub
Контрольні запитання

1.Як створити меню форми?
2.Як знайти максимальне значення функції?

Завдання для самостійного розв’язку.

1. Протабулювати функцію y=tg(x) на відрізку [0,π] з
кроком h=0.1 і визначити середнє значення функції
2. Протабулювати функцію y=cos(x) на відрізку [0,π] з
кроком h=0.1 і визначити мінімальне значення функції на
цьому проміжку.

84