Даны числовой ряд и некоторое число ε

[danada1]

Даны числовой ряд a(n подстрочная) = (2n-1)/(2^n) и некоторое число ε. Составить программу, которая находит сумму тех членов ряда, модуль которых больше или равен заданному ε. Значение ε вводится с клавиатуры.

(код нужен или на TurboPascal или на VisualBasic)

[Mad_Cat]

{pascal}
n:=1;
st:=2;
s:=0;
while abs((2*n-1)/st)>e do
begin
s:=s+(2*n-1)/st;
n:=n+1;
st:=st*2;
end;

[danada1]

здесь
while abs((2*n-1)/st)>e do

st по исходной формуле должна быть в степени n (а в коде у вас она без возведения в степень n)

[BDA]

st накапливается внутри цикла домножением на 2.

[Mad_Cat]

danada1 деточка,

st:=st*2;

- это по вашему что???

[danada1]

а, всё, нормально. спасибо

[danada1]

а на vb этот код прокатит?

Dim a(), i, n As Integer
Dim s, e As Single
s = 0
n = Text1
e = Text2
ReDim a(n)
For i = 1 To n
a(i) = (2 * i - 1) / (2 ^ i)
If Abs(a(i)) >= e Then
s = s + a(i)
End If
Text3 = s
Next i

[BDA]

Не прокатит, т.к. не пользователь задает число n - количество слагаемых, а условие на точность.