Решить уравнение графическим методом - VB

Узнай цену своей работы

Формулировка задачи:

привет...У мя тут 2 задачки помогите срочно!!! Составить программу, решающую графически уравнение sin(x)=cos(x). На интервале от – пи до пи.

Решение задачи: «Решить уравнение графическим методом»

textual
Листинг программы
Option Explicit
Const Pi = 3.14159265358979
Private Sub Комманда1_Click()
Dim X, Y1, Y2
Dim K
K = 0
Scale (-3.5, 1.5)-(3.5, -1.5)
Line (-3.3, 0)-(3.3, 0)
Line (0, 1.4)-(0, -1.4)
For X = -Pi To Pi Step 0.001
Y1 = Sin(X)
Y2 = Cos(X)
Circle (X, Y1), 0.01, RGB(255, 0, 0)
Circle (X, Y2), 0.01, RGB(0, 0, 255)
 
If (K = 0 And X < 0 Or K = 1 And X > 0) And Abs(Y1 - Y2) < 0.01 Then
Line (X, Y1)-(X, 0)
Line (X, Y1)-(0, Y1)
CurrentX = X
CurrentY = Y1
Print "(" & Round(X, 1) & ", " & Round(Y1, 1) & ")"
If X < 0 Then K = 1
If X > 0 Then K = 2
End If
Next X
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.533 из 5
Похожие ответы