На отрезке [1,5; 3,91] с шагом h=0,4 вычислить и округлить до 0,1 функцию - VB
Формулировка задачи:
На отрезке [1,5; 3,91] с шагом h=0,4 вычислить и округлить до 0,1 функцию y=7cos(5x+k)-2sin6x. Найти наибольшее sin(xy).
Решение задачи: «На отрезке [1,5; 3,91] с шагом h=0,4 вычислить и округлить до 0,1 функцию»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim a(13) As Double Dim x, y, k, max As Double Randomize k = Int(100 * Rnd) max = 0 For x = 1.5 To 3.91 Step 0.1 y = 7 * Cos(5 * x + k) - 2 * Sin(6 * x) If Sin(y * x) > max Then max = Sin(y * x) Print "Значение " & max Next x Print Print "Наибольшее sin(xy) " & max End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д