Вычислить значение выражения, используя цикл For

@Olav93 · Регистрация: 01.05.2012

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

Помогите пожалуйста, немного туговато с программированием. Буду очень благодарен

Даны действительное число а, натуральное число N. Вычислить:

1/a+1/(a(a+1))+⋯+1/(a(a+1)…(a+N))

@~~Апострофф~~ · 02.05.2012, 21:10

Visual Basic

Sub Olav93()
Dim a As Double, n As Long, S As Double, I As Long, s1 As Double
a = InputBox("a=", , "3,14159265358979")
n = InputBox("n=", , "10")
s1 = 1
For I = 0 To n
  s1 = s1 / a
  S = S + s1
  a = a + 1
Next I
MsgBox "S=" & S
End Sub

@Olav93 0 / 0 / 0 Регистрация: 01.05.2012 Сообщений: 5
		1
	Вычислить значение выражения, используя цикл For 02.05.2012, 19:12. Показов 908. Ответов 1 Метки нет (Все метки) Помогите пожалуйста, немного туговато с программированием. Буду очень благодарен Даны действительное число а, натуральное число N. Вычислить: 1/a+1/(a(a+1))+⋯+1/(a(a+1)…(a+N)) 0

	02.05.2012, 21:10

Опции темы