Х және у остерін салып, синус және косинус функцияларының графиктерін салу. (10 сынып)

Графикалық әдістер мен процедуралар

Практикалық жұмыс

1. х және у остерін салып, синус және косинус функцияларының графиктерін салыңдар.

Private Sub Command1_Click()

Dim x As Single

Rem График sin(a)

Picture1.Scale (-12, 12)-(12, -12)

Picture1.DrawWidth = 3

Picture1.Line (-12, 0)-(12, 0)

Picture1.Line (0, 12)-(0, -12)

Picture1.Line (0, 12)-(-1, 10)

Picture1.Line (0, 12)-(1, 10)

Picture1.Line (12, 0)-(11, 1)

Picture1.Line (12, 0)-(11, -1)

For x = -10 To 10 Step 0.01

Picture1.DrawWidth = 3

Picture1.PSet (x, Sin(x)), vbRed

Next x

End Sub

 

Private Sub Command1_Click()

Dim x As Single

Rem График  cos(a)

Picture1.Scale (-12, 12)-(12, -12)

Picture1.DrawWidth = 3

Picture1.Line (-12, 0)-(12, 0)

Picture1.Line (0, 12)-(0, -12)

Picture1.Line (0, 12)-(-1, 10)

Picture1.Line (0, 12)-(1, 10)

Picture1.Line (12, 0)-(11, 1)

Picture1.Line (12, 0)-(11, -1)

For x = -10 To 10 Step 0.01

Picture1.DrawWidth = 3

Picture1.PSet (x, Cos(x)), vbRed

Next x

End Sub

Үйге: тангенс, котангенс функциялары, §19   Графикалық әдістер мен процедуралар