Архивировано

Эта тема находится в архиве и закрыта для публикации сообщений.

Юлёк_1993

Visual Basic

Рекомендованные сообщения

помогите пожалуйста доделать программу =) Надо, чтобы по функции строился график.

y = (1 - Sin(x)) / (ln(x) + 2)

x>2

ln(x) не равно -2

 

Вот я сама попробовала написать.

 

 

 

Private Sub cmdOk_Click()

Dim SngX As Single

Dim bytI As Integer

Dim y As Single

 

picGraph.Scale (-9, 9)-(9, -9)

 

For SngX = -9 To 9 Step 0.01

y = (1 - Sin(SngX)) / (ln(SngX) + 2)

 

 

picGraph.PSet (SngX, y), vbRed

Next SngX

 

picGraph.Line (-9, 0)-(9, 0)

For bytI = -9 To 9

picGraph.PSet (bytI, 0)

picGraph.Print bytI

Next bytI

 

picGraph.Line (0, 9)-(0, -9)

For bytI = -9 To 9

picGraph.PSet (0, bytI)

picGraph.Print bytI

Next bytI

End Sub

 

Буду очень признателена за любую помощь!

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

<a href="www.google.ru">Любая помощь</a>

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

помогите пожалуйста доделать программу =) Надо, чтобы по функции строился график.

y = (1 - Sin(x)) / (ln(x) + 2)

x>2

ln(x) не равно -2

 

Вот я сама попробовала написать.

 

 

 

Private Sub cmdOk_Click()

Dim SngX As Single

Dim bytI As Integer

Dim y As Single

 

picGraph.Scale (-9, 9)-(9, -9)

 

For SngX = -9 To 9 Step 0.01

y = (1 - Sin(SngX)) / (ln(SngX) + 2)

 

 

picGraph.PSet (SngX, y), vbRed

Next SngX

 

picGraph.Line (-9, 0)-(9, 0)

For bytI = -9 To 9

picGraph.PSet (bytI, 0)

picGraph.Print bytI

Next bytI

 

picGraph.Line (0, 9)-(0, -9)

For bytI = -9 To 9

picGraph.PSet (0, bytI)

picGraph.Print bytI

Next bytI

End Sub

 

Буду очень признателена за любую помощь!

Какойто бред вышел честно

вот вам функция она формирует массив точек массив передаеться в нее, как это и как это вывести на экран ваша забота

Function mather(byval massivx as variant,byval massivy as variant,startx,endx,steps)
i= 0
Do while (startx<endx)
if ((startx<>-2)and(ln(startx)+2<>0)) then 
massivx[i]=startx
massivy[i]=(1 - Sin(startx)) / (ln(startx) + 2)
i=i+1
endif
startx=startx+steps
Loop
mather=i
End Function

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах