У вас вопросы?
У нас ответы:) SamZan.net

X MSFlexGrid1.TextMtrix0 1

Работа добавлена на сайт samzan.net: 2016-03-05

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

Dim x() As Single, y() As Single, k() As Single, z() As Single, p() As Single

Private y(0) As Single

Private x0 As Single

Private xk As Single

Private C As Single

Function f(t As Single, q As Single) As Single

f = (q+1)/t

End Function

Private Sub Command1_Click()

x0 = Val(Text1.Text)

xk = Val(Text2.Text)

y(0) = Val(Text4.Text)

h = Val(Text3.Text)

p(0) = y(0)

z(0) = y(0)

n = Round((xk - x0) / h)

C = (y(0) +1)/x0

MSFlexGrid1.Rows = n + 2

MSFlexGrid1.TextMatrix(0, 0) = "X"

MSFlexGrid1.TextMatrix(0, 1) = "P"

MSFlexGrid1.TextMatrix(0, 2) = "Yэ"

MSFlexGrid1.TextMatrix(0, 3) = "Yэм"

Max = y(0)

Min = y(0)

For i = 0 To n

x(i) = x0 + i * h

p(i) = Round(C * (x(i)-1), 3)

y(i + 1) = Round(y(i) + f(x(i), y(i)) * h, 3)

z(i + 1) = Round(z(i) + f(x(i) + h / 2, z(i) + h / 2 * f(x(i), z(i))) * h, 3)

If y(i) > Max Then Max = y(i)

If y(i) < Min Then Min = y(i)

MSFlexGrid1.TextMatrix(i + 1, 0) = Str(x(i))

MSFlexGrid1.TextMatrix(i + 1, 1) = Str(p(i))

MSFlexGrid1.TextMatrix(i + 1, 2) = Str(y(i))

MSFlexGrid1.TextMatrix(i + 1, 3) = Str(z(i))

Next i

Picture1.Cls

kx = (Picture1.Width - d) / (xk - x0)

ky = (Picture1.Height - e) / (Max - Min)

Label4.Caption = Str(Min)

Label5.Caption = Str(Max)

Label6.Caption = Str(x0)

Label7.Caption = Str(xk)

For i = 0 To n - 1

z1 = Round(a + (x(i) - x0) * kx)

z2 = Round(b - (y(i) - Min) * ky)

z3 = Round(a + (x(i + 1) - x0) * kx)

z4 = Round(b - (y(i + 1) - Min) * ky)

z5 = Round(b - (p(i) - Min) * ky)

z6 = Round(b - (p(i + 1) - Min) * ky)

z7 = Round(b - (z(i) - Min) * ky)

z8 = Round(b - (z(i + 1) - Min) * ky)

Picture1.Line (z1, z7)-(z3, z8)

Picture1.Line (z1, z5)-(z3, z6)

Picture1.Line (z1, z2)-(z3, z4)

Next i

End Sub

Private Sub Command2_Click()

End

End Sub





    Конец

Line (z1, z2)-(z3, z4)

z5 = (b - (p(i) - Min) * ky)

4 = (b - (y(i + 1) - Min) * ky)

Line (z1, z5)-(z3, z6)

ky)

Line (z1, z7)-(z3, z8)

ky)

z8 = (b - (z(i + 1) - Min) * ky)

z7 = (b - (z(i) - Min) * ky)

z6 = (b - (p(i + 1) - Min) * ky)

z3 = (a + (x(i + 1) - x0) * kx)

z2 = (b - (y(i) - Min) * ky)

z1 = a + (x(i) - x0) * kx

i = 0 to n-1

ky = (Picture1.Height - e) / (Max - Min)

kx = (Picture1.Width - d) / (xk - x0)

Шаблон графика

 Min = Y(i)

Y(i)<min

 Max = Y(i)

Y(i)>max

    min, max, x0, xk

3

2

1

3

2

1

z(0)=y(0)

p(0)=y(0)

c=(y(0)+1)/x0

n = (xk – x0)/h

x0, xk, y(0), h

    Начало

                                                   i = 0 to n

Min = F(x0,y0)

Max = F(x0,y0)

z(i + 1) =(z(i) + F(x(i) + h / 2, z(i) + h / 2 * F(x(i), z(i))) * h)

y(i + 1)=(y(i) + F(x(i), y(i)) * h)

p(i) =(C * (x(i)-1))

x(i) = x0 + i*h




1. тематика спілкування Мовна компетенція Читання
2. курсова робота Шляхи особистісного росту у підлітків Підготувала- студентка ІІІ курсу 2 групи прир
3. ОПРЕДЕЛЕНИЕ ПЛОТНОСТИ ТВЕРДОГО ТЕЛА ПРАВИЛЬНОЙ ФОРМЫ Принадлежности- тело цилин
4. роскошных синтезов.html
5. вариантов поэмы Лермонтов нарисовал яркий образ портрет Кавказа из совокупности экзотических пейзажей
6. на тему Планирование повышения социальноэкономической эффективности производства Содержание Вве
7. реферату- Диявольська спокуса розумуРозділ- Твори шкільні Диявольська спокуса розуму Будьте тверезi пиль
8. Инженерно-геологические изыскания для определения характеристик грунтов и оснований
9. б~л- - ~ажеттіліктерді ~ана~аттандыруды~ м~мкін еместігі - индустриалды~ ж~йені
10. КОНТРОЛЬНАЯ РАБОТА по социологии Вариант 8 Основные направления объективного подхода к анализу общест