Определить и напечатать минимальную по модулю разницу между значениями двух функций - VB

Узнай цену своей работы

Формулировка задачи:

помогите пожалуйста лабораторная №4 вариант 24

Решение задачи: «Определить и напечатать минимальную по модулю разницу между значениями двух функций»

textual
Листинг программы
Private Sub Command1_Click()
Dim a!(), n&, x!, k&, y!
n = (6.5 - 0.5) / 0.5 + 1
ReDim a(1 To n)
For i = 0.5 To 6.5 Step 0.5
 k = k + 1
 a(k) = Abs(1 - Sqr(Abs(Cos(i))) + 5 * i - Sin(i) + 3)
 Print a(k); i
Next i
Print
 
y = a(1): x = 0.5
For i = 2 To n
 If a(i) < y Then y = a(i): x = i / 2
Next i
 
Print y; x
 
End Sub

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


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

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

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