Получить таблицу и найти количество отрицательных значений функции - 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

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


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

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

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