Определить и напечатать минимальную по модулю разницу между значениями двух функций - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д