Получить таблицу и найти количество отрицательных значений функции - VB
Формулировка задачи:
Получить таблицу и найти количество отрицательных значений функции
f(x) =
при изменении x на отрезке [-2;2] с шагом h=0.01
Не подскажите правильно ли?
Решение задачи: «Получить таблицу и найти количество отрицательных значений функции»
textual
Листинг программы
Private Sub cmdStart_Click() Dim fXn As Single Dim fYn As Single Dim sTemp As String Dim iNegY As Integer ' sTemp = "" iNegY = 0 For fXn = -2 To 2.01 Step 0.01 fYn = fFX(fXn) sTemp = sTemp + "X=" + Trim$(Str$(fXn)) + " Y=" + Trim$(Str$(fYn)) sTemp = sTemp + Chr$(13) + Chr$(10) If fYn < 0 Then iNegY = iNegY + 1 End If Next fXn sTemp = sTemp + Chr$(13) + Chr$(10) sTemp = sTemp + Chr$(13) + Chr$(10) sTemp = sTemp + "Количество отрицательных значений функции " + Trim$(Str$(iNegY)) sTemp = sTemp + Chr$(13) + Chr$(10) txtResult.Text = sTemp End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д