Найти произведение элементов массива

[Impedans]

Найти произведение элементов массива С, больших 14. Элементы массива формируются по правилу : с(i)=cos(c(i-1)+1)+14; c(i)=1; i=2,3....16. Если таких элементов нет, то выдать соответствующее значение. Программку бы для Visual Basic, пожалуйста. Спасибо.

[Stilet]

По памяти:

Dim c(16) as double
Dim i as integer
Dim p as double
c(0)=1
p=1
for i=1 to 15
 c(i)=cos(c(i-1)+1)+14
 p=p*c(i)
next i
MsgBox CStr(p)

[Serge_Bliznykov]

Виталий, упустили, что

больших 14

Dim c(16) as double
Dim i as integer
Dim p as double
c(0)=1
p=1
for i=1 to 15
 c(i)=cos(c(i-1)+1)+14
 if c(i)>14
    p=p*c(i)
 endif
next i
if (p=1)
MsgBox 'Таких нет
else
MsgBox CStr(p)
endif

[Stilet]

Ага. Точняк.

[Aleksandr H.]

then пропустили и ' - это комментарий
Попробовал раз 20 запустить, 20/20 - "Таких нет"

Sub a()
    Dim c(16) As Double
    Dim i As Integer
    Dim p As Double
    c(0) = 1
    p = 1
    For i = 1 To 15
        c(i) = Cos(c(i - 1) + 1) + 14
        If c(i) > 14 Then
            p = p * c(i)
        End If
    Next i
    If (p = 1) Then
        MsgBox "Таких нет"
    Else
        MsgBox CStr(p)
    End If
End Sub

[Serge_Bliznykov]

Попробовал раз 20 запустить, 20/20 - "Таких нет"

да хоть 200. Они так и не появятся.
Дело в том, что c[2] = cos(1+1) = cos(2) = -0,416146836547142
если добавить 14, получим 13,5838531634529
cos( 13,5838531634529 + 1 ) = -0,431979269840637
и т.д.

легко в Excel написать формулу, протянуть и увидеть, что значений больше 14 в этом ряду нет.
финита.