Решить уравнение графическим методом - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д