Автор: BoBaH 18.01.2004 13:53
такая вот задача:
1+1/2+1/3-1/4-1/5+1/6+1/7-1/8-1/9+....(+)(-)1/1000
как здесь в цикле записать чередование знаков?
Автор: dushik 18.01.2004 15:51
Попробуй как-нибуть так:
Код
for i:=1 to 1000 do
begin
k:=k+0.25;
if (k-round(k)=0.75) or (k-round(k)=0.00) then
t:=t-1/i
else
t:=t+1/i;
end;
Автор: zx1024 18.01.2004 19:58
Код
sum := 1;
for i := 2 to 1000 do
sum := sum + ((i and 2) - 1) / i