Цикл

[Koluyn12]

цикл.
вычислить сумму первых n заданных чисел в последовательности Аn для которого /Аn-An-1/<E.
An=(1-1/2)(1-1/3)...(1-1/n+1).
E-эпсилон
как решается?

[ROMA2PVT]

как решается?

ну самый распространённый метод это руками.Ну и подумать сначала.

[tomas876]

я ненаю. Начал разбераться не получается. А вы случаем не подскажите?

[Koluyn12]

я чет тож не могу решить.

[Stilet]

Начал разбераться

Показывай.

я чет тож не могу решить.

Пан учится вместе с автором?

[tomas876]

чета похожее))) но мне кажется это не правильно)


var
a:array[1..20]of integer;
z,i,с:integer;
s:real;
begin
for i:=1 to 20 do
read(a[i]);
read(z);
s:=0;
c:=s;
for i:=1 to 20 do
if a[i]>0 then begin c:=c+1; s:=s+a[i]; end;
s:=s/c;
write©;
end.

[ROMA2PVT]

вы решили вычислить среднее арифметическое положительных элементов масссива(ито неверно)? гы гы гы.
Вот темка и таких полно.Смотрите как реализовано и будет вам счастье.
http://programmersforum.ru/showthread.php?t=102920

[Koluyn12]

ну тип вместе) ток толку мало от нас))) ничего не получается)

[Koluyn12]

Program cikl;
Uses
CRT;

var
i:integer;
begin
clrscr;
st:=-1;
f:=0,5
for i:=1 to n do
begin
f:=f*(x-st-1)/(st+1);
st:=2*st;

end;
readln;
end.


типо чета токого? но она все равно не работает. Я незнаю причем тут эпсилон нужен.