VERSION 5.00
Begin VB.Form Pogr_p 
   Caption         =   "Погрешность метода прямоугольников"
   ClientHeight    =   7050
   ClientLeft      =   60
   ClientTop       =   375
   ClientWidth     =   9165
   LinkTopic       =   "Form1"
   ScaleHeight     =   7050
   ScaleWidth      =   9165
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Построить"
      Height          =   495
      Left            =   5640
      TabIndex        =   13
      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.Line Line2 
            X1              =   480
            X2              =   480
            Y1              =   480
            Y2              =   3480
         End
         Begin VB.Label Label7 
            Caption         =   "I*10^(-3)"
            Height          =   255
            Left            =   360
            TabIndex        =   42
            Top             =   240
            Width           =   615
         End
         Begin VB.Label Label8 
            Caption         =   "n*10"
            Height          =   255
            Left            =   5400
            TabIndex        =   41
            Top             =   3600
            Width           =   375
         End
         Begin VB.Label Label11 
            Caption         =   "0"
            Height          =   255
            Left            =   360
            TabIndex        =   40
            Top             =   3480
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "13"
            Height          =   255
            Index           =   0
            Left            =   120
            TabIndex        =   39
            Top             =   360
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "12"
            Height          =   255
            Index           =   1
            Left            =   120
            TabIndex        =   38
            Top             =   600
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "11"
            Height          =   255
            Index           =   2
            Left            =   120
            TabIndex        =   37
            Top             =   840
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "10"
            Height          =   255
            Index           =   3
            Left            =   120
            TabIndex        =   36
            Top             =   1080
            Width           =   255
         End
         Begin VB.Label Label12 
            Caption         =   "9"
            Height          =   255
            Index           =   4
            Left            =   240
            TabIndex        =   35
            Top             =   1320
            Width           =   135
         End
         Begin VB.Label Label12 
            Caption         =   "8"
            Height          =   255
            Index           =   5
            Left            =   240
            TabIndex        =   34
            Top             =   1560
            Width           =   135
         End
         Begin VB.Label Label12 
            Caption         =   "7"
            Height          =   255
            Index           =   6
            Left            =   240
            TabIndex        =   33
            Top             =   1800
            Width           =   135
         End
         Begin VB.Label Label12 
            Caption         =   "6"
            Height          =   255
            Index           =   7
            Left            =   240
            TabIndex        =   32
            Top             =   2040
            Width           =   135
         End
         Begin VB.Label Label12 
            Caption         =   "5"
            Height          =   255
            Index           =   8
            Left            =   240
            TabIndex        =   31
            Top             =   2280
            Width           =   135
         End
         Begin VB.Label Label12 
            Caption         =   "4"
            Height          =   255
            Index           =   9
            Left            =   240
            TabIndex        =   30
            Top             =   2520
            Width           =   135
         End
         Begin VB.Label Label12 
            Caption         =   "3"
            Height          =   255
            Index           =   10
            Left            =   240
            TabIndex        =   29
            Top             =   2760
            Width           =   135
         End
         Begin VB.Label Label12 
            Caption         =   "2"
            Height          =   255
            Index           =   11
            Left            =   240
            TabIndex        =   28
            Top             =   3000
            Width           =   135
         End
         Begin VB.Label Label12 
            Caption         =   "1"
            Height          =   255
            Index           =   12
            Left            =   240
            TabIndex        =   27
            Top             =   3240
            Width           =   135
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "2"
            Height          =   255
            Index           =   2
            Left            =   960
            TabIndex        =   26
            Top             =   3600
            Width           =   255
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "4"
            Height          =   255
            Index           =   3
            Left            =   1440
            TabIndex        =   25
            Top             =   3600
            Width           =   255
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "6"
            Height          =   255
            Index           =   6
            Left            =   1920
            TabIndex        =   24
            Top             =   3600
            Width           =   255
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "8"
            Height          =   255
            Index           =   8
            Left            =   2400
            TabIndex        =   23
            Top             =   3600
            Width           =   255
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "10"
            Height          =   255
            Index           =   10
            Left            =   2760
            TabIndex        =   22
            Top             =   3600
            Width           =   375
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "12"
            Height          =   255
            Index           =   12
            Left            =   3240
            TabIndex        =   21
            Top             =   3600
            Width           =   375
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "14"
            Height          =   255
            Index           =   14
            Left            =   3720
            TabIndex        =   20
            Top             =   3600
            Width           =   375
         End
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            Caption         =   "16"
            Height          =   255
            Index           =   16
            Left            =   4200
            TabIndex        =   19
            Top             =   3600
            Width           =   375
         End
         Begin VB.Label Label9 
            Caption         =   "18"
            Height          =   255
            Index           =   18
            Left            =   4680
            TabIndex        =   18
            Top             =   3600
            Width           =   255
         End
         Begin VB.Label Label9 
            Caption         =   "20"
            Height          =   255
            Index           =   20
            Left            =   5160
            TabIndex        =   17
            Top             =   3600
            Width           =   255
         End
      End
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   2040
         TabIndex        =   10
         Text            =   "6"
         Top             =   2160
         Width           =   615
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   2040
         TabIndex        =   9
         Text            =   "1"
         Top             =   1680
         Width           =   615
      End
      Begin VB.PictureBox Picture3 
         Height          =   495
         Left            =   240
         Picture         =   "Pogr_p.frx":0000
         ScaleHeight     =   435
         ScaleWidth      =   675
         TabIndex        =   5
         Top             =   1080
         Width           =   735
      End
      Begin VB.PictureBox Picture2 
         Height          =   495
         Left            =   3360
         Picture         =   "Pogr_p.frx":0E2E
         ScaleHeight     =   435
         ScaleWidth      =   675
         TabIndex        =   4
         Top             =   720
         Width           =   735
      End
      Begin VB.PictureBox Picture1 
         Height          =   735
         Left            =   7200
         Picture         =   "Pogr_p.frx":1C5C
         ScaleHeight     =   675
         ScaleWidth      =   1155
         TabIndex        =   2
         Top             =   240
         Width           =   1215
      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        =   8
         Top             =   2280
         Width           =   1695
      End
      Begin VB.Label Label4 
         Caption         =   "Введите значение a:"
         Height          =   255
         Left            =   360
         TabIndex        =   7
         Top             =   1800
         Width           =   1695
      End
      Begin VB.Label Label3 
         Caption         =   "=0.244"
         Height          =   255
         Left            =   1080
         TabIndex        =   6
         Top             =   1200
         Width           =   615
      End
      Begin VB.Label Label2 
         Caption         =   "где М2 - наибольшее значение функции                    в промежутке (a, b)"
         Height          =   255
         Left            =   240
         TabIndex        =   3
         Top             =   720
         Width           =   5535
      End
      Begin VB.Label Label1 
         Caption         =   "Предельная погрешность вычисления интеграла методом прямоугольников составляет:"
         Height          =   255
         Left            =   240
         TabIndex        =   1
         Top             =   360
         Width           =   6975
      End
   End
   Begin VB.Label Label9 
      Caption         =   "10"
      Height          =   255
      Index           =   1
      Left            =   6000
      TabIndex        =   14
      Top             =   5640
      Width           =   255
   End
End
Attribute VB_Name = "Pogr_p"
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.013)-(210, 0)
For i = 10 To 200 Step 10
X1 = i
Y1 = -(((b - a) ^ 3) * 0.244) / (24 * X1 * X1)
X2 = X1 + 10
Y2 = -(((b - a) ^ 3) * 0.244) / (24 * X2 * X2)
Picture4.Line (X1, Y1)-(X2, Y2)
Next i


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

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

End Sub

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