2 Декабрь 2009

Выполнить табулирование функции f(x) на интервале [a, b] с шагом H для m точек

Задачи |  Таги: , , , ,

Выполнить табулирование функции f(x) на интервале [a, b] с шагом H для m точек

Private Sub Command1_Click()
Dim t, A, B, i, H, m, y As Long
t = Val(Text1.Text)
A = Val(Text2.Text)
H = Val(Text3.Text)
m = Val(Text4.Text)
B = A + (m - 1) * H
For i = A To B Step H
If i >= -t Then y = i / t Else y = 1 / (i + t)
Print "при A="; A; Tab; "y="; y
Next i
End Sub

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



Оставить комментарий

Я не робот.