Basic 6.0.
. MS Visual Basic 6.0 для професіоналів. Мікаел Хальворсон. ЕКОМ 2001
. Інформатика. Вища школа. Острейковскій В. А. 2000
. informatic.ugatu.ic.ru - офіційний сайт кафедри інформатики УГАТУ, відділ дистанційної допомоги студентам з написання курсових робіт.
Додаток
Код програми обчислення площі
Dim x As Doublea As Doubleb As DoubleSub Command1_Click (). Cls
a = Val (Text1) = Val (Text2) = Val (Text3) Option1.Value Then
h = (b - a)/n = 0 = ai = 0 To n - 1
y = f (x) = s + y = x + h
D = s * hIfOption2.Value Then
h = (b - a)/n = 0 = ai = 1 To n - 1 = x + h = f (x)
s = s + y
D = (2 * s + f (a) + f (b))/(2 * n) If.Print DSubSub Command2_Click (). Show.HideSubSub Command3_Click (). Show.HideSubSub Command5_Click ()
Form4.ShowSub
Код програми побудови графіка
Private Sub Command1_Click ()
Dim a As Double, i As Double, k As Double = Val (Form1.Text1.Text) = Val (Form1.Text2.Text) = Val (Form1.Text3.Text) = f ( a) = f (a) i = a To b Step 0.5f (i)> Max Then Max = f (i) f (i)
Picture1.Scale (a, Max) - (b, Min). Line (a, Min) - (b, Min). Line (a, Min) - (a, Max) i = a To b Step 0.001.PSet (i, f (i))
h = (b - a)/nk = a To b Step h.Line (k, f (k + h)) - (k + h, 0), RGB (255, 0, 0), BSubSub Command2_Click (). HideSubSub Command3_Click (). ClsSub
Код програми дослідження на похибку
Dim Et (200) As Doublees (200) As DoubleSub Check2_Click () SubSub Command1_Click (). Hide.ShowSubFunction f (x)
f = (x ^ 3)/(3 + x) Function
Public Function f1 (x) = x ^ 3/3 - 1.5 * x ^ 2 + 9 * x - 27 * Log (Abs (x + 3)) FunctionSub Command2_Click () = Text1 = Text2 = 10 = 200n = 1 To 200 Step 10.Cls = (b - a)/n = f1 (b) - f1 (a). Print "S ="; s.Cls.Scale (0, 40) - (215, -2). Line (0, 0) - (215, 0). Line (10, 0) - (10, 200) = 0 = 1 = 0n = 10 To 200 Step 10
h = (b - a)/n = 0 = 0i = 1 To n
X1 = X1 + h = s + f (X1)
Pr = h * s = (b - a)/n = 0 = 0i = 1 To n - 1 = X1 + h = s + f (X1) = ((b - a)/ (2 * n)) * (a + b + 2 * s) _L = f1 (b) - f1 (a) (j) = Abs (Pr - N_L) * 100 (j) = Abs (Tr - N_L) * 100 = j + 1n = 10i = 0 To j.Line (n, 0) - (n, -0.5). Print nn = 200 Then Exit For.Line (n, Et (i)) - (n + 10, Et (i + 1)), vbRed.Line (n, es (i)) - (n + 10, es (i + 1)), vbBlue = n + 10i = 2 To 40 Step 2.Line (8, i) - (10, i). Print i = Text4Check1.Value = vbChecked The...