инструкция for, Помогите пожалуйста понять как делать задачи с помощью инструкции for Опции

[Kris_Dex]

вот к примеру это задание:
вычеслите 1-1/2+1/3-1/4+1/5-1/6... для первых n членов.
никак не могу его решить.

[sheka]

"К примеру", cумма чисел от 1 до 5:
s := 0;
for i := 1 to 5 do s := s + i;

[Kris_Dex]

"К примеру", cумма чисел от 1 до 5:
s := 0;
for i := 1 to 5 do s := s + i;

так мне это понятно весьма, спасибо)
я могла бы решить задачу если бы было ну хотя бы так: 1+1/2+1/3+1/4+1/n и т.д
тогда было бы:
...
for i:=1 to n do s:=s+1/n;
...
но как при помощи инструкции for можно решить 1+1/2-1/3+1/4-1/5 и т.д. ?
тут знаки разные, а в голове ничего не лезет
help

[sheka]

Прочитай что делает "if в паскале".
(2*word(i>0)-1) ну а если лень, тогда просто умножай каждое слагаемое на вот это

[IUnknown]

тут знаки разные, а в голове ничего не лезет

А подумать? И ввести еще одну переменную, знак которой менять на каждой итерации:

sign := 1;
for ...
begin
   s := s + sign/i;
   sign := -sign
end;

?

P.S.

(2*word(i>0)-1) ну а если лень, тогда просто умножай каждое слагаемое на вот это

С таким же успехом можно вообще ни на что не умножать, для цикла начинающегося с 1 это всегда вернет 1... Что-то другое хотел написать, sheka?

Сообщение отредактировано: IUnknown - 3.10.2011 3:50

[Lapp]

В дополнение к сказанному volvo - если не хочется заводить дополнительную переменную sign, можно вот так:

s:= 0;
for i:=1 to 5 do s:= s + (i mod 2*2-1)/i;

Думаю, именно это хотел сказать sheka (и ты, volvo, это прекрасно знал)). Да, sheka? )) Тебе нужно было использовать функцию Odd.. Но только зачем мудрить с приведеним типов, если можно сразу с целыми все сделать..

Но вариант с переменной sign эффективнее.

[sheka]

Ошибся