Приложение a. Код программы
Form1
Private Sub AboutPr_Click()
Form3.Show
End Sub
Private Sub End_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Issled_Click()
Form1.Hide
Form4.Show
End Sub
Private Sub pog_Click()
Form1.Hide
Form5.Show
End Sub
Private Sub Reshenie_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub Save_Click()
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, " N треуг-ка трапеции погреш.треуг погреш.трапеции"
Print #1, "10; 19.2056; 18.0654; 0.0435; 0.01844962"
Print #1, "20; 18.8937; 18.3236; 0.0266; 0.00442135"
Print #1, "30; 18.749; 18.3689; 0.0187; 0.00195729"
Print #1, "40; 18.6697; 18.3847; 0.0144; 0.00110264"
Print #1, "50; 18.62; 18.3919; 0.0117; 0.00070842"
Print #1, "60; 18.5859; 18.3959; 0.0098; 0.00049453"
Print #1, "70; 18.5611; 18.3982; 0.0085; 0.00036571"
Print #1, "80; 18.5423; 18.3998; 0.0075; 0.00028219"
Print #1, "90; 18.5275; 18.4008; 0.0067; 0.00022498"
Print #1, "100; 18.5156; 18.4016; 0.006; 0.00018394"
Print #1, "110; 18.5058; 18.4021; 0.0055; 0.00015368"
Print #1, "120; 18.4976; 18.4026; 0.005; 0.00013068"
Print #1, "130; 18.4906; 18.4029; 0.0047; 0.00012751"
Print #1, "140; 18.4846; 18.4031; 0.0043; 0.00009855"
Print #1, "150; 18.4794; 18.4034; 0.004; 0.00008705"
Print #1, "160; 18.4748; 18.4035; 0.0038; 0.00007762"
Print #1, "170; 18.4707; 18.4037; 0.0036; 0.00006984"
Print #1, "180; 18.4671; 18.4038; 0.0034; 0.00006331"
Print #1, "190; 18.4639; 18.4039; 0. 32; 0.00005782"
Print #1, "200; 18.461; 18.404; 0.003; 0.00005305"
Close #1
End Sub
Private Sub Visualpr_Click()
Form1.Hide
Form3.Show
End Sub
Form2
Private Sub Command1_Click()
Picture1.Cls
Dim h As Double
Dim s As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
N = d
h = (b - a) / N
s = 0
X = a
For I = 0 To N - 1
Y = (c ^ Sin(X)) * ((Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X)))
s = s + Y
X = X + h
Next I
pr = s * h
Picture1.Print pr
End Sub
Private Sub Command2_Click()
Picture2.Cls
Dim s As Double
Dim h As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
с = Val(Text3.Text)
d = Val(Text4.Text)
N = d
h = (b - a) / N
s = 0
X = a
For I = 1 To N - 1
X = X + h
Y = (c ^ Sin(X)) * ((Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X)))
s = s + Y
Next I
trap = ((2 * s + (c ^ Sin(a)) * ((Exp(a) - Exp(-a)) / (Exp(a) + Exp(-a)))) + (c ^ Sin(b)) * (Exp(b) - Exp(-b)) / (Exp(b) + Exp(-b))) / 2 * h
Picture2.Print trap
End Sub
Private Sub Command3_Click()
Form2.Hide
Form1.Show
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Picture3.Cls
math = 18.405
Picture3.Print math
End Sub
Private Sub Command6_Click()
Picture4.Cls
Picture5.Cls
Ppr = Abs((pr - math) / math)
Ptrap = Abs((trap - math) / math)
Picture4.Print Ppr
Picture5.Print Ptrap
End Sub
Private Sub Command7_Click()
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, "метод прям.треугольников "; (pr)
Print #1, "метод трапеций "; (trap)
Print #1, "погрешность для метода треугольников "; (Ppr)
Print #1, "погрешность для метода треугольников "; (Ptrap)
End Sub
Private Sub Label7_Click()
End Sub
Private Sub Form_Load()
End Sub
Form3
Private Sub Command1_Click()
Unload Form3
End Sub
Private Sub Form_Load()
End Sub
Form4
Private Sub Command1_Click()
k = 0.5
L = 9.5
h = (L - k) / 9
Picture1.DrawWidth = 3
Picture1.Scale (-0.2, 6)-(10, -0.2)
Picture1.Line (0, 6)-(0, 0)
Picture1.Line (0, 0)-(10, 0)
For X = 0 To 9.5 Step 0.0001
Picture1.DrawWidth = 3
Picture1.PSet (X, 5 ^ Sin(X) * ((Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X)))), [vbGreen]
Next X
For I = 0 To 8
Picture1.DrawWidth = 1
Picture1.Line (k + I * h, 0)-(k + I * h, 6)
Picture1.DrawWidth = 3
Picture1.Line (0.5, 5 ^ Sin(0.5) * ((Exp(0.5) - Exp(-0.5)) / (Exp(0.5) + Exp(-0.5))))-(1.5, 5 ^ Sin(0.5) * ((Exp(0.5) - Exp(-0.5)) / (Exp(0.5) + Exp(-0.5)))), [vbRed]
Picture1.Line (1.5, 5 ^ Sin(1.5) * ((Exp(1.5) - Exp(-1.5)) / (Exp(1.5) + Exp(-1.5))))-(2.5, 5 ^ Sin(1.5) * ((Exp(1.5) - Exp(-1.5)) / (Exp(1.5) + Exp(-1.5)))), [vbRed]
Picture1.Line (2.5, 5 ^ Sin(2.5) * ((Exp(2.5) - Exp(-2.5)) / (Exp(2.5) + Exp(-2.5))))-(3.5, 5 ^ Sin(2.5) * ((Exp(2.5) - Exp(-2.5)) / (Exp(2.5) + Exp(-2.5)))), [vbRed]
Picture1.Line (3.5, 5 ^ Sin(3.5) * ((Exp(3.5) - Exp(-3.5)) / (Exp(3.5) + Exp(-3.5))))-(4.5, 5 ^ Sin(3.5) * ((Exp(3.5) - Exp(-3.5)) / (Exp(3.5) + Exp(-3.5)))), [vbRed]
Picture1.Line (4.5, 5 ^ Sin(4.5) * ((Exp(4.5) - Exp(-4.5)) / (Exp(4.5) + Exp(-4.5))))-(5.5, 5 ^ Sin(4.5) * ((Exp(4.5) - Exp(-4.5)) / (Exp(4.5) + Exp(-4.5)))), [vbRed]
Picture1.Line (5.5, 5 ^ Sin(5.5) * ((Exp(5.5) - Exp(-5.5)) / (Exp(5.5) + Exp(-5.5))))-(6.5, 5 ^ Sin(5.5) * ((Exp(5.5) - Exp(-5.5)) / (Exp(5.5) + Exp(-5.5)))), [vbRed]
Picture1.Line (6.5, 5 ^ Sin(6.5) * ((Exp(6.5) - Exp(-6.5)) / (Exp(6.5) + Exp(-6.5))))-(7.5, 5 ^ Sin(6.5) * ((Exp(6.5) - Exp(-6.5)) / (Exp(6.5) + Exp(-6.5)))), [vbRed]
Picture1.Line (7.5, 5 ^ Sin(7.5) * ((Exp(7.5) - Exp(-7.5)) / (Exp(7.5) + Exp(-7.5))))-(8.5, 5 ^ Sin(7.5) * ((Exp(7.5) - Exp(-7.5)) / (Exp(7.5) + Exp(-7.5)))), [vbRed]
Next I
End Sub
Private Sub Command2_Click()
Picture1.Cls
End Sub
Private Sub Command3_Click()
Form4.Hide
Form1.Show
End Sub
Private Sub Command4_Click()
End
End Sub
Form5
Private Sub Command1_Click()
Picture1.Scale (-1, 0.1)-(200, -0.005)
Picture1.Line (0, 0)-(210, 0)
Picture1.Line (0, -100)-(0, 100)
For X = 10 To 200 Step 10
Picture1.PSet (X, 0)
Picture1.Print X
Next
T = 18.405
Picture1.Line (10, (Abs(19.2056 - T)) / T)-(20, (Abs(18.8937 - T)) / T), vbRed
Picture1.Line (20, (Abs(18.8937 - T)) / T)-(30, (Abs(18.749 - T)) / T), vbRed
Picture1.Line (30, (Abs(18.749 - T)) / T)-(40, (Abs(18.6697 - T)) / T), vbRed
Picture1.Line (40, (Abs(18.6697 - T)) / T)-(50, (Abs(18.62 - T)) / T), vbRed
Picture1.Line (50, (Abs(18.62 - T)) / T)-(60, (Abs(18.5859 - T)) / T), vbRed
Picture1.Line (60, (Abs(18.5859 - T)) / T)-(70, (Abs(18.5611 - T)) / T), vbRed
Picture1.Line (70, (Abs(18.5611 - T)) / T)-(80, (Abs(18.5423 - T)) / T), vbRed
Picture1.Line (80, (Abs(18.5423 - T)) / T)-(90, (Abs(18.5275 - T)) / T), vbRed
Picture1.Line (90, (Abs(18.5275 - T)) / T)-(100, (Abs(18.5156 - T)) / T), vbRed
Picture1.Line (100, (Abs(18.5156 - T)) / T)-(110, (Abs(18.5058 - T)) / T), vbRed
Picture1.Line (110, (Abs(18.5058 - T)) / T)-(120, (Abs(18.4976 - T)) / T), vbRed
Picture1.Line (120, (Abs(18.4976 - T)) / T)-(130, (Abs(18.4906 - T)) / T), vbRed
Picture1.Line (130, (Abs(18.4906 - T)) / T)-(140, (Abs(18.4846 - T)) / T), vbRed
Picture1.Line (140, (Abs(18.4846 - T)) / T)-(150, (Abs(18.4794 - T)) / T), vbRed
Picture1.Line (150, (Abs(18.4794 - T)) / T)-(160, (Abs(18.4748 - T)) / T), vbRed
Picture1.Line (160, (Abs(18.4748 - T)) / T)-(170, (Abs(18.4707 - T)) / T), vbRed
Picture1.Line (170, (Abs(18.4707 - T)) / T)-(180, (Abs(18.4671 - T)) / T), vbRed
Picture1.Line (180, (Abs(18.4671 - T)) / T)-(190, (Abs(18.4639 - T)) / T), vbRed
Picture1.Line (190, (Abs(18.4639 - T)) / T)-(200, (Abs(18.461 - T)) / T), vbRed
Picture1.Line (10, (Abs(18.0654 - T)) / T)-(20, (Abs(18.3236 - T)) / T), vbBlue
Picture1.Line (20, (Abs(18.3236 - T)) / T)-(30, (Abs(18.3689 - T)) / T), vbBlue
Picture1.Line (30, (Abs(18.3689 - T)) / T)-(40, (Abs(18.3847 - T)) / T), vbBlue
Picture1.Line (40, (Abs(18.3847 - T)) / T)-(50, (Abs(18.3919 - T)) / T), vbBlue
Picture1.Line (50, (Abs(18.3919 - T)) / T)-(60, (Abs(18.3959 - T)) / T), vbBlue
Picture1.Line (60, (Abs(18.3959 - T)) / T)-(70, (Abs(18.3982 - T)) / T), vbBlue
Picture1.Line (70, (Abs(18.3982 - T)) / T)-(80, (Abs(18.3998 - T)) / T), vbBlue
Picture1.Line (80, (Abs(18.3998 - T)) / T)-(90, (Abs(18.4008 - T)) / T), vbBlue
Picture1.Line (90, (Abs(18.4008 - T)) / T)-(100, (Abs(18.4016 - T)) / T), vbBlue
Picture1.Line (100, (Abs(18.4016 - T)) / T)-(110, (Abs(18.4021 - T)) / T), vbBlue
Picture1.Line (110, (Abs(18.4021 - T)) / T)-(120, (Abs(18.4026 - T)) / T), vbBlue
Picture1.Line (120, (Abs(18.4026 - T)) / T)-(130, (Abs(18.4029 - T)) / T), vbBlue
Picture1.Line (130, (Abs(18.4029 - T)) / T)-(140, (Abs(18.4031 - T)) / T), vbBlue
Picture1.Line (140, (Abs(18.4031 - T)) / T)-(150, (Abs(18.4034 - T)) / T), vbBlue
Picture1.Line (150, (Abs(18.4034 - T)) / T)-(160, (Abs(18.4035 - T)) / T), vbBlue
Picture1.Line (160, (Abs(18.4035 - T)) / T)-(170, (Abs(18.4037 - T)) / T), vbBlue
Picture1.Line (170, (Abs(18.4037 - T)) / T)-(180, (Abs(18.4038 - T)) / T), vbBlue
Picture1.Line (180, (Abs(18.4038 - T)) / T)-(190, (Abs(18.4039 - T)) / T), vbBlue
Picture1.Line (190, (Abs(18.4039 - T)) / T)-(200, (Abs(18.404 - T)) / T), vbBlue
End Sub
Private Sub Command2_Click()
Picture1.Cls
End Sub
Private Sub Command3_Click()
Form5.Hide
Form1.Show
End Sub
Private Sub Command4_Click()
End
End Sub
