Visual Basic FAQ

Вычислить наибольшие значения Y(i) если B(i) задано массивом

Private Sub CommandButton1_Click()
  Rem "Задача 1.135"
  'Объявляем массивы
  Dim B(1 To 10) As Single
  Dim Y(1 To 40) As Single
  Dim C(1 To 10) As Single
  'Объявляем переменные
  Dim x As Single, j As Integer, i As Integer, Ymax As Single

  'Заполняем массив B случайными числами
  For i = 1 To 10
    B(i) = Int(((Rnd * (-20)) + 10))
    ListBox3.AddItem ("B(" + Str(i) + ")=" + Str(B(i)))
  Next i

  'Считаем значения функций для каждого элемента массива B
  For i = 1 To 10
    x = -2
    j = 1 'Счетчик для массива Y
    Do While x < = 2
      Y(j) = 2 * Exp(B(i) * x - 5 * x ^ 2)
      ListBox2.AddItem ("Y(" + Str(i) + ")=" + Format(Y(j), "Scientific") + "   x=" + Format(x, "0.00"))
      x = x + 0.1
      j = j + 1
    Loop

    'Ищем максимальный элемент в массиве Y
    Ymax = Y(1)
    For j = 1 To 40
      If Y(j) > Ymax Then Ymax = Y(j)
    Next j
    'Записываем этот элемент в массив
    C(i) = Ymax
    ListBox1.AddItem ("Ymax=" + Format(Ymax, "Scientific") + "   x=" + Format(x, "0.00"))
  Next i

End Sub

Запись опубликована on 21.02.2010 at 15:38 и размещена в рубрике: Арифметика. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.