Дано действительное число х. Вычислить

[Incognitoal]

Народ, помогите, без понятий как это делать...

и это надо сделать через ВБА

[MAKEDON]

А можно это не ввиде рисунка? А текстом..а то ничего не понял, что там написано.

[Incognitoal]

S = sinx + sinsinx + . . . + sinsin...sinx
фигурная тут скобка снизу (. . . + sinsin...sinx)
n раз под фигурной скобкой

Sub SinExt() 
Dim S As Double, SE As Double, SinX As Double, I As Long 
SinX = Sin(Cells(1) * 3.14159265358979 / 180) 
SE = SinX 
For I = 1 To Cells(2) 
  S = S + SE 
  SE = SE * SinX 
Next I 
Cells(3) = S 
End Sub

Вот функцию мне написали, но я что-то не могу понять она подходит к моей задачи, объясните пожалуйста - очень надо...

[Stilet]

Sub SinExt() 
Dim S,se As Double, x as double, m,k,n as integer
x=0.5
n=10
se=0 
For I = 1 To  n
 k=i
 s=x
 for m=1 to k 
  s=sin(s)
 next k
 se=se+s
Next I 
msgbox cstr('Эта чепуха = ' & se)
End Sub

... Вот как-то так...

[Incognitoal]

Ошибка:
Invalid Next control variable reference...

и мне надо, чтобы в этой функции использовалось Do Until

помогите пожалуйста ... а то не разбираюсь я во всём этом...( а мозги не работают для этого...

[KORN]

так ты определись уже, тебе нужно do while или repeat until

если не разбираешься и задали, то тебе задали всю теорию которая требуется для решения задачи... конечно проще всего сказать я дурак я не знаю и свалить все на нас... а почему мы должны за тебя это делать7

[Incognitoal]

Просто у меня есть вариант другого задания и там использовалась Do Until для решения... и я подумал, что это должно скорее всего у меня использоваться... или наподобие...
Вроде - это форум помощь студентам...и как бы по желанию тут должны помогать... Пойми, в голову НУ не лезит этот бейсик, не понимая Я, хоть и тресни...не моё это, а учится хочется в универе и из-за информатики не хочется вылетать... так что мне очень нужна помощь ...

[Incognitoal]

народ помогите решить эту функцию пожалуйста...