VERSION 5.00
Begin VB.Form Графики 
   Caption         =   "Form1"
   ClientHeight    =   6324
   ClientLeft      =   108
   ClientTop       =   432
   ClientWidth     =   5844
   LinkTopic       =   "Form1"
   ScaleHeight     =   6324
   ScaleWidth      =   5844
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Com1 
      Caption         =   "Построить"
      Height          =   252
      Left            =   1680
      TabIndex        =   1
      Top             =   5880
      Width           =   2292
   End
   Begin VB.PictureBox Picture1 
      Height          =   5532
      Left            =   120
      ScaleHeight     =   5484
      ScaleWidth      =   5484
      TabIndex        =   0
      Top             =   120
      Width           =   5532
   End
End
Attribute VB_Name = "Графики"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Double
Dim ycir As Single
Dim ycub As Single
Private Sub Com1_Click()

'Оси координат и их разметка
Picture1.Scale (-3, 3)-(3, -3)
Picture1.Line (-3, 0)-(3, 0)
Picture1.Line (0, -3)-(0, 3)
For i = -3 To 3 Step 1
 Picture1.PSet (i, 0)
 Picture1.Print i
 Picture1.Line (i, -0.1)-(i, 0.1)
 Picture1.PSet (0, i)
 Picture1.Print i
 Picture1.Line (-0.1, i)-(0.1, i)
 Next i

'Построение графиков
For i = -3 To 3 Step 0.001
ycub = (i ^ 3) * -1
Picture1.PSet (i, ycub)
Next i
For i = -1 To 1 Step 0.001
ycir = (1 - (i ^ 2)) ^ 0.5
Picture1.PSet (i, ycir)
Picture1.PSet (i, ycir * -1)
Next i

'Вычисление точек пересечения
For i = -1 To 1 Step 0.001
ycub = ((((i ^ 3) * -1) * 1000) \ 1) / 1000
ycir = ((((1 - (i ^ 2)) ^ 0.5) * 1000) \ 1) / 1000
If (ycub = ycir) Or (ycub = (ycir * -1)) Then
 Picture1.PSet (i, ycub)
 Picture1.Circle (i, ycub), 0.05
 Picture1.Print "x =", i
 Picture1.PSet (i, ycub - 0.3)
 Picture1.Print "y =", ycub
 End If
Next i

'Заштриховка необходимой области
For i = -1 To 0 Step 0.1
 ycub = (i ^ 3) * -1
 ycir = (1 - (i ^ 2)) ^ 0.5
 If ycub < ycir Then Picture1.Line (i, ycir)-(i, ycub)
 Next i
For i = 0 To 1 Step 0.1
 ycub = (i ^ 3) * -1
 ycir = ((1 - (i ^ 2)) ^ 0.5) * -1
 If ycub > ycir Then Picture1.Line (i, ycub)-(i, ycir)
 Next i
End Sub

