На отрезке [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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы