Вычислить (1+sin(0.1)(1+sin(0.2).(1+sin(10) VB

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

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

Вычислить: (1+sin(0.1))(1+sin(0.2))...(1+sin(10) Пожалуйста помоги решать эту задачку..

Решение задачи: «Вычислить (1+sin(0.1)(1+sin(0.2).(1+sin(10) VB»

textual
Листинг программы
  Dim fX As Single
  Dim fY As Single
  '
  fY = 1
  For fX = 0.1 To 10 Step 0.1
    fY = fY * (1 + Sin(fX))
  Next fX
  MsgBox "Y=" + Str$(fY)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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