Графическое решение уравнения sin(x) = ax - VB

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

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

Нажав на кнопку, программа нарисует график. Туда, где пересекаются линии y = sin(x) и y = ax подведите указатель линии и прочитайте ответ. Если вам нужна большая точность, то с помощью мыши нарисуйте прямоугольник и вновь нажмите кнопку, программа нарисует график в более крупном масштабе... так можно повторить несколько раз, но не до бесконечности...

Решение задачи: «Графическое решение уравнения sin(x) = ax»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click()
Dim myDec, my2Dec
myDec = CDec(1.23454381578424)
my2Dec = CDec(2.63614640321665)
 
Debug.Print myDec / my2Dec ' ответ впечатляет  0,4683138289579965369458465734
End Sub

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

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