VERSION 5.00
Begin VB.Form Pogr_s 
   Caption         =   "Погрешность метода Симпсона"
   ClientHeight    =   7020
   ClientLeft      =   60
   ClientTop       =   375
   ClientWidth     =   9165
   LinkTopic       =   "Form1"
   ScaleHeight     =   7020
   ScaleWidth      =   9165
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Построить"
      Height          =   495
      Left            =   5640
      TabIndex        =   14
      Top             =   6360
      Width           =   1335
   End
   Begin VB.CommandButton toMain 
      Caption         =   "На главную"
      Height          =   495
      Left            =   7200
      TabIndex        =   12
      Top             =   6360
      Width           =   1335
   End
   Begin VB.Frame Frame1 
      Caption         =   "Расчет погрешности для метода Симпсона"
      Height          =   6015
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   8895
      Begin VB.Frame Frame2 
         Caption         =   "График зависимости погрешности I от числа разбиений n:"
         Height          =   3975
         Left            =   3000
         TabIndex        =   15
         Top             =   1920
         Width           =   5775
         Begin VB.PictureBox Picture4 
            BackColor       =   &H80000009&
            Height          =   3015
            Left            =   600
            ScaleHeight     =   2955
            ScaleWidth      =   4875
            TabIndex        =   16
            Top             =   480
            Width           =   4935
         End
         Begin VB.Line Line1 
            X1              =   480
            X2              =   5640
            Y1              =   3600
            Y2              =   3600
         End
         Begin VB.Label Label9 
            Caption         =   "20"
            Height          =   255
            Index           =   20
            Left            =   5160
            TabIndex        =   42
            Top             =   3600
            Width           =   255
         End
         Begin VB.Label Label9 
            Caption         =   "18"
            Height          =   255
            Index           =   18
            Left            =   4680
            TabIndex        =   41
            Top             =   3600
            Width           =   255
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "16"
            Height          =   255
            Index           =   16
            Left            =   4200
            TabIndex        =   40
            Top             =   3600
            Width           =   375
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "14"
            Height          =   255
            Index           =   14
            Left            =   3720
            TabIndex        =   39
            Top             =   3600
            Width           =   375
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "12"
            Height          =   255
            Index           =   12
            Left            =   3240
            TabIndex        =   38
            Top             =   3600
            Width           =   375
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "10"
            Height          =   255
            Index           =   10
            Left            =   2760
            TabIndex        =   37
            Top             =   3600
            Width           =   375
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "8"
            Height          =   255
            Index           =   8
            Left            =   2400
            TabIndex        =   36
            Top             =   3600
            Width           =   255
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "6"
            Height          =   255
            Index           =   6
            Left            =   1920
            TabIndex        =   35
            Top             =   3600
            Width           =   255
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "4"
            Height          =   255
            Index           =   3
            Left            =   1440
            TabIndex        =   34
            Top             =   3600
            Width           =   255
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "2"
            Height          =   255
            Index           =   2
            Left            =   960
            TabIndex        =   33
            Top             =   3600
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "9"
            Height          =   255
            Index           =   12
            Left            =   240
            TabIndex        =   32
            Top             =   3240
            Width           =   135
         End
         Begin VB.Label Label12 
            Caption         =   "18"
            Height          =   255
            Index           =   11
            Left            =   120
            TabIndex        =   31
            Top             =   3000
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "27"
            Height          =   255
            Index           =   10
            Left            =   120
            TabIndex        =   30
            Top             =   2760
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "36"
            Height          =   255
            Index           =   9
            Left            =   120
            TabIndex        =   29
            Top             =   2520
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "45"
            Height          =   255
            Index           =   8
            Left            =   120
            TabIndex        =   28
            Top             =   2280
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "54"
            Height          =   255
            Index           =   7
            Left            =   120
            TabIndex        =   27
            Top             =   2040
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "63"
            Height          =   255
            Index           =   6
            Left            =   120
            TabIndex        =   26
            Top             =   1800
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "72"
            Height          =   255
            Index           =   5
            Left            =   120
            TabIndex        =   25
            Top             =   1560
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "81"
            Height          =   255
            Index           =   4
            Left            =   120
            TabIndex        =   24
            Top             =   1320
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "90"
            Height          =   255
            Index           =   3
            Left            =   120
            TabIndex        =   23
            Top             =   1080
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "99"
            Height          =   255
            Index           =   2
            Left            =   120
            TabIndex        =   22
            Top             =   840
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "108"
            Height          =   255
            Index           =   1
            Left            =   0
            TabIndex        =   21
            Top             =   600
            Width           =   375
         End
         Begin VB.Label Label12 
            Caption         =   "117"
            Height          =   255
            Index           =   0
            Left            =   0
            TabIndex        =   20
            Top             =   360
            Width           =   375
         End
         Begin VB.Label Label11 
            Caption         =   "0"
            Height          =   255
            Left            =   360
            TabIndex        =   19
            Top             =   3480
            Width           =   255
         End
         Begin VB.Label Label8 
            Caption         =   "n*10"
            Height          =   255
            Left            =   5400
            TabIndex        =   18
            Top             =   3600
            Width           =   375
         End
         Begin VB.Label Label7 
            Caption         =   "I*10^(-4)"
            Height          =   255
            Left            =   360
            TabIndex        =   17
            Top             =   240
            Width           =   615
         End
         Begin VB.Line Line2 
            X1              =   480
            X2              =   480
            Y1              =   480
            Y2              =   3480
         End
      End
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   2040
         TabIndex        =   5
         Text            =   "6"
         Top             =   2160
         Width           =   615
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   2040
         TabIndex        =   4
         Text            =   "1"
         Top             =   1680
         Width           =   615
      End
      Begin VB.PictureBox Picture3 
         Height          =   495
         Left            =   240
         Picture         =   "Pogr_s.frx":0000
         ScaleHeight     =   435
         ScaleWidth      =   795
         TabIndex        =   3
         Top             =   1080
         Width           =   855
         Begin VB.PictureBox Picture5 
            Height          =   495
            Left            =   0
            Picture         =   "Pogr_s.frx":0E2E
            ScaleHeight     =   435
            ScaleWidth      =   795
            TabIndex        =   13
            Top             =   0
            Width           =   855
         End
      End
      Begin VB.PictureBox Picture2 
         Height          =   495
         Left            =   3360
         Picture         =   "Pogr_s.frx":201C
         ScaleHeight     =   435
         ScaleWidth      =   795
         TabIndex        =   2
         Top             =   720
         Width           =   855
      End
      Begin VB.PictureBox Picture1 
         Height          =   735
         Left            =   6840
         Picture         =   "Pogr_s.frx":320A
         ScaleHeight     =   675
         ScaleWidth      =   1275
         TabIndex        =   1
         Top             =   240
         Width           =   1335
      End
      Begin VB.Label Label6 
         Caption         =   "По условию n=[10;200] с шагом 10"
         Height          =   255
         Left            =   3360
         TabIndex        =   11
         Top             =   1560
         Width           =   2775
      End
      Begin VB.Label Label5 
         Caption         =   "Введите значение b:"
         Height          =   255
         Left            =   360
         TabIndex        =   10
         Top             =   2280
         Width           =   1695
      End
      Begin VB.Label Label4 
         Caption         =   "Введите значение a:"
         Height          =   255
         Left            =   360
         TabIndex        =   9
         Top             =   1800
         Width           =   1695
      End
      Begin VB.Label Label3 
         Caption         =   "=105"
         Height          =   255
         Left            =   1200
         TabIndex        =   8
         Top             =   1200
         Width           =   615
      End
      Begin VB.Label Label2 
         Caption         =   "где М4 - наибольшее значение функции                      в промежутке (a, b)"
         Height          =   255
         Left            =   240
         TabIndex        =   7
         Top             =   720
         Width           =   5535
      End
      Begin VB.Label Label1 
         Caption         =   "Предельная погрешность вычисления интеграла методом Симпсона составляет:"
         Height          =   255
         Left            =   240
         TabIndex        =   6
         Top             =   360
         Width           =   6975
      End
   End
End
Attribute VB_Name = "Pogr_s"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Picture4.Cls
a = Text1
B = Text2
Picture4.Scale (0, -0.01145)-(210, 0)
For i = 10 To 200 Step 10
X1 = i
Y1 = -(((B - a) ^ 5) * 105) / (180 * ((2 * X1) ^ 4))
X2 = X1 + 10
Y2 = -(((B - a) ^ 5) * 105) / (180 * ((2 * X2) ^ 4))
Picture4.Line (X1, Y1)-(X2, Y2)
Next i



For x = 0 To 200 Step 10
Picture4.Line (x, -0.01145)-(x, 0), RGB(255, 0, 0)
Next x

For y = -0.01145 To 0 Step (0.01145 / 13)
Picture4.Line (0, y)-(210, y), RGB(255, 0, 0)
Next y


End Sub

Private Sub Exit_Click()
    End
End Sub

Private Sub toMain_Click()
 Main.Show
 Pogr_s.Hide
End Sub