Найти первый отрицательный член последовательности - VB

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

найти первый отрицательный член последовательности sin (tg(n/2)) для n, изменяющегося следующим образом n=1,2,3...

Решение задачи: «Найти первый отрицательный член последовательности»

textual
                            Листинг программы 
                        

                            Function FirstNeg(Optional i as double = 1) As Double
  z#=Sin(Tan(i/2))
  if z# < 0 then
    FirstNeg=z#
  else
    FirstNeg=FirstNeg(i+1)
  end if
End function
                        

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

13 голосов , оценка 4.231 из 5

Похожие ответы