Visual Basic FAQ

Построения таблицы значений X и Y

Составить программу для построения таблицы значений X и Y для функции Y=X^3-e^(2*X-1) при изменении X в диапазоне от -5 до 5 с шагом 0.31 В колонках должны быть n, x, y>0, y<0 где n – номер по порядку.

Private Sub Command1_Click()
    Dim x0 As Double
    Dim xn As Double
    Dim h As Double
    h = 0.31
    x0 = -5
    xn = 5
    Dim x As Double
    Dim n As Integer
    x = x0
    n = 1
    Do While Not x > xn
    y = x ^ 3 - Exp(2 * x - 1)
    'Вывод куда-нить n, x, y
    List1.List(n - 1) = "n = " + CStr(n) + "    " + "x(n) = " + CStr(Round(x, 3)) + "    " + "y(n) = " + CStr(Round(y, 3))
    x = x + h
    n = n + 1
    Loop
End Sub

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