Для заданного n вычислите

@Kr1m0g · Регистрация: 27.01.2019

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

Для заданного n вычислите:
cos(x)+cos cos(x)+...+cos cos...cos(x)

@Zeag · 21.01.2021, 11:01

Где-то так, полагаю...

Visual Basic

Sub N_Cos()
   Const n As Integer = 7
   Dim x As Double, res As Double, i As Integer
 
   x = 0.75
   res = Cos(x)
   For i = 2 To n
      res = res + Cos(res)
   Next
 
   MsgBox "Cos(" & x & ") " & n & " раз = " & res, vbInformation, "Результат"
End Sub

@Kr1m0g · 21.01.2021, 11:16 **[ТС]**

Нужна сумма , а что тут складывается ?

I can · 21.01.2021, 11:24

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

а что тут складывается ?

Сумма косинусов косинусов косинусов...

@Zeag · 21.01.2021, 13:13

В виде функции

Для заданного n вычислите

Решение

Решение

@Kr1m0g 0 / 0 / 0 Регистрация: 27.01.2019 Сообщений: 22
		1
	Excel Для заданного n вычислите 21.01.2021, 10:49. Показов 2253. Ответов 4 Метки нет (Все метки) Для заданного n вычислите: cos(x)+cos cos(x)+...+cos cos...cos(x) 0

@Kr1m0g 0 / 0 / 0 Регистрация: 27.01.2019 Сообщений: 22
	21.01.2021, 11:16 [ТС]	3
	Нужна сумма , а что тут складывается ? 0

I can help 4250 / 3843 / 781 Регистрация: 13.04.2015 Сообщений: 8,521
	21.01.2021, 11:24	4
	Сообщение от Kr1m0g а что тут складывается ? Сумма косинусов косинусов косинусов... 1

	21.01.2021, 13:13

Опции темы