вот к примеру это задание: вычеслите 1-1/2+1/3-1/4+1/5-1/6... для первых n членов. никак не могу его решить.
sheka
2.10.2011 21:27
"К примеру", cумма чисел от 1 до 5: s := 0; for i := 1 to 5 do s := s + i;
Kris_Dex
3.10.2011 2:06
Цитата(sheka @ 2.10.2011 17:27)
"К примеру", 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
3.10.2011 3:45
Прочитай что делает "if в паскале". (2*word(i>0)-1) ну а если лень, тогда просто умножай каждое слагаемое на вот это
IUnknown
3.10.2011 3:46
Цитата
тут знаки разные, а в голове ничего не лезет
А подумать? И ввести еще одну переменную, знак которой менять на каждой итерации:
sign := 1; for ... begin s := s + sign/i; sign := -sign end;
?
P.S.
Цитата
(2*word(i>0)-1) ну а если лень, тогда просто умножай каждое слагаемое на вот это
С таким же успехом можно вообще ни на что не умножать, для цикла начинающегося с 1 это всегда вернет 1... Что-то другое хотел написать, sheka?
Lapp
3.10.2011 6:43
В дополнение к сказанному volvo - если не хочется заводить дополнительную переменную sign, можно вот так:
s:= 0; for i:=1 to 5 do s:= s + (i mod 2*2-1)/i;
Думаю, именно это хотел сказать sheka (и ты, volvo, это прекрасно знал)). Да, sheka? )) Тебе нужно было использовать функцию Odd.. Но только зачем мудрить с приведеним типов, если можно сразу с целыми все сделать..
Но вариант с переменной sign эффективнее.
sheka
3.10.2011 15:25
Ошибся
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.