Вычислить (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)