Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Циклы итерационной структуры

Автор: Аликс 7.5.2006, 23:27

Здравствуйте!
Помогите решить задачу.

s=(sqr(x)*x)/5-(sqr(x)*x*x*x)/17+...+(-1)*sqr(n+1)*(x*sqr(2*n+1)/4*sqr(x)+1)+...
Значение 0.15,
точность вычисления 10 в -3 степени.

С уважением Аликс.

Автор: VAngeL86 8.5.2006, 05:18

Цитата(Аликс @ 7.5.2006, 23:27

)

s=(sqr(x)*x)/5-(sqr(x)*x*x*x)/17+...+(-1)*sqr(n+1)*(x*sqr(2*n+1)/4*sqr(x)+1)+...

Ты уверен в правильности раставления скобок? Или у меня параноя или у тебя там ошибка smile

А вообще такие задачи ркшаются просто:
-пишешь функцию считающую слагаемое при произвольном n (что то типа

Код

Function Slag(x: real; n: word): real

)
-у тебя есть глобальная переменная (к примеру S) в которой хранится сумма и переменная (к примеру а) в которой хранится очередное слагаемое.
-пишешь цикл с пост условием

Код


i:=0; {если n начинается с 0}
S:=0;
repeat
a:=Slag(x, i);
S:=S+a;
inc(i);
until a<1E-3

После завершения цикла у тебя в переменной S будет храниться искомый результат!