Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4

@Belch · Регистрация: 11.05.2014

Студворк — интернет-сервис помощи студентам

1)Вычислить
y - первое из чисел sinx, sin sinx,sin sin sinx,..., меньшее по модулю 10^-4

Заранее огромное спасибо!

@Catstail · 11.05.2014, 15:20

Visual Basic

function F(x as double) As double
   y#=sin(x)
   if abs(y#)<1.0E-4 then
     F=y#
     exit function
   else
     F=F(y#)
   end if
End function

@sco43 · 11.05.2014, 15:36

Visual Basic

Private Sub Command1_Click()
x = InputBox("x, ãðàäóñû")
x = Atn(1) / 45 * x
Do Until Abs(x) < 0.0001
x = Sin(x)
Form1.Caption = x
DoEvents
Loop
y = x
MsgBox "y =" & y
End Sub

В общем у меня такая фигня, может прога неверна, но исходя из замечательного предела:
sin (x)/x=1 , когда х стремиться к нолю - считать будет долго.

@Belch 0 / 0 / 0 Регистрация: 11.05.2014 Сообщений: 2
		1
	Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4 11.05.2014, 12:10. Показов 3451. Ответов 2 Метки нет (Все метки) 1)Вычислить y - первое из чисел sinx, sin sinx,sin sin sinx,..., меньшее по модулю 10^-4 Заранее огромное спасибо! 0

Опции темы

Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4

Решение