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

Графикалық әдістер мен процедуралар
Практикалық жұмыс
х және у остерін салып, синус және косинус функцияларының графиктерін салыңдар.
Private Sub Command1_Click()
31636743697Dim 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
506730153035
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)), vbRedNext x
End Sub
Үйге: тангенс, котангенс функциялары, §19 Графикалық әдістер мен процедуралар