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

@simargl1985 · Регистрация: 10.02.2012

Author24 — интернет-сервис помощи студентам

С использованием оператора цикла For вычислить значения выражений, заданных ниже. x— произвольное число, определенное в программе. y=x*cos^20(x*cos^19(x*...cos^2(x*cos(x)))...)
Код получившейся у меня программы:

Visual Basic

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

Хотелось бы узнать ваше мнение о правильности написания программы и о возможных ошибках.

@sco43 · 08.03.2012, 16:56

Сообщение от simargl1985

С использованием оператора цикла For вычислить значения выражений, заданных ниже. x— произвольное число, определенное в программе. y=x*cos^20(x*cos^19(x*...cos^2(x*cos(x)))...)

по моему так, но могу ошибаться...

Visual Basic

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

	08.03.2012, 16:56