Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4 - VB
Формулировка задачи:
1)Вычислить
y - первое из чисел sinx, sin sinx,sin sin sinx,..., меньшее по модулю 10^-4
Заранее огромное спасибо!
Решение задачи: «Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4»
textual
Листинг программы
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