С использованием оператора цикла For вычислить значения выражений - VB

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

С использованием оператора цикла For вычислить значения выражений, заданных ниже. x— произвольное число, определенное в программе. y=x*cos^20(x*cos^19(x*...cos^2(x*cos(x)))...) Код получившейся у меня программы:
Private Sub Command1_Click()
Dim x As Single 
x = 0.1
Dim i As Byte 
Dim y As Single 
y = 1
For i = 1 To 20
        y = y * (x * (Cos(x) ^ i))
Next i
Label3.Caption = CStr(y)
End Sub
Хотелось бы узнать ваше мнение о правильности написания программы и о возможных ошибках.

Код к задаче: «С использованием оператора цикла For вычислить значения выражений - VB»

textual
Dim y, x As Single
 x = 0.1
 y = x * Cos(x)
 For i = 2 To 20
  y = Cos(y) ^ i * x
 Next i
MsgBox y
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 3.444 из 5


СДЕЛАЙТЕ РЕПОСТ